+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : قاعدة بيانات أكسيس 2007 (/showthread.php?tid=8402)
قاعدة بيانات أكسيس 2007 - Ahmed Abdulla - 09-04-13
السلام عليكم
اخواني الكرام صنعت قاعدة بيانات أكسيس 2007 وربطها ببرنامج لكن عند تشغيل البرنامج يعطي رساله خطأ أرجو التعديل علي المثال المرفق ولكم مني جزيل الشكر
قاعدة بيانات أكسيس 2007 - المبرمج البسيط - 09-04-13
http://vb4arb.com/vb/uploaded/76_01365534624.rar
قاعدة بيانات أكسيس 2007 - Ahmed Abdulla - 10-04-13
أخي الكريم مشكور علي اهتمامك لكني أريد قاعدة البيانات ذو امتداد accdb وليس mdb
قاعدة بيانات أكسيس 2007 - حريف برمجة - 10-04-13
اول شي اضف مكتبة الآدو
من 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قاعدة بيانات أكسيس 2007 - Ahmed Abdulla - 10-04-13
جزاك الله كل خير أخي الكريم