المشاركات : 759
المواضيع 133
الإنتساب : May 2015
السمعة :
62
الشكر: 659
تم شكره 1388 مرات في 627 مشاركات
كود :
If db.State = 1 Then db.Close
db.CursorLocation = adUseClient
db.Provider = "Microsoft.Jet.OLEDB.4.0;"
db.Open App.Path & "\ Schools.mdb;" & "Jet OLEDB:Database Password=123456;"
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 759
المواضيع 133
الإنتساب : May 2015
السمعة :
62
الشكر: 659
تم شكره 1388 مرات في 627 مشاركات
(19-06-21, 09:23 PM)mido790006 كتب : (19-06-21, 09:11 PM)مصمم هاوي كتب :
كود :
If db.State = 1 Then db.Close
db.CursorLocation = adUseClient
db.Provider = "Microsoft.Jet.OLEDB.4.0;"
db.Open App.Path & "\ Schools.mdb;" & "Jet OLEDB:Database Password=123456;"
شكراً لمرورك
ولكن ظهرت لى الرسالة دى
أسف على الخطأ كتبتهُ على عجل
كود :
If db.State = 1 Then db.Close
DB.CursorLocation = adUseClient
DB.Provider = "microsoft.jet.OLEDB.4.0;Jet OLEDB:Database Password=123456"
DB.Open App.Path & "\Schools.mdb"
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ