ربط قاعدة البيانات بالكود 2 

 

7

رقم الدرس

متقدم :

مستوى الدرس

حمد راشد الماجد:

الكاتب
           

 

يجب قراءتها

:المقدمة

هذا  الجزء الثاني من الدرس السابق فبعد أن تعلمنا نعرف المتغيرات التي سنعمل عليها و ربطنا قاعدة البيانات يبقى امامنا ربط الجدول و اظهار محتويات القاعدة للمستخدم ، اما التنقل بين السجلات و اوامر الحفظ و التعديل و الاضافة فستكون في الجزء الثالث، الان دعونا نبدأ

 

 

الدرس

اولا سنقوم بربط الجدول الذي في قاعدة البيانات و نخزنه في المتغير الذي أنشأناه في الدرس السابق بإسم   t  علما أن الجدول الرئيسي اسمه  tb1 ولكي نقوم بذلك اكتب الامر التالي ف حدث التحميل للفورم  load

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

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

بعذلك و ضعنا جملة الربط للجدول و بدأنا بأمر الاسناد المعروف  Set  ثم اسم القيمة التي سنسند قيم الجدول فيها و هي التي عرفناها فيما قبل باسم  t  بعد ذلك نكتب اسم القاعدة المستعار الذي اسندنا القاعدة الاصلية فيه و هو  d  ثم نكتب الامر الذي سيفتح لنا الجدول لكي نستطيع الوصول الى محتواه و هو  Openrecordset  بعد ذلك نكتب اسم الجدول الحقيقي بين علامتي تنصيص و نكتب نوع الرط وهو  dbopentable  استخدم هذه الطريقة فقط و لا تسأل لماذا  لانها من الاوامر  الثابته و من انواع الربط و ستستطيع التفريق بين انواع الربط في المستقبل مع كثرة التمارين فلا تستعجل ، هكذا تكون قد قمت بربط قاعدة البيانات  و الجدول بواسطة الكود ،،،، مبروك 

 

و الان سنتعرف على كيفية اظهار البيانات للمستخدم ، و قبل ذلك قم بتصميم و اجهة المستخدم ووضع مربعات النص العناوين كما في الصورة التالية و قد وضحت على الصورة التسميات التي سنعتمدها :

و الان سوف ننشئ اجراء اظهار البيانات لكي نستدعيه في كل مرة نجتاجه بدلا من اعادة كتابته  سيكون على الشكل التالي:

Private Sub showdata()
If t.RecordCount < 1 Then Exit Sub   ' عندما يكون الجدول فارغ اخرج من الاجراء
Text1.Text = t!Name    'نضع في مربع النص الاول قيمة حقل الاسم في الجدولt
Text2.Text = t!num    ' نفس الخطوة السابقة لحقل رقم السلعة
Text3.Text = t!price   'نفس الخطة السابقة لحقل السعر
End Sub

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

بعد ذلك نقوم بإظهار قيمة ما في الحقول في مربعات  النص ، و لاحظ أننا استخدمنا علامة  التعجب ! لكي تفصل بين اسم الجدول المستعار و اسم الحقل ، يجب أن تفرق بين اسم الدول او القاعدة المستعار و الاصلي و متى نستخدم كل منهما 

و الان يجب أن نضيف امر استدعاء لإجراء العرض عند تحميل البرنامج فسيكون الامر في حدث التحميل هكذا :

 
Private Sub Form_Load()
Set t = d.OpenRecordset("tb1", dbOpenTable)
Call showdata
End Sub
 

انقر هنا  لتسحب مثال جاهز لهذا الدرس من الان لتستطيع تتبع الخطوات التي تقوم  بها علما أن هذا المثال لهذا الدرس  و الذي قبله  و ايضا  للدرس التالي لأن موضوعهم واحد

 

ربط الجدول بالكود و عمل اجراء اظهار البيانات

الحد الأدنى من  الأهداف التعليمية

الدرس التالي


Counter

الصفحة الرئيسية| الفهرس  | حيل و أفكار | كتب | مواقع | إتصل بنا

جميع الحقوق محفوظة © 2000