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

01- الدرس الأول - تعرف على قاعدة البيانات
02 - الدرس الثاني - كيفية صناعة قاعدة البيانات
03 - الدرس الثالث - ربط البرنامج بقاعدة البيانات عن طريق الادوات
04 - الدرس الرابع - التحكم في قاعدة البيانات عن طريق برنامجنا
05 - الدرس الخامس - ربط البرنامج بقاعدة البيانات عن طريق المكتبات والمراجع
06 - الدرس السادس - صناعة التقارير Data Report
07 - الدرس السابع - مدخل الى لغة الاستعلامات الهيكيله الـ SQL وكيفية التعامل معها
08 - الدرس الثامن - انشاء , تعديل , حذف فتح كلمة مرور لقاعدة بيانات
09 - الدرس التاسع - صناعة قاعدة البيانات ومحتوياتها عن طريق الكود
10 - الدرس العاشر - Without Heading

هذا هو تعريف بسيط عن قاعدة البيانات

قاعدة البيانات::::
قاعدة البيانات (معلومات) هي مجموعة من عناصرِ البياناتِ المنطقية المرتبطة مع بعضها البعض بعلاقة
رياضية ، تخزن في جهاز الحاسوب عَلى نحو منظّم، حيث يقوم برنامج (حاسوب) يسمى محرك قاعدة البيانات بتسهيل التعامل معها
و البحث ضمن هذه البيانات و امكانية الاضافة و التعديل عليها. الهدف
الاساسي لقواعد البيانات هو التركيز على طريقة تنظيم البيانات و ليس على التطبيقات الخاصه. اي ان
تصميم البيانات بحيث تكون خالية من التكرار و يمكن استرجاعها و تعديلها و الاضافة عليها دون المشاكل
التي يمكن ان تحدث مع و جود التكرار فيها هو الهدف الرئيسي لمصمم قاعدة البيانات. يتم ذلك عن طريق
ايجاد ثلاث مستويات من التجريد او النماذج لقواعد البيانات تسمى نماذج التطبيع (
Normalizing Forms) ويقصد بها جعل تركيبة البيانات اقرب للطبيعة التصنيفية.

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

في هذا الدرس سوف نقوم بتعلم كيفية انشاء قاعدة بيانات اكسيس ان الخطوة الاولى لعمل قاعدة بيانات هي
بعدية كل البعد عن برنامج الفيجوال بيسك فلعمل قاعدة بيانات نقوم بفتح برنامج الاكسيس عن طريق النقر
على زر Start ثم اختيار All Programe وبعدها اختيار Microsoft Office ومن ثم اختيار
برنامج Microsoft Office Access 2003

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

لانشاء قاعدة بيانات جديدة نقوم بالضغط على قائمة
File ونختر الامر New

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

سوف تظهر لنا قائمة جانبية فيها عدة اختيارات لانشاء قاعدة بيانات نختر منها
انشاء قاعدة بيانات فارغه ( Blank DataBase )

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

فور ضغطنا الزر سوف يظهر لنا مربع حوار صغير
لاختيار المكان الذي نود وضع قاعدة البيانات فيه نختر المكان ولاسم ثم نقوم بالضغط على زر انشاء اما
الان ظهر لنا مربع حوار اخر فيها عدة اختيارات وهذه الاختيارات جميعها تساعدك على عمل جداول
وحقول جديدة لكن بطرق مختلفه جيث الخيار الاول لصناعة الجداول هو بطريقة عرض التصميم والخيار
الثاني باستخدام المعالج والخيار الثالث عن طريق ادخال البيانات نبدء اولا بتعلم انشاء الجداول بطريقة
عرض التصميم نقوم بالضغط على الامر ضغطا مزدوجا سوف يظهر لنا مربع حوار فيها عدو حقول الاول
لاختيار اسم لحقل الذي نود انشائه والثاني لاختيار نوعية الحقل من قيم نصية او رقمية او كائن OLE لخزن
لصور وغيرها واما الحقل الثالث لاضافة تعليق على الحقل يمكننا الان بكل سهولة تجربة عمل حقول مثلا
لنعمل ثلاثة حقول باسماء 1 - الاسم 2 - العمر - 3 المهنة ونحدد نوعها تتم عملية الانشاء بكل بساطة
بالكتابة في مربعات النص الموجوده في مربع الحوار وتحديد قيمته وبالنسبة لمربع ادانة فهو يحتوي على
عدة خيارات اضافية تتحكم بالحقل كان عدد الاحرف الاقصى المسووح كتابتها في لو كان الحقل من نوع قيم
نصية وهل مسموح بان يكون الحقل فارغ ام لا غيرها الان وبعد الانتهاء من كتابة اسماء الحقول المطلوبة بالاضافة
الى نوعها نضغط على زر الاغلاق اعلى اليمين سوف تظهر لنا رسالة لتاكيد هل نود
ان نقوم بحفظ القول التي قمنا بكتابتها بجدول معين نقوم بالضغط على زر نعم سوف يظهر بعدها مربع حوار لاختيار
اسم الجدول يمكننا كتابة الاسم الذ يعجبنا بعد ذلك اذا لم تقم بعمل مفتاح اساسي والمفتاح الاساسي هو عبارة
عن حقل يتم كتابة ترقيم السجلات فيها لسنا بحاجه لهذا الحقل لذا نقوم بالضغط على زر لا وهنا قمنا
بالانتهاء من صناعة الجداول والحقول المطلوبة يمكننا رؤية الجدول بالنقر عليه نقرا مزدوجا كما يمكننا
اضافة بيانات او تعديلها او حذفها بكل سهولة هنالك عدة اختيارات اخرى يمكننا وكثيرة يمكننا تجربتها لن
اقوم بشرحها على اعتبار ان هدفنا التعامل مع قواعد البيانات باستخدام الفيجوال بيسك الان الخطوة الاخيرة
التي بقت هي تحويل قاعدة البيانات الى تنسيق 97 حتى نستطيع التعامل معها من خلال برنامج الفيجوال بيسك باستخدام اداة DataContro
يمكن تحويل قاعدة البينات كما في الصورة الاتية

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

وبعد ان تقوم
بالضغط سوف يظهر لك مربع حوار لاختيار المكان لذي نود حفظ قاعدة البيانات ذات التنسيق القديم نختار
المكان ونضغط حفظ وهنا ينتهي درسنا عن كيفية صناعة قاعدة البيانات

في هذا الدرس سوف نقوم بتعلم بعض الاشياء البسيطة لبدء التحكم بقواعد البيانات بواسطة الفيجوال
بيسك الخطوة الاولى لنا في هذا الدرس هي فتح برنامج فيجوال بيسك 6 واختيار مشروع قياسي
Stander.exe

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

فور اختيار المشروع سوف يقوم برنامج الفيجوال باضافة المشروع لنا لنقوم ببدء عملية
الربط اولا نقوم باضافة الاداة التي سوف نستخدمها لربط برنامجنا بقاعدة البيانات وهي اداة DataControl
تتم عملية اضافة الاداة اما بالنقر عليها نقرا مزدوجا او السحب والافلات على واجهة اطار المشروع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

عند اضافة الاداة نقوم بالبدء بعملية الربط بقاعدة البيانات ببساطة يمكننا الربط عن طريق الخاصية
DataBaseName حيث يعطى مسار قاعدة البيانات لها ليتم الربط مباشرة على ان تكون قاعدة البيانات
ذات تنسيق 97 او اقدم حتى تتعرف عليها الاداة نقوم بتحديد مسار قاعدة البيانات بالضغط على خاصية
DataBaseName من قائمة خصائص الاداة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ويمكن ايضا الربط عن طريق الكود بعميلة اسناد القيم كما في الطريقة الاتية حيث يوضع الكود في حدث
Form_Load

الكود:

Private Sub Form_Load()
Data1.DatabaseName = "Path"
Data1.RecordSource = "Table_Name"
End Sub

م في هذا الدرس سوف نقوم بالتعرف على اهم الاوامر التي تجرى على قواعد البيانات من خلال الفيجوال بيسك كان اضافة سجلا , تعديل , حذف والبحث بين السجلات واضاهر عددها والتنقل فيما بينها سوف نبداء اولا بعمل قاعدة بيانات خاصة لنا كما وضحت سابقا تحتوي على جدول واحد بأسم Table1 وثلاثة حقول هي الاسم , العمر , عنوان السكن بعد الانتهاء من تصميم قاعدة البيانات ندخل على برنامج الفيجوال بيسك 6 لنقوم بوضع الاداوات الالزمه لتشغيل البرنامج سوف نقوم باضافة زر للحفظ وزر للتعديل وزر للحذف وازرار التنقل بين السجلات واضافة اداة DataControl وبعد ذلك والان سوف نقوم باضافة اداة لعرض السجلات تسمى بـ Microsoft Data Bound Grid تتم اضافة الاداة بكل سهولة بالضغط على زر CTRL + T من لوحة المفاتيح سوف فور ضغط الزر سوف يقوم برنامج الفيجوال بعرض مربع حوار خاص كما في الصورة ادناة نقوم باختيار الاداة منه

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

وبعد ذلك باضافتها على واجهة البرنامج لينتهي هنا تصميم شكل البرنامج ويظهر بهذا الشكل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ومن هنا نقوم بالبدء بعميلة الربط اولا نقوم بربط البرنامج بقاعدة البيانات كما وضحت في الدرس السابق وبعد الانتهاء من عملية ربط البرنامج بقاعدة البيانات نقوم بربط الاداة التي تقوم بعرض البيانات باداة الـ DataControl حتى تقوم بعرض البيانات منها بكل بساطة تتم عملية الربط من خلال الخاصية

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

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

الكود:

Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields!الاسم= Text1.Text
Data1.Recordset.Fields!العمر= Text2.Text
Data1.Recordset.Fields!العنوان= Text3.Text
Data1.Recordset.Update
End Sub

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

الكود:

Private Sub Command2_Click()
Data1.Recordset.Edit
Data1.Recordset.Fields!الاسم= Text1.Text
Data1.Recordset.Fields!العمر= Text2.Text
Data1.Recordset.Fields!العنوان= Text3.Text
Data1.Recordset.Update
End Sub 

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

الكود:

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub 

حيث بكل بساطة قمنا بتنفيذ امر لحذف السجل المحدد من قاعدة البيانات نهائيا مع ملاحظة انه لا يمكن استرجاع السجل بعد حذفه مطلقا بالنسبة لاكواد الانتقال بين السجلات سوف تكون كالاتي

الكود:

Private Sub Command4_Click()
Data1.Recordset.MoveNext
End Sub

Private Sub Command5_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Command6_Click()
Data1.Recordset.MovePrevious
End Sub

Private Sub Command7_Click()
Data1.Recordset.MoveLast
End Sub

لا يحتاج الى شرح الاكواد السابقة فلم نقم الا بطلب الانتقال ما بين السجلات على حد سواء يمكنك تجربة الاكواد كما ان كود التحقق من عدد السجلات هو

الكود:

Private Sub Command8_Click()
MsgBox Data1.Recordset.RecordCount
End Sub 

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


الاوامر الاساسية التحكم في قاعدة البيانات

سوف يكون هذا الدرس عبارة عن درس ملحق بالدرس الرابع الجزء الاول وسوف يكون عن كيفية تثبيت مسار قاعدة البيانات وضمان ان البرنامج سوف يبقى متصل بفاعدة البيانات اينما وضع مجلد البرنامج سوف تعتمد طريقتا التالية على الدالة App.Path التي تعطي لنا قيمة نصية وهي مسار مجلد البرنامج الكود بصورة عامة يكون بالشكل الاتي

الكود:

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\DataBase.mdb"
End Sub 

جيث قمنا بالجملة السابقة بتحديد مسار قاعدة البيانات كما تعلمنا لكن هذه المره قمنا باستخلاص مسار مجلد البرنامج حتى نقوم بالربط حيث اولا استخدمنا الداله App.path والتي قامت باستخلاص مسار مجلد البرنامج بعدها علامة \ اي داخل البرنامج بعدها اسم قاعدة البيانات ونوعها

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

الكود:

If Data1.Recordset.AbsolutePosition = -1 Then 

مثل ما ذكرت -1 تعني لا يوجد سجل محدد بالجملة السابقة تقوم بالتحقق واذا كان يساوي -1 اي لا يوجد سجل محدد لتعديل يقوم البرنامج بتنفيذ حدث معين فلو اردنا ان نضع كود التعديل كاملا سوف يكون بالشكل الاتي

الكود:

Private Sub Command2_Click()
If Data1.Recordset.AbsolutePosition = -1 Then
MsgBox "Your Message"
Else
Data1.Recordset.Edit
Data1.Recordset.Fields!الاسم = Text1.Text
Data1.Recordset.Fields!العمر = Text2.Text
Data1.Recordset.Fields!العنوان = Text3.Text
Data1.Recordset.Update
End If
End Sub 

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

الكود:

Private Sub Command3_Click()
If Data1.Recordset.AbsolutePosition = -1 Then
MsgBox "Your Message"
Else
Data1.Recordset.Delete
End If
End Sub 

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

الكود:

Private Sub Command5_Click()
If Data1.Recordset.RecordCount = 0 Then
MsgBox "Your Message"
Else
Data1.Recordset.MoveFirst
End If
End Sub 

الموضوع سهل جدا لقد وضعنا شرط لتحقق من عدد السجلات فاذا كانت صفرا يقوم باظهار رسالة للمستخدم تقوم بتنبيه اما اذا كانت عدد السجلات اكثر من واحد فسوف يتنفذ الحدث بكل سلاسة وكذلك الكود سوف يكون بالنسبه لكود الانتقال الى السجل الاخير ونفس الشرط السابق انتهينا تقريبا ,, لكن هل تفكر بما افكر به بقى لدينا زرا امر وهي الانتقال الى السجل التالي والانتقال الى السجل السابق ما الخطأ الذي نتوقعه منهم الخطأ الذي نتوقعه هو ان يقوم البرنامج بالانتقال من السجل الاخير الى الفراغ اي يخرج من فهرسة وعند محاولة الانتقال سوف يظهر الخطأ لحل هذه المشكله سوف نقوم بوضع كود بسيط لتحقق من اذا كان البرنامج واقف على السجل الاخير فاذا كان واقف على السجل الاخير لا ينفذ حدث الانتقال حتى لا يخرج من الفهرسة واذا كان واقف على السجل الاول ويحاول الرجوع لا يسمح له بذلك سوف نقوم في هذان الكودان باستخدام الخواص Eof و Bof وكلتاهما تعطين قيم هي اما True او False والخاصية Eof هي لتحقق اذا كان البرنامج خارج اطار الفهرسة من بعد مروره على السجل الاخير والخاصية Bof لتحقق من اذا ما كان البرنامج خارج اطار الفهرسة بعد مروره على السجل الاول فسوف يكون الكود بكل بساطة كالاتي

الكود:

Private Sub Command4_Click()
If Data1.Recordset.EOF = True Then
Your Command
Else
Data1.Recordset.MoveNext
End If
End Sub 

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

الكود:

private Sub Command6_Click()
If Data1.Recordset.BOF = True Then
Your Command
Else
Data1.Recordset.MovePrevious
End If
End Sub 

في هذا الدرس وبعد ان اتممنا شرح الاوليات لدخول الى عالم قواعد البيانات سوف ابدء بتعلمكم كيفية الاستغناء عن الادوات والربط عن طريق المكتاب ( مكتبات Dao ) ان الفائده من استخدام المكتبات هو امكانية التحكم فيها من جميع اجزاء المشروع بالاضافة الى خصائص عديدة سوف نتعرف عليها اولا لبدء في درسنا نقوم باضافة المكتبات التي نود اضافتها لبرنامجنا نقوم اولا بفتح مشروع قياسي Stander.exe ونقوم باختيار الامر التالي من القائمة Project

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

فور اختيارنا للامر السابق سوف يظهر لنا مربع حوار فيه جميع المكتبات التي نستطيع استخدامها سوف نختار منها واحدة من المكتبات الموضحه بالصوره والفرق بين كل مكتبة واخرى اصدارها وهل هي تدعم تنسيقات الاكسيس الحديثه ام لا كان 2003 يستحسن ان نختر المكتبة الثالثة والتي تسمح لنا بالربط حتى مع قاعدة بيانات اكسيس 2003 فور تعليمنا الاداة نضغط على زر OK لاضافتها

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

فور اضافتنا للمكتبة سوف نبدء بالدخول الى الشيفرات وكيفية الاعلان عنها واستخدامها لعلمك ان الموضوع سهل للغاية وعند التعامل معها احسب نفسك تتعامل مع الاداة DataControl نفسها نبدء اولا نقوم بالتعريف عن متغير يمثل قاعدة البيانات ومتغير اخر يمثل الجداول بالشكل الاتي

الكود:

Dim Db As DAO.Database
Dim Re As DAO.Recordset 

مع ملاحظه ان طريقة الاعلان بـ الكلمة Dim او Public هي التي سوف تحدد عمومية الاستخدام بعد التعريف عنها سوف نقوم بكل سهولة بالربط بقاعدة البيانات والجداول سوف اقوم الان بطرح كل كود وسوف اشرحه وبعد ذلك سوف نلخص ما تعلمنه في مثال عملي اولا كيفية الربط تتم عملية الربط بقاعدة بيانات بكل سهولة بالشكل الاتي

الكود:

Private Sub Form_Load()
Set Db = OpenDatabase("DataBase Path")
Set Re = Db.OpenRecordset("Table Name", 2)
End Sub 

حيث كل ما فعلنه في السطر الاول اننا قمنا باسناد مسار قاعدة البيانات لفتحها والعمل عليها وفي السطر الثاني قمنا بفتح جدول معين في قاعدة البيانات باستخدام الخاصية المعينه لفتح الجدول المراد العمل عليها وبالنسبه لرقم 2 فهو طيقة فتح الجدول حيث 2 تعادل SnapShot وهكذا وبالخطوة السابقة اتممنا فح الجدول وقاعدة البيانات التي نود العمل عليها اذا كنت تتسائل كيف اسوف اضيف بيانات او اعدل فسوف اقول لك ان الامر كما هو في اداة الـ DataControl مثلا لاحظ كود الاضافة

الكود:

Re.AddNew
Re.Fields!Filed_Name = Value
Re.Update 

لاحظ انه لا يوجد فرق لذا لن اقوم بشرح جميع الاوامر لانها نفس اوامر DataControl بل سوف اكتفي بطرح مثال مناسب لك في المرفقات اتمنى ان اكون قد ساعدتك على الفهم

سوف يكون درسنا اليوم هو عن كيفية صناعة التقارير ( DataReport ) البسيطه والتي تقوم بعض البيانات بصورة منسقه لتسهيل طباعتها وغيرها لن نحتاج اي ادوات او مكتبات لعمل التقارير فيتم الربط كله ببيئة خاصه للربط ويقام باضافة هذه البيئه بالطريقة الاتية كما في الصورة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

فور اضافتنا لهذه البيئة يجب علينا بدء الربط بقاعدة البيانات التي نود صناعة التقرير لها الموضوع سهل جدا بكل بساطة نقوم بالضعط على زر الخصائص

سوف يظهر لنا مربع حوار كما في الصورة الاتيه لتحديد محرك قاعدة البيانات ( DbEngine ) نقوم باختيار الاختيار الموضح بالصورة


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ثم نقوم بالضغط على زر التالي ( Next ) هنا وكما تلاحظ يوجد لدينا مربع نص وزر استكشاف ( Browse ) لادخال مسار قاعدة البيانات لدي ملاحظه بسيطه والكثير لا يعلمها لو كانت قاعدة البيانات في مجلد البرنامج كل ما عليك هو فقط ادخال اسم قاعدة البيانات وامتدادها فقط ! وسوف يقوم البرنامج بالربط وكذلك يفضل رابط حتى لو تغير مسار المجلد وتعتبر هذه الطريقة الفضلى لربط اما اذا كانت قاعدة البيانات في مكان اخر يمكنك الضغط على الزر واختيار المسار لو كانت هنالك كلمة مرور قم بادخالها واضغط زر التحقق من الاتصال ( Test connection ) لو اعطى النتيجه ايجابيه اذن انتهينا من نصف العمل وبقى النصف الاخر فلقد ربطنا قاعدة البيانات الان نقوم باضافة الجدول المراد عرضه ضمن التقرير وذلك من خلال اضافة زر ( Command ) تابع للاتصال( connection )

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

الرئيسيي ونقوم بالضغط على زر الخصائص سوف يظهر لنا مربع حوار بسيط جدا نقوم باختيار من مربع السرد ( Combo Box ) الذي يطلب منا تحديد نوع الكائن ( DataBase Object ) جدول ( Table ) فور اختيارنا لنوعية الكائن ( Object ) ننزل ونختار الجدول المراد عرضه ونقوم بالضط على زر موافق ( OK ) فور ضغطنا لزر السابق سوف نلاحظ اضافة كافة الحقول الموجوده داخل هذا الجدول بعلاقه فرعية لزر الامر الذس قمنا باضافته من هنا نكون قد انتهينا من عملنا في هذه البيئة لم يبقى لنا الا اضافة التقرير ( Data Report ) واضافة بعض مربعات النص ( Text Box ) لعرض المخرجات وبهذا نقوم انتهينا تتم الاضافة بكل بساطة كما في الصورة الاتية فور اضافتنا للتقرير يجب علينا ربط التقرير ببيئة العمل السابقة وذلك من خلال خاصية المصدر ( Data Source ) نقوم باختيار بيئة العمل و Data Member الى Command الزر الذي قمنا باضافته وبعد ذلك يمكننا البدء باضافة مثلا مربع نص قم بالسحب والافلات على الواجه اختر الحقل من خلال خاصية الحقل ( Data Filed ) اكتب الكود الاتي في زر امر بسيط قد وضعته على واجهة اطار ( Form ) وشغل البرنامج ولاحظ ::::

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

درس من ظمن سلسلة دروس تعليم برمجة قواعد البيانات باستخدام الفيجوال بيسك 6
والذي سوف يشرح لغة الاستعلامات الهيكلية الـــــ

SQL
مقدمة عن هذه اللغة
بداية قد نود تعرف هذه اللغة ويمكننا تعرف هذه اللغة بأنها أحدى لغات الحاسب لتعامل مع قواعد البيانات وأجراء الكثير من العمليات عليها وتقسم هذه العمليات إلى جزأين هما قسم
DML وهو الجزء الخاص بمعالجة البيانات كان إضافة,تعديل,حذف,بحث,ترتيب السجلات وغيرها وجزء
DDL وهو الجزء المسئول عن التعريفات كان تعريف كائنات قواعد البيانات من حقول الخ.. أو حتى أنشاء قاعدة البيانات نفسها

البداية والخطوة الأولى
نقوم بعمل قاعدة بيانات تتكون من الاتي ونفتح مشروع قياسي Stander.exe

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

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

الكود:

Private Sub Command1_Click()
Data1.RecordSource = "Select Filed_Name From Table_Name"
Data1.Refresh
End Sub 

شرح الكود + الاستعلام السابق
لاحظ صيغة الاستعلام السابق اولا طبعا الخاصية RecordSource للاداة وهي الخاصية التي تستخدم عند القيام بعملية قرائة بيانات من قاعدة البيانات بشكل ما بوساطة استعلام SQL حيث تقوم الصيغة كما ذكرت اعلاه اولا الكلمة المحجوزة Select ثم يليها اسم لحقول المراد اضهارها وفي حال كنا نرغب بعرض جميع السجلات نقوم بكتابة العلامة * او في حال اكثر من حقل نفصل بينهما بعلامة الفاصلة " , " ومن ثم بعد ذلك الكلمة المحجوزة From وبعد ذلك اسم الجدول ثم الامر Data1.Refresh لتنفيذ الاستعلام
لاحظ أني شرحت كيفية عرض حقول مخصصة من قاعدة البيانات يمكننا الان وبعد معرفة الصيغة العامة البدء بالتطبيق ببرنامجنا من خلال كتابة الاستعلام كالأتي

الكود:

Private Sub Command1_Click()
Data1.RecordSource = "Select * From Table1"
Data1.Refresh
End Sub 

لو جربنا الاستعلام السابق لأعجبتنا النتيجة
ويمكننا تغير علامة الـ * وإبدالها بأسماء الحقول المراد عرضها وألان شرحت كيفية عرض حقول معينة من قاعدة البيانات ومن جدول معين لنتقل ألان لتعلم استعلام إضافة سجل جديد

الكود:

Private Sub Command2_Click()
Data1.Database.Execute "Insert Into Table_Name(Filed_Name)Values(‘Value’)"
Data1.Refresh
End Sub 

لو لاحظت هذه المرة كيفية استعمالنا للاستعلام قمنا هذه المرة باستخدام الخاصية Execute لأننا قلنا إن الخاصية السابقة لعرض وجلب البيانات فقط ثم بعد ذلك قمنا بكتابة الاستعلام مباشرة حيث تبدأ عملية الإدخال بالكلمة المحجوزة Insert Into ويليه اسم الجدول ومن ثم نفتح قوس هلالي ونكتب به أسماء الحقول ويمكننا الفصل بين كل حقل وأخر بالـ " , " فاصلة وعند الانتهاء من كتابة أسماء الحقول نقوم بإغلاق القوس الهلالي وكتابة الكلمة Values والتي تعني البدء هنا بإعطاء القيم ونفتح قوس ايظا ونكتب القيم ومن هنا أحب إن أوضح نقطه وهي إن القيم سوف تدخل حسب التسلسل الذي تم إدخاله إي الحقل المكتوب أولا سوف يتسلم القيمة الأولى وهكذا وهنا ايظا أحب إن أوضح نقطة وهي إننا كلنا تعرف بالفيجوال بيسك تتم كتابة القيم النصية ما بين علامتي "التنصيص" المزدوجة لكن هنا ما العمل وما هو الحال بالنسبة للأرقام أولا بالنسبة للقيم النصية تتم كتباتها ما بين علامة ‘التنصيص المفردة’ إما بالنسبة للأرقام فتكتب دون إي علامة إي تكتب مباشرة وهنا وضحت النقاط وشرحت الاستعلام السابق
وبعد ان انتهيت من شرح استعلام الاضافة لدي فكرة بان نجربه على برنامجنا بعد اضافة زر امر اخر

الكود:

Private Sub Command2_Click()
Data1.Database.Execute "Insert Into Table1(Name,Age,Jop)Values('Ahmed',15,'’طالب')"
Data1.Refresh
 End Sub 

الان جرب البرنامج ولاحظ
هل اعجبك رائع جدا للنتقل الى استعلام تعديل سجل ان استعلام تعديل السجل تكون الصيغة العامة له بالشكل الاتي

الكود:

Private Sub Command3_Click()
Data1.Database.Execute "Update Table_Name  Set Filed_Name = 'New Value' "
Data1.Refresh
End Sub 

وهذه هي الصيغة العامة لتعديل سجل او بالاحرى تعديل جميع السجلات (لا تستعجل في العجلة الندامة وفي التائني السلامة ويقولون اسئل مجرب ولا تسئل حكيم )
الصيغة العامة كلمة Update المحجوزه ثم اسم الجدول وبعد ذلك الكلمة Set فاسم الحقل و = القيمة الجديدة وبعد ذلك تنفيذ الاستعلام بواسطة السطر الثاني من هذا الاستعلام
اذن سوف يكون الاستخدام في برنامجنا كالاتي

الكود:

Private Sub Command3_Click()
Data1.Database.Execute "Update Table1 Set Name = 'Feras' "
Data1.Refresh
End Sub 

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

الكود:

Private Sub Command4_Click()
Data1.RecordSource = "Select * From Table_Name Where Filed_Name= 'Ahmed'"
Data1.Refresh
End Sub 

الصيغة العامة بكتابة الكلمة Where ومن ثم اسم الحقل و = والقيمة فقط
الان نجرب الاستعلام على برنامجنا

الكود:

Data1.RecordSource = "Select * From Table1 Where Name = 'Ahmed' "
Data1.Refresh
End Sub 

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

الكود:

Private Sub Command3_Click()
Data1.Database.Execute "Update Table1 Set Name = 'Ahmed' Where Name = 'Feras'"
Data1.Refresh
End Sub 

كما لاحظنا الامر ليس بصعب كل ما فعلنه اننا اضفنا جملة Where يمكنك تجرب البرنامج والاستمتاع بالنتائج

والان وفي درسنا البسيط هذا سوف نتعلم كيفية انشاء كلمة مرور لقاعدة البيانات بالاضافة الى تعديلها او حذفها الموضوع بغاية البساطة ولن يكون اكثر من 5 اسطر للبداية نقوم بعمل قاعدة بيانات فارغه تنسيق 97 ونقوم بفتح مشروع جديد ضمن برنامج الفيجوال بيسك ونقوم مباشرة باضافة الادوات الالزمه وهي اداة Data Control للربط ومربع نص وزر امر فور اضافة الادوات السابقة وترتيب واجهة المشروع نبدء بالشيفرات اولا سوف نقوم بربط قاعدة البيانات بالبرنامج بعدها نعلم برنامج الفيجوال باننا نود ان يكون الفتح خاص من اجل ان نستطيع تغير كلمة المرور بعدها نظهر مربع لمستخدم لكتابة كلمة مرور قاعدة البيانات الحاليه بعدها ادخال كلمة المرور وفتح قاعدة البيانات اذا كانت صحيحه سوف نطبق الخطوات السابقة كما يلي

الكود:

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\DataBase.mdb"
Data1.Exclusive = True
X = InputBox("ادخل كلمة مرور قاعدة البيانات للاستمرار")
Data1.Connect = ";Pwd=" & X
 End Sub

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

الكود:

Private Sub Command1_Click()
Data1.Database.NewPassword X, Text1.Text
End Sub 

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

اليوم في درسنا الاخير سوف نتعلم انا وانت معا كيفية انشاء قاعدة بيانات عن طريق الكود من دون الحاجه حتى لفتح برنامج الاكسيس الموضوع بغاية البساطة لكننا سوف نقوم باستخدام المكتبات في هذا المثال ولن نقوم باستخدام اداة DataControl الخطوة الاولى في درسنا هذا هو اضافة مكتبة DAO كما شرحت في الدروس السابقة وبعد ذلك نبدء بالتعريف عن الكائنات الرئيسية التي سوف نقوم باستخدامها

الكود:

Dim Ws As DAO.Workspace
Dim DataBase As DAO.DataBase
Dim T1 As DAO.TableDef
Dim F As DAO.Field 

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

الكود:

Set Ws = DBEngine.Workspaces(0)
Ws.CreateDatabase App.Path & "\Ahmed.Mdb", dbLangGeneral 

في السطر الاول قمنا بتحديد المحرك الذي سوف نعمل عليه وهو محرك الاكسيس
بعدها استخدمنا الخاصيه CreateDatabase لصناعة قاعدة البيانات لنا بالاسم والمسار الذي حددناه اما بالنسبه للبارميتر الثاني فهو نوعية قاعدة البيانات لو اردنا ان نجرب الكود السابق فسوف نعلم انه في السطرين السابقه قمنا بعمل قاعدة بيانات فارغه من خلال الكود وما بقى غير اضافة الجداول والحقول لعمل الجداول والحقول سوف نعتمد على كائن قاعدة البيانات وكائن الجداول الذي قمنا بالتعريف عنه لبداية العمل نقوم بفتح قاعدة البيانات التي نود العمل عليها بعد ذلك نقوم بصناعة الجدول واسناد الحقول له ومن ثم اسناد الجدول لقاعدة البيانات بالشكل الاتي

الكود:

Set DataBase = Ws.OpenDatabase(App.Path & "\Ahmed.Mdb", 1)
Set T1 = DataBase.CreateTableDef("Table1")
Set F = T1.CreateField("Filed", dbText)
T1.Fields.Append F
DataBase.TableDefs.Append T1 

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

الكود:

Set Ws = DBEngine.Workspaces(0)
Ws.CreateDatabase App.Path & "\Ahmed.Mdb", dbLangGeneral
Set DataBase = Ws.OpenDatabase(App.Path & "\Ahmed.Mdb", 1)
Set T1 = DataBase.CreateTableDef("Table1")
Set F = T1.CreateField("Filed", dbText)
T1.Fields.Append F
DataBase.TableDefs.Append T1
DataBase.Close
MsgBox "Complete", vbInformation