السلام عليكم
اخواني الكرام صنعت قاعدة بيانات أكسيس 2007 وربطها ببرنامج لكن عند تشغيل البرنامج يعطي رساله خطأ أرجو التعديل علي المثال المرفق ولكم مني جزيل الشكر
أخي الكريم مشكور علي اهتمامك لكني أريد قاعدة البيانات ذو امتداد accdb وليس mdb
اول شي اضف مكتبة الآدو
من Project > References
Microsoft Actives Data Objects 2.8 Library
وهذي الأكواد
كود :
في الجنرال في الأعلى ضع الكود التالي
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
ضع الكود التالي في الكوماند
Private Sub Command1_Click()
If rs.State = 1 Then rs.Close
rs.Open "select * from T", con, 1, 2
Text1 = rs.Fields("Name")
Text2 = rs.Fields("Age")
rs.Close
End Sub
ضع الكود التالي في الفورم لود
Private Sub Form_Load()
If con.State = 1 Then con.Close
con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\dbo.accdb"
End Sub
جزاك الله كل خير أخي الكريم