الربط مع قواعد بيانات اكسس من جديد

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

يمكنك الربط كما يلي :

الخطوة الأولى :

* افترض ان الملف اسمه C:DF.MDB

انشئ ملف نصي باسم معين تحت مجلد معين وليكن C:XYXY.TXT

ثم اكتب فيه هذا السطر :

Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:DF.MDB;

الخطوة الثانية :

من داخل البرنامج عرف متغير الربط 
DIM CON AS OLEDBCONNECTION
ومتغير آخر لقراءة الملف النصي
DIM TREADER AS SYSTEM.IO.STREAMREADER
TREADER=NEW SYSTEM.IO.STREAMREADER("C:XYXY.TXT")

DIM CONNSTR AS STRING
CONNSTR=TREADER.READTOEND

CON=NEW OLEDBCONNECTION(CONNSTR)

الآن اصبح لديك متغير ربط يمكنك استخدامه في كل البرنامج

وإذا نقلت البرنامج الى أى جهاز آخر ما عليك سوى تعديل الملف النصي لكي يشير الى الموقع الجديد للملف.

أرجوا من الله الإفاده