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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 (/showthread.php?tid=23025)

تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - w123eg - 22-12-17

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

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


RE: تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - eiocm - 22-12-17

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

RE: تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - w123eg - 22-12-17

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

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



RE: تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - sendbad100 - 22-12-17

كود :
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


RE: تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - w123eg - 23-12-17

(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
جزاك الله كل خير

RE: تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - awidan76 - 07-01-18

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

RE: تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 - awidan76 - 07-01-18

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