[w123eg]

السلام عليكم ورحمة الله وبركاته

اريد التعديل على المثال المرفق لربط البرنامج باكسس 2016

وشكرا

كود :

Public DB       As New ADODB.Connection
Public RSFILE       As New ADODB.Recordset
Public Sub Connect_DB()
If DB.State = adStateOpen Then _
   DB.Close
   
   DB.CursorLocation = adUseClient

   DB.Provider = "Microsoft.ACE.OLEDB.16.0;"
   DB.Open App.Path & "\Data.accdb"

End Sub

[eiocm]

اتوقع هو نفس 2010
Microsoft.ACE.OLEDB.12.0

[w123eg]

(22-12-17, 04:20 PM)eiocm كتب : اتوقع هو نفس 2010
Microsoft.ACE.OLEDB.12.0

جربت وطلعتلي الرسالة

[sendbad100]

كود :

Public DB       As New ADODB.Connection
Public RSFILE       As New ADODB.Recordset
Public Sub Connect_DB()
If DB.State = adStateOpen Then _
   DB.Close
   
   DB.CursorLocation = adUseClient

   DB.Provider = "Microsoft.ACE.OLEDB.12.0;"
   DB.Open App.Path & "\Data.accdb"

End Sub

[w123eg]

(22-12-17, 10:40 PM)sendbad100 كتب :

كود :

Public DB       As New ADODB.Connection
Public RSFILE       As New ADODB.Recordset
Public Sub Connect_DB()
If DB.State = adStateOpen Then _
   DB.Close
   
   DB.CursorLocation = adUseClient

   DB.Provider = "Microsoft.ACE.OLEDB.12.0;"
   DB.Open App.Path & "\Data.accdb"

End Sub

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

[awidan76]

تسلم اخونا وجزاك الله خير على مجهودك

[awidan76]

كيف الحل وماذا فعلت يشتغل عندك المثال
انا تطلع عندي مشكلة ويظهر مكتبة لاختار منها ولكن وماذا اختار