بعد أن أخذنا مقدمة عن طريقة الربط بالكود سنأخذ الآن التطبيق الفعلي للربط بالكود ، سيكون مشروعنا عبارة عن برنامج لحفظ اسم السلعة و سعرها ، و كل ما نريده في هذا المثال هو ربط قاعدة البيانات بالكود و حفظ الادراجات الجديدة و الحذف و سنأجل البحث للدروس القادمة عندما نأخذ مباديء SQL لغةالاستعلام حيث سيكون البحث معها في اية السهولة و البساطة و الان دعونا نبدأالدرس
الدرس
قبل أن تبدأ يجب أن تجهز قاعدة بيانات و ليكن إسمها db1 و تحتوي على جدول اسمه tb1 و هذا الجدول يحتوي على الحقول التالية :
يمكنك عمل قاعدة البيانات بواسطة Access او بواسطة فيجوال بيسك راجع الدرس الثاني
[img]عفوا صاحب الموضوع تعب في احضار الروابط هذه لك ألا ترى انه من اللائق الرد على موضوعه لنمنحه التشجيع تقديرا له وليواصل عطاءه ويزودك مزيداً حول هذا المجال خلال هذه الفترة الحالية تستطيع الرد باستخدام الوضع المتطور للرد فقط اسفل هذا الموضوع عن طريق ايقونة اضافة رد وشاكراً لك دعمك ليكون الجميع في خدمتك في هذا الملتقى[/img]
بعد أن تقوم بذلك إفتح مشروع فيجوال بيسك قياسي جديد ، و قبل أن تبدأ بربط قاعدة البيانات يجب أن تحدد أي طريقة ستستخدمها للربط و في هذا المثال سنستخدم طريقة او تقنية DAO ، و بعد ان حددنا الطريقة التي سوف تربط بها سنضيف المكتبة الخاصة بها و هي عبارة عن مكتبة تحتوي على تعريف للأوامر التي ستستخدمها لتقنية DAO و لتضيف هذه المكتبة قم بالتالي :
اذهب الى قائمةProject > Refrence و من ثم حدد الاختيار Microsoft DAO 3.51 Object Library بعد ذلك اختر موافق
الان سنعود لمشروعنا ، و ان كنت مازلت تتذكر ما قلنا في الدرس السابق فإن علينا اضافة موديول ، و لتفعل ذلك اذهب لقائمة Project و اضغط على Add Module الان سنقوم بتعريف متغيرين في الموديول واحد عبارة عن قاعدة بيانات و الاخر عبارة عن جدول و هذه صيغة تعريف المتغيرين :
Public d As Database
Public t As Recordset
كلمة Public تعني انه متغير عام في المشروع و لاحظ ان d اسنادناها كقاعدة بيانات و t كجدول
في نفس الموديول سنقوم بإسناد قاعدة البيانات الأصلية و التي اسمها db1 الى القاعدة الوهمية ان صح التعبير و التي عرفناها قبل قليل بـ d و لعمل ذلك نكتب الإجراء التالي في الموديول
Private Sub main()
Set d = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb")
Form1.Show
End Sub
و الان دعنا نشرح هذا الاجراء ، اول شيء اسمينا هذا الاجراء باسم main و هذا ليس فيه خيار حيث ان هذا اسم محجوز في لغة البيسك فلا تستطيع ان تستبدله بآخر
أول جملة في الاجراء هي جملة الاسناد ولقد بدأناها بأمر الاسناد المعروف Set ثم وضعنا القيمة التي سنسند فيها و هي d التي عرّفناها و قلنا سنسند فيها القاعدة الاصلية لكي لاتتغير قيمها اثناء المعالجة المؤقتة ثم كتبنا كلمة DBEngine و هي عبارة عن نوع قاعدة البيانات التي ستستخدمها و هذا هو محرك قاعدة البيانات من نوع Access ، ثم كتبنا Workspaces(0) و هذا نوع مجال العمل لن نتطرق له الان ، بعد ذلك و ضعنا الامر الذي سيقوم بفتح قاعدة البيانات لكي تستطيع الوصول الى محتواها Opendatabase ، بعد ذلك وضعنا مسار قاعدة البيانات و لكي تتجنب مشكلة تغير المسار من جهاز لاخرنستخدم الدالة App.path اي مسار المحلد الذي يحتوي البرنامج و لاستخدام هذه الطريقة يجب ان تكون قاعدة البيانات في نفس مجلد البرنامج، ثم كتبنا اسم القاعدة و امتدادها
في السطر الثاني من الاجراء كتبنا امر لإظهار الفورم
بإختصار هذه الطريقة ثابته لإسناد اي قاعدة بيانات فقد غير اسم قاعدة البيانات
تنفيذ البرنامج
بعد قيامك بالخطوات السابقة يجب ان تنفذ البرنامج في هذه المرحلة لكي تتأكد انك تسير على الخط الصحيح و قبل ذلك تأكد من انك قمت بجعل الموديول في بدأ التشغيل وذلك بالذهاب الى Project > Project1.proprties.. بعد ذلك حددsub main من القائمة المنسدلة startup object بعد ذلك شغل البرنامج بالضغط على F5 يجب ان تسير الامور على ما يرام و ان لم تكن كذلك تأكد من الخطوات التالية
أنك قمت بحفظ المشروع في نفس المجلد الذي فيه قاعدة البيانات
1
ربط قاعدة البيانات بالكود 2 
.gif)
العرض العادي
