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

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

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

مع العلم قاعدة البيانات محمية بكلمة سر وهى 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;"

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

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