FORUM ALHSAYA TECHNICAL

منتدي خـــــــاص بالعلوم والتكنولوجيا *** Special Forum of Science and Technology


    الاتصال بقواعد البيانات

    شاطر
    avatar
    مهندسه
    .
    .

    عدد المساهمات عدد المساهمات : 43
    الـنـقـاط الـنـقـاط : 940
    مستوي العضو : 0
    تاريخ : 31/08/2010
    العمر : 28
    مسقط الرأس : عطبرة

    الاتصال بقواعد البيانات

    مُساهمة من طرف مهندسه في الجمعة 22 يوليو 2011, 1:41 pm

    شرح طريقة الاتصال بقواعد البيانات عن طريق أداة الـDAO

    في ربط فاعدة بيانات من نوع اكسس بالفيجول بيزك


    الـ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.addnew

    حيث 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



      الوقت/التاريخ الآن هو الجمعة 15 ديسمبر 2017, 8:29 pm