
بسم الله الرحمن الرحيم
المثال التالي يوضح كيفيه عرض ملفات الــPDF .وتخزينها في قاعدة البيانات ثم امكانية عرضها من جديد
ولكن اولاً علينا التأكد من اضافة الاداوت التالية
1- اضافة عدد 4 Button
2- Treeview
3- openfiledialog
4- textbox
كتابة الكود
في البداية نستدعي المكتبات الاتية:
Imports System.Data.OleDb
Imports System.IO
ثم تعريف متغير Dim DBCONN As New OleDbConnection
الاون سنقوم بأنشاء مجموعة من الاجراءات وهي على النحو التالي
اجراء يقوم بفتح الاتصال مع قاعدة البيانات
Sub Openconnetion()
Try
DBCONN.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” + Application.StartupPath + “Database.mdb”
DBCONN.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, “Connection Failure”, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
DBCONN.Close()
End
End Try
End Sub
الاجراء الثاني هو اضافة الـ Treeview باسماء الملفات المخزنة
Private Sub AddNode(parentNode As String, nodeText As String)
Dim node As New List(Of TreeNode)
node.AddRange(TreeView1.Nodes.Find(parentNode, True))
If Not node.Any Then
node.Add(TreeView1.Nodes.Add(parentNode, parentNode))
End If
node(0).Nodes.Add(nodeText, nodeText)
End Sub
الاجراء الثالث لتعبئة اداة الــ Treeview
Sub fill_TreeView()
Dim adp As New…
View original post 541 more words