خطأ عند الربط ADO

أريد مساعدة يا جماعة

اخي العزيز انظر الى الموضوع التالي :

http://uni.hiarab.net/showthread.php?t=356...%ED%C7%E4%C7%CA

وهناك كتاب الاخ نصر تجده هنا :

http://uni.hiarab.net/showthread.php?t=4829

تحياتي

شكرا ً أخي النبهاني

ولكن أنا أريد أن أعرف أين الخطأ في الكود الذي استعمله

الروابط بها شرح كيف يمكن ربط قاعدة البيانات وأنا لم أواجه هذا مشكلة

ولكن المشكلة في فتح كلمة المرور .

أرجو أن تقرأ طلبي جيدا .

فقط اضف الPassword في جملة conn.Open

conn.Open "Database Name", "Username", "Password"

و في الاغلب لا يكون هناكusername فاترك الخانة فارغة "" ثم اكتب الpassword

conn.Open "Database Name", "", "Password"

شكراً أخي الكريم bashmohandes

هذا الكود يقوم بفتح قاعدة البيانات التي فيها كلمة مرور ما عليك سوى وضع هذا الكود في موديول ثم تستدعيه في الفورم الذي تريد فتح قاعدة البيانات فيه

Public db As Database 'هنا تم تعريف القاعدة

Public rs1 As ADODB.Recordset

Public Function OpenDB() As ADODB.Connection

Dim cn As New ADODB.Connection

cn.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path + "\data.mdb;Jet OLEDB:Database Password=project;"

Set OpenDB = cn

End Function

ملاحظة data هي اسم قاعدة البيانات

أرجو أن أكون قد أوصلت الفكرة إليك

أخوك الماطري

اليمن عدن

ahmedmater177@hotmail.com

شكراً أخي الماطري