السلام عليكم
اريد الطباعة من جدولين ولكن
انا استخدم هذا الكود لربط الداتا بيز
[PHP]Public Sub Main()
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path & "\db.mdb;Persist Security Info=False;"
If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
RS.Open "Table1", CN, adOpenKeyset, adLockOptimistic
RS1.Open "Table2", CN, adOpenKeyset, adLockOptimistic
RS2.Open "Table3", CN, adOpenKeyset, adLockOptimistic
FrmIntro.Show
End Sub
[/PHP]
واضع هذا الاجراء فى project startup
اى ان الجداول مفتوحة دائما ولا استخدم اوامر select لفتح وغلق الجدوال
استخدم اكسس 2010 ولكن احول الداتا بيز ل اكسس 2003 بدون مشاكل
لكن عند استخدام الادو دى سى لا يقبل
ارجو الرد
اريد الطباعة من جدولين ولكن
انا استخدم هذا الكود لربط الداتا بيز
[PHP]Public Sub Main()
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path & "\db.mdb;Persist Security Info=False;"
If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
RS.Open "Table1", CN, adOpenKeyset, adLockOptimistic
RS1.Open "Table2", CN, adOpenKeyset, adLockOptimistic
RS2.Open "Table3", CN, adOpenKeyset, adLockOptimistic
FrmIntro.Show
End Sub
[/PHP]
واضع هذا الاجراء فى project startup
اى ان الجداول مفتوحة دائما ولا استخدم اوامر select لفتح وغلق الجدوال
استخدم اكسس 2010 ولكن احول الداتا بيز ل اكسس 2003 بدون مشاكل
لكن عند استخدام الادو دى سى لا يقبل
ارجو الرد