الوصول الى قاعدة بيانات خارجية برمجيا

رجاءا اخواني وخواتي الاعزاء الاجابة على سؤالي اعلاه لاني جدا محتاج هذه العملية

ارفق القاعدة الاخرى التي تريد الوصول اليها محددا مسارها

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

أخي الكريم ... كان عليك إدراج قاعدة البيانات الخارجية edara حتى نتمكن من مساعدتك جيداً

على كل حال وبضوء المعطيات الموجودة حالياً سأضع ملخص الكود الذي قمت أنت بكتابته ودعنا نناقش بعض المسائل

Private Sub ÃãÑ0_Click()
Dim Conn As New ADODB.Connection
Set Conn = New ADODB.Connection
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "C:\Documents and Settings\admin-info\Desktop\tttt\edara.mdb"

End With
MsgBox Conn.ConnectionString
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "[Employees]", CurrentProject.Connection, adOpenDynamic, adCmdTable
rst.MoveFirst
MsgBox rst![B1]
MsgBox rst![b2]
End Sub

النقطة الأولى

.Open "C:\Documents and Settings\admin-info\Desktop\tttt\edara.mdb"

السؤال هو هل فعلا هناك قاعدة بيانات باسم edara.mdb موجودة في المسار المحدد من قبلك

النقطة الثانية

rst.Open "[Employees]", CurrentProject.Connection, adOpenDynamic, adCmdTable

في سؤالك الموجه بأنك تريد فتح قاعدة بيانات خارجية وليس قاعدة البيانات الحالية CurrentProject.Connection

لذلك يجب عليك استبدال CurrentProject.Connection ب conn حيث تصبح التعليمة على الشكل التالي

rst.Open "[Employees]", Conn , adOpenDynamic, adCmdTable

طبعا مع التأكد من وجود جدول باسم Employees في قاعدة البيانات edara وضمن هذا الجدول الحقول التي اخترتها وهي B1 و B2

أتمنى لك التوفيق وسلامي لك وللجميع

A&A كتب:

رجاءا اخواني وخواتي الاعزاء الاجابة على سؤالي اعلاه لاني جدا محتاج هذه العملية

جرب هذا الكود أخى

Dim DBpath As String
DBpath = CurrentProject.Path & "\edara.mdb"   'غير المسار الى ما يناسبك
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=" & DBpath  ' & ";Uid=admin;" & "Pwd="
rs.ActiveConnection = cn
rs.Open "SELECT * FROM tbl"  'غير اسم الجدول الى ما لديك

MsgBox rs!b1

السلام عليكم اخواني الاعزاء

اشكركم وبارك الله بكم جميعا والحمد لله نجحت العملية

وجعلها ربي في ميزان حسناتكم