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

كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير (/showthread.php?tid=38684)

كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير - mido790006 - 19-06-21

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

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

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

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

RE: كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير - مصمم هاوي - 19-06-21

كود :

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

RE: كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير - mido790006 - 19-06-21

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

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

RE: كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير - مصمم هاوي - 20-06-21

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

RE: كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير - mido790006 - 20-06-21

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