09-10-12, 06:04 PM
كاتب الموضوع : FlyToAbd
لفتح ملف بيانات اكسيسPrivate Cnn As OleDbConnection
Cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & Me.FileName & "';Jet OLEDBatabase Password='123456'")حيث المتغير FileName فيه اسم ومسار الملف وكلمة المرور 123456
اضف DataSet واجعل اسمها dstMain
اعلن عن متغير من نوع dstMain كما يلي
Public Data As dstMain
للقراءة من قاعدة البيانات
استدعي الاجراء التالي
Public Sub ReadDate()
Data = New dstMain
Dim Adp As OleDbDataAdapter
For Each aTable As DataTable In Data.Tables
Adp = New OleDbDataAdapter("Select * From " & aTable.TableName, Cnn)
Dim Cmdbld As New OleDbCommandBuilder(Adp)
Adp.Fill(aTable)
Next
End Sub
بعد الفتح قم بما تشاء من تغييرات منطقية
للحفظ في قاعدة البيانات
استدعي الاجراء التالي
Public Sub WriteData()
Dim Adp As OleDbDataAdapter
For Each aTable As DataTable In Data.Tables
Adp = New OleDbDataAdapter("Select * From " & aTable.TableName, Cnn)
Dim Cmdbld As New OleDbCommandBuilder(Adp)
Adp.Update(aTable)
Next
End Sub