منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تعديل على المثال التالي للاتصال بقاعدة بيانات 2016

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

اريد التعديل على المثال المرفق لربط البرنامج باكسس 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

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

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

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

كود :

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

(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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

w123eg

eiocm

w123eg

sendbad100

w123eg

awidan76

awidan76