مصطفى عدوية
09-06-2007, 06:22 PM
ربط قاعدة البيانات بالكود 2
هذا الجزء الثاني من الدرس السابق فبعد أن تعلمنا نعرف المتغيرات التي سنعمل عليها و ربطنا قاعدة البيانات يبقى امامنا ربط الجدول واظهار محتويات القاعدة للمستخدم
اما التنقل بين السجلات واوامر الحفظ والتعديل والاضافة فستكون في الجزء الثالث، الان دعونا نبدأ
اولا سنقوم بربط الجدول الذي في قاعدة البيانات ونخزنه في المتغير الذي أنشأناه في الدرس السابق بإسم t علما أن الجدول الرئيسي اسمه tb1 ولكي نقوم بذلك اكتب الامر التالي ف حدث التحميل للفورم load
Private Sub Form_LoadO
Set t = d.OpenRecordset ("tb1", dbOpenTable
End Sub
دعنا نشرح الخطوة السابقة بالتفصيل ، اولا وضعنا ربط الجدول في حدث التحميل للفورم ربما تسأل عن السبب والجواب ان هذا ما يقوم به المحترفون لكي تهيء التعامل مع البيانات عند تحميل الفورم الا اذا كان لديك سبب اخر لتخاف هذه القاعدة
بعذلك و ضعنا جملة الربط للجدول و بدأنا بأمر الاسناد المعروف Set ثم اسم القيمة التي سنسند قيم الجدول فيها و هي التي عرفناها فيما قبل باسم t بعد ذلك نكتب اسم القاعدة المستعار الذي اسندنا القاعدة الاصلية فيه و هو d ثم نكتب الامر الذي سيفتح لنا الجدول لكي نستطيع الوصول الى محتواه و هو Openrecordset بعد ذلك نكتب اسم الجدول الحقيقي بين علامتي تنصيص ونكتب نوع الربط وهو dbopentable استخدم هذه الطريقة فقط و لا تسأل لماذا لانها من الاوامر الثابته ومن انواع الربط و ستستطيع التفريق بين انواع الربط في المستقبل مع كثرة التمارين فلا تستعجل هكذا تكون قد قمت بربط قاعدة البيانات والجدول بواسطة الكود ،،،، مبروك
والان سنتعرف على كيفية اظهار البيانات للمستخدم ، وقبل ذلك قم بتصميم واجهة المستخدم ووضع مربعات النص العناوين كما في الصورة التالية وقد وضحت على الصورة التسميات التي سنعتمدها :
http://www.c4arab.com/images/lessons/databases/pic/c6f1.gif
()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
هذا الجزء الثاني من الدرس السابق فبعد أن تعلمنا نعرف المتغيرات التي سنعمل عليها و ربطنا قاعدة البيانات يبقى امامنا ربط الجدول واظهار محتويات القاعدة للمستخدم
اما التنقل بين السجلات واوامر الحفظ والتعديل والاضافة فستكون في الجزء الثالث، الان دعونا نبدأ
اولا سنقوم بربط الجدول الذي في قاعدة البيانات ونخزنه في المتغير الذي أنشأناه في الدرس السابق بإسم t علما أن الجدول الرئيسي اسمه tb1 ولكي نقوم بذلك اكتب الامر التالي ف حدث التحميل للفورم load
Private Sub Form_LoadO
Set t = d.OpenRecordset ("tb1", dbOpenTable
End Sub
دعنا نشرح الخطوة السابقة بالتفصيل ، اولا وضعنا ربط الجدول في حدث التحميل للفورم ربما تسأل عن السبب والجواب ان هذا ما يقوم به المحترفون لكي تهيء التعامل مع البيانات عند تحميل الفورم الا اذا كان لديك سبب اخر لتخاف هذه القاعدة
بعذلك و ضعنا جملة الربط للجدول و بدأنا بأمر الاسناد المعروف Set ثم اسم القيمة التي سنسند قيم الجدول فيها و هي التي عرفناها فيما قبل باسم t بعد ذلك نكتب اسم القاعدة المستعار الذي اسندنا القاعدة الاصلية فيه و هو d ثم نكتب الامر الذي سيفتح لنا الجدول لكي نستطيع الوصول الى محتواه و هو Openrecordset بعد ذلك نكتب اسم الجدول الحقيقي بين علامتي تنصيص ونكتب نوع الربط وهو dbopentable استخدم هذه الطريقة فقط و لا تسأل لماذا لانها من الاوامر الثابته ومن انواع الربط و ستستطيع التفريق بين انواع الربط في المستقبل مع كثرة التمارين فلا تستعجل هكذا تكون قد قمت بربط قاعدة البيانات والجدول بواسطة الكود ،،،، مبروك
والان سنتعرف على كيفية اظهار البيانات للمستخدم ، وقبل ذلك قم بتصميم واجهة المستخدم ووضع مربعات النص العناوين كما في الصورة التالية وقد وضحت على الصورة التسميات التي سنعتمدها :
http://www.c4arab.com/images/lessons/databases/pic/c6f1.gif
()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