[Ahmed Abdulla]

السلام عليكم

اخواني الكرام صنعت قاعدة بيانات أكسيس 2007 وربطها ببرنامج لكن عند تشغيل البرنامج يعطي رساله خطأ أرجو التعديل علي المثال المرفق ولكم مني جزيل الشكر

[المبرمج البسيط]

http://vb4arb.com/vb/uploaded/76_01365534624.rar

[Ahmed Abdulla]

أخي الكريم مشكور علي اهتمامك لكني أريد قاعدة البيانات ذو امتداد 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

[Ahmed Abdulla]

جزاك الله كل خير أخي الكريم