سؤال عن ربط Vb6 ب Ms Access محمية ب Password

Dim DB As New ADODB.Connection
DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=[databasename];Jet OLEDB:Database Password=[database password];"

شكرا أخ عبد الفتاح

لكن انا أريدها مع اداة Adodc تم ادراجها

حاولت:

......Adodc1.open "Provider

ولكن ظهر Error

Method or datamember not found

تفضل

Private Sub Form_Load()
Dim Connect As String
Dim FileSource As String
FileSource = App.Path & "\Bibliothèque.mdb;Persist Security Info=False;Jet OLEDB:Database Password=11"
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source= " & FileSource & ""
Adodc1.ConnectionString = Connect
Adodc1.RecordSource = "emprunt "
Adodc1.Refresh

End Sub

بالتوفيق

شكرا يا طيب necergha

لكن مازال Error

....... cannot start your application. The workgroup information file is missin or opened

وعليكم السلام

تفضل أخي هذا الكود المناسب

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=1234; Data Source=" & App.Path & "\db1.mdb"
Adodc1.RecordSource = "tpl1 "
Adodc1.Refresh

حيث أسم قاعدة البيانات (db1)

كلمة المرور (1234)

ولا تنسى ليتم الإتصال بنجاح لا بد من إدراج اسم الجدول ضمن سلسلة الإتصال وأسم الجدول هنا (tpl1)

وهذا مثال بالمرفقات يوضح العملية

____vb.rar

شكراااااااااااااااااااااااا الك استاذ محمد و للجميع

ولك ايضا اخ necergha

في البداية مثالك اشتغل تمام ولكن عندي لم يعمل حتى غيرت في خصائص Adodc1

commandtype=8

ممكن هي الخطأ والله اعلم

بعدها اشتغل تمام وحتى بكود الأخ necergha

شكرا يا طيبين