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

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

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

طبعا هذا الدرس من الدروس المتقدمة في نظري لذلك لن يكون في الدرس صور لأنه يفترض أن القارىء يكون ملم بالأساسيات من إضافة الأزرار ومربع النص وغيرها .

أنا سأتبع في شرحي للموضوع الآتي :-

* إعتماد النسختين الإنجليزية والمعربة.

* سيكون الشرح على الإصدار السادس.

*شرح الأكواد بشيء من التفصيل .

بسم الله نبدأ الدرس الاول .

أولاً/ يجب أن يكون عندك قاعدة بيانات جاهزة .

ثانيا / قم بحفظ المشروع في مجلد القاعدة.

س/ ماذا سأفعل بعد تنفيذ الخطوة الأولى والثانية ؟

ج/ستقوم بربط القاعدة بالبرنامج وللتسهيل سنضع تصور للذي سنفعلة وهو كالتالي:-

1/ سنستخدم تقنية DAO وذلك بإضافة المكتبة الخاصة بها.

2/ سنضيف موديول .

3/ سنجعل الموديول في بدأ التشغيل.

4/ستكون هناك أكواد مكتوبة في الموديول وأخرى في حدث تحميل الفورم.

هذا تصور عن ماذا سنفعل والآن لندخل في الجد .

لنتفرض أن لدينا قاعدة بيانات بإسم (A) وجدول بإسم b وأن الجدول يحتوي على حقلين الأول (name) والثاني (num) على هذا الإفتراض سنبدأ وأنت ضع المناسب لك .

الخطوة الأولى/ نقوم بإضافة مكتبة DAO وذلك بإتباع التالي:-

من القائمة المنسدلة مشروع (Project) نختار الأمر مرجعية (Refrence) ثم نحدد الإختيار

Microsoft DAO 3.51 Object Library وبعدها نضغط موافق.

الخطوة الثانية/ نضيف للمشروع موديول وذلك بإتباع الآتي:-:-<ملاحظة / لا تهتم لحرف W الذي في الكود لآني كتبتة لأجل أن يستقيم الكود>

من القائمة المنسدلة مشروع (Project) نختار الأمر أضف وحدة نمطية (Add Module).

الخطوة الثالثة/ نكتب الكود التالي في الموديول:

Public d As Database
Public t As Recordset
Private Sub main()W
Set d = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\A.mdb")W
Form1.Show
End Sub

الشرح/ في السطر عرفنا متغير d على أنه قاعدة بيانات وفي الثاني عرفنا متغير t على أنه جدول في الثالث إسم لإجراء

في السطر الرابع قمنا بإسناد قاعدة البيانات للمتغير d وذلك كالتالي:-

أمر الإسناد set ثم إسم المتغير d ثم نوع قاعدة البيانات DBEngine وهذا محرك قاعدة البيانات من نوع access

ثم كتبنا نوع مجال العمل وبعدة أمر فتح قاعدة البيانات بعد ذلك وضعنا مسار قاعدة البيانات ولكي نتجنب مشكلة تغير المسار إستخدمنا الدالة.

App.path أي في نفس المجلد الذي يحتوي البرنامج ثم كتنا إسم القاعدة وإمتدادها

وفي السطر الخامس أمر إستدعاء الفورم

وفي السادس إنهاء الإجراء

الخطوة الرابعة/نجعل الموديوم في بدأ التشغيل وذلك بإتباع التالي:-

من القائمة المنسدلة مشروع (Project) نختار الأمر خصائص المشروع (Project1.proprties)ومن القائمة المتسدلة بدأ التشغيل

(startup object)نختار sub main.

الخطوة الخامسة/ ربط الجدول الذي أسميناه b ولتحقيق ذلك إتبع الآتي :-

أكتب الكود التالي في حدث تحميل الفورم { لا تهتم للـ(W) التي توجد في الكود}

Private Sub Form_Load()W
Set t = d.OpenRecordset("B", dbOpenTable)W
End Sub

شرح الكود/بدأنا الكود بأمر الإسناد ثم إسم القيمة التي سنسد قيم الجدول فيها وهي التي عرفناها في الموديول بإسم t بعدها وضعنا إسم المتغير الذي أسندنا القاعدة الأصلية إلية.

بعدها أمر فتح وطبعا الأمر موجة للجدول الذي وضعنا إسمة الحقيقي بين علامتي تنصيص وبعدة نوع الربط وهذه الطريقة ثابتة وهي من أنواع الربط. بهذا نكون قد ربطنا القاعدة بالبرنامج .

الخطوة السادسة/ إظهار البيانات للمستخدم ولتنفيذ ذلك إتبع الآتي :-

أولاً/ نقوم بتصميم الواجة ونجعل فيها أداتين مربع نص (Textbox) وأزرار وسنذكرها في الجزء الثاني

س/ لماذا أداتين ؟ ج/ لأن عدد الحقول في القاعدة التي إستخدمناها في الشرح حقلين .

ثانياً/ أكتب الكود التالي :-

Private Sub showdata()W
If t.RecordCount < 1 Then Exit Sub
Text1.Text = t!Name
Text2.Text = t!num
End Sub
Private Sub Form_Load()W
Set t = d.OpenRecordset("B", dbOpenTable)W
Call showdata
End Sub

الشرح/في السطر الثاني أمر إن كان الجدول لا يحتوي شي أخرج من الإجراء طبعا إن كان العكس فسينفذ البرنامج

الخطوات التالية في السطر الثالث والرابع ربط مربع النص بما يقابلة في الجدول ولاحظ أننا وضعنا علامة تعجب بين المتغير و إسم الحقل

ثم أنهينا الإجراء وبعد ذلك بدأنا إجراء آخر والهدف منه إظهار محتويات الجدول في مربع النص المقابل

وكان الإجراء في حدث التحميل للفورم .

بهذا نكون قد أنهينا الجزء الأول وغدا إن شاء الله الجزء الثاني وهو يتعلق بالأوامر المباشرة من حذف وتعديل وإضافة وغير فإلى اللقاء إن شاء الله.