كلمة مرور غير صالحة ! مين الغلط انا ام السيد فجوال؟

اخي الكريم الخطأ منك طبعاً لانك وضعت مسافة بعد كلمة المرور بدون ان تغلق الجملة بالفاصلة المنقوطه; وهنا يعتبر البرنامج ان تلك المسافة من ضمن كلمة المرور . لذلك يفيدك بان كلمة المرور خاطئة لانه حسبها على اساس 123 ثم مسافة .

انظر هنا لترى الفرق بين الجملتين

	Db.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:Database Password=123;"

تحياتي

شكرا لك استاذ عماني لكن المشكلة مازالت كما هي :(

علما اني تخلصت من المسافة التي تلي الرقم

اين الخطأ اذن؟؟

نموذج بالمرفقات

shadidatapass.rar

تفضل مثالك بعد التعديل

تحياتي

shadidatapass.rar

شكرا لردك لكن الحقيقة تولدت عندي بعض التساؤلات ارجو منك الاجابة

اولا

يعمل الكود مع ظهور هذه الرسالة

ان كان الوضع طبيعي !! ما سببها وكيفية التخلص منها

تانيا

ان كان هذا الكود يفي بالغرض

 If db.State = adStateOpen Then db.Close

db.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:Database Password=123;"

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

اذن لمذا تم اضافة الكود التاالي ليقوم بعمله الكود الاول

Adodc1.ConnectionString = db.ConnectionString

'open Record set

Dim rs As New ADODB.Recordset

If rs.State = 1 Then rs.Close

rs.Open "select * from dataa", db, adOpenStatic, adLockOptimistic

Set Adodc1.Recordset = rs

وشكرا لك

اخي الكريم :

بالنسبة للرسالة التي تظهر . نعم يمكن التخلص منها وذلك بالدخلول الى خصائص adodc وحذف اسم الريكورد ست من هناك ..

اما بالنسبة

تانيا

ان كان هذا الكود يفي بالغرض

If db.State = adStateOpen Then db.Close
db.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:Database Password=123
db.Open App.Path & "\db1.mdb"

اخي هذا الكود للاتصال بقاعدة البيانات ..

اذن لمذا تم اضافة الكود التاالي ليقوم بعمله الكود الاول

Adodc1.ConnectionString = db.ConnectionString<BR><BR>'open Record set
Dim rs As New ADODB.Recordset
If rs.State = 1 Then rs.Close<BR><BR>rs.Open "select * from dataa", db, adOpenStatic, adLockOptimistic

Set Adodc1.Recordset = rs

اما هذا الكود هو لفتح الجدول من داخل قاعدة البيانات ومن ثم تعيينه ليصبح الجدول العامل في Adodc1

تحياتي

shadidatapass.rar