[RaggiTech]

كاتب الموضوع : 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

[RaggiTech]

كود :

Cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Me.FileName & "';Jet OLEDB:Database Password='123456'")

حيث المتغير FileName فيه اسم ومسار الملف وكلمة المرور 123456