05-02-22, 11:17 AM
السلام عليكم
اريد رجاء تعديل الكود التالي بحيث استخدم DAO
اسم قاعدة البيانات مثلا
A.mdb
اريد رجاء تعديل الكود التالي بحيث استخدم DAO
اسم قاعدة البيانات مثلا
A.mdb
كود :
Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.accdb")
Dim dp As New OleDbDataAdapter("select * from ETable", conn)
Dim dt As New DataTable
dp.Fill(dt)