[مصمم هاوي]

(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"