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

--------------------------------------------------------------------------------


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



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


SQL

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

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





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



كود PHP:
Private Sub Command1_Click()
Data1.RecordSource = "Select Filed_Name From Table_Name"
Data1.Refresh
End Sub



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


كود PHP:
Private Sub Command1_Click()
Data1.RecordSource = "Select * From Table1"
Data1.Refresh
End Sub



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


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



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


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




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


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


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


كود PHP:
Private Sub Command3_Click()
Data1.Database.Execute "Update Table1 Set Name = 'Feras' "
Data1.Refresh
End Sub


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


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


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


كود PHP:
Data1.RecordSource = "Select * From Table1 Where Name = 'Ahmed' "
Data1.Refresh
End Sub

النتجية


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


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



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