[mido790006]

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

الرجاء منكم المساعدة فى حل الكود دا 

مع العلم قاعدة البيانات محمية بكلمة سر وهى 123456

عايز أربط قاعدة البيانات مع التقرير فى فيجوال بيسك 6

ناقص كود وضع الباسوورد  

    If db.State = 1 Then db.Close

    db.CursorLocation = adUseClient

    db.Provider = "Microsoft.Jet.OLEDB.4.0;"

    db.Open App.Path & "\ Schools.mdb"

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

[مصمم هاوي]

كود :

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

[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;"

شكراً لمرورك 
ولكن ظهرت لى الرسالة دى

[مصمم هاوي]

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

[mido790006]

الف شكر وجارى التجربة