ماهو الكود لربط قاعدة بيانات باخرى

[root]

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

مثال

عندي قاعدة بيانات في جدول ونموذج ولنسميها القاعدة رقم 1 الهدف

وقاعدة اخرى فيه جداول ولنسميها القاعدة رقم 2 المصدر

اريد ان اشغل القاعدة رقم 1 ومنها يتم اختيار القاعدة رقم 2

ماهو الكود لربط القاعدة رقم 2 مثل الفجول وهذا الكود تبع الربط مع قاعدة اخرى في الفجول بيسك

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\المصدر.mdb"

وبعدها يتم فتح الجداول المطلوب و التوجه للحقل المطلوب وعمل مقارنه مع الحقل المطلوب في القاعدة الاولى

وهذا الربط بالفجول بيسك

طبعا الجدول هو DATA

rs.Open "[DِATA]", db, adOpenStatic, adLockPessimistic

انا لقيت معلومه بسيطه عن طريق dao لكن مافهمتها

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

اتمنى احصل حل

ولكم الف شكر

[sx1]

بسم الله الرحمن الرحيم

اخي الكريم استخدم البحث ستجد ما طلبت ولقد تم مناقشته عدة مرات

[root]

يعطيك العافية

اولا عرفت dao

ثم عرفت المتغيرات وهي

Dim WK As DAO.Workspace

Dim db As DAO.Database

Dim rs As DAO.Recordset

ثم تم الربط بقاعدة البيانات والجدول وهو DATA

Set db = WK.OpenDatabase(مسار القاعدة)

Set rs = db.OpenRecordset("DATA")