[align=center]شرح طريقة الاتصال بقواعد البيانات عن طريق أداة الـDAO[/align]
في ربط فاعدة بيانات من نوع اكسس بالفيجول بيزك
الـDAO هو ملف من نوع DLL يتم تعريف الفيجول بيزك به عن طريق قائمة projectثم references ثم Microsoft DAO 3.6 Object library
وهذا الملف يحتوي علي classes تحتوي علي برامج فرعية subs تحتوي علي عديد من الأوامر
أولا:-
لكي يتم الاتصال بقاعدة البيانات يجب أن نحمل علي ال RAM نسخة من ال Classesالموجودة في هذا الملف تحت أي اسم تريده وهذا يكون معرف علي جميع البرنامج أي يكون في General
كود:
Dim db as database
Dim rs as recordset
حيث db وrs أسماء النسخ من الـClasses التي حددتها أنت
database and recordset عبارة عن ال Classes الحقيقية الموجودة في ملف DAO
ونأتي في الـform حث الـload ونوصل الفيجول بالـdatabase
كود:
Set db = opendatabase(“db1.mdb”)
Set rs = db.opendatabase(“tttt”,2)
حيث db1 اسم ملف الـdatabase و.mdb نوع الملف و tttt اسم الجدول
إما بالنسبة للرقم 2 فهو يعبر عن القراءة من الجدول واللإضافه فيه أي اخذ وإعطاء البيانات
أما إذا كتبت 1 فإنه يعني تسجيل بيانات فقط دون القراءة
أما إذا كتبت 0 فإنه يعني القراءة فقط
وهكذا تم الربط
ولان سوف نقوم بعرض كيفية إضافة سجل جديد:
حيث rs هي الـClasses
وaddnew هي البرنامج الفرعي sub
ملحوظة
"ملف الDAO تستخدمه أداة ال datacontrol ولكن إصدار Microsoft DAO 3.1 Object library وهذا لا يربط الا مع اكسس من إصدار 97أما إصدار 3.6 فإنه يستطيع الربط بكل إصدارات أكسس "
و نكمل طريقة اضافة سجل
نكتب هذا الكود في زر الحفظ بعد تسجيل البيانات علي الForm
كود:
Rs(“name”) = text1.text
Rs(“code”) = text2.text
Rs.updata
شرح طريقة الاتصال بقواعد البيانات عن طريق أداة الـdao
