w1eg

تعديل على المثال التالي للاتصال بقاعدة بيانات 2016

1 مشاركة في هذا الموضوع

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

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

وشكرا

imagef-151394668431-jpg.html

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

New folder (7).rar

تم تعديل بواسطه w1eg
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .