الأرشيف الشهري: مارس 2014

برنامج قراءة وتخزين ملفات الــ PDF

Eng. Othman Khurshid

Image

بسم الله الرحمن الرحيم

المثال التالي يوضح كيفيه عرض ملفات الــ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

Advertisements