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

بسم الله الرحمن الرحيم

اشهد أن لا إله إلا الله وأن محمد عبده ورسوله خاتم الأنبياء والمرسلين.

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

......في الحلقة السابقة تم الحديث عن مكتبة الـ DAO وكان الكلام موجة بالخصوص علي الجزئية الخاصة بـعمل AddNew و Update.

في هذه الحلقة سيتم الكلام عن الأمر الخاص بـ Find وكيفية عمل Find باستخدام Combobox والتكلم عن جمل الاستعلام SQL باستخدام مكتبة الـ DAO.

الأمر SAVE:

هنا سأقوم بشرح الأمر نظري أولا:

كما تري في الصورة التالية يوجد الـ Form التي تم العمل عليها في المحاضرة السابقة ولكن بإضافة Button وتم تغيير خاصية الـ Caption إلي Save.

أولا:- كما بالصورة يتم الاستدعاء بدلالة الاسم لكي يتم البحث داخل قاعدة البيانات لابد من حجز متغير بالذاكرة يتم من خلاله النداء علي الاسم المراد البحث عنه كما يلي:

Dim x As String

ومن ثم حجز السجل في الـ Memory داخل المتغير الذي قمنا بالإعلان عنة في المحاضرة السابقة المسمي RS وكان من النوع Recordset وذلك من خلال الكود التالي:

	RS.FindFirst " name = '" + x + "'"

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

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

أظن كده مفهوم:

هنا يأتي مرحلة التطبيق العملي.

يتم فتح شاشة الكود الخاصة بزر Find ويتم كتابة الكود التالي:-

Private Sub Command3_Click()

طريقة أخري لكتابة الكود:

Private Sub Command3_Click()

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

وهذا لا يصح طبعا!!!!!!

ملاحظة: أي شيء مع البرمجة ممكن وأي مشكلة يتم حلها بأكثر من طريقة.

أظن كود الحفظ مفهوم.

بسم الله الرحمن الرحيم

نكمل

الأمر Delete:

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

في الخطوة السابقة عند عمل استدعاء لسجل ما يقوم المؤشر بالوقوف علي ذلك السجل وعند الضغط علي زر Delete يقوم البرنامج بحذف السجل الذي يقف علية المؤشر.

كود الأمر Delete:

Private Sub Command4_Click()

والي هنا قد تعلمنا كيفية عمل New و Save و Find و Delete كل هذا باستخدام مكتبة DAO مباشرة بالكود ولم أتكلم عن استخدام Data Control ليس لأنها مش مهمة بل هي أداة مهمة جدا لم أتكلم عنها لأنها مش محتجة شرح وأظن أنها مشروحة في المنتدى ولكن يعيبها بعض الأمور أنها لا تنفع مع المشاريع الكبيرة نسبيا يعني:

لو عندك مشروع صغير يتكون من أربع أو خمس Forms وقاعدة بيانات صغيرة إذا يمكنك التعامل معها أما لو كان يتكون البرنامج من عشر Forms وأكثر سوف يكون هنا حمل زائد نظرا لفتح قنوات اتصال كثيرة وهنا من الممكن أن يضرب البرنامج ويعمل مشاكل أنت في غني عنها, وليس معني ذلك أن تنسيData Control لا سوف تحتجها في بعض الأحيان وفي بعض الأحيان سيتم التعامل مع مكتبة الـ DAO من خلال الكود

ملاحظة:- كل هذا الكلام مدخل للمشروع الذي سيتم طرحة في أخر الكلام عن موضوع DAO وبعدها سيتم الدخول علي مكتبة ADO وسوف يكون الكلام عليها كثيرا نظرا لأهميتها.

* كيفية استدعاء حقل معين ووضعه داخل Combobox

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

نقوم أولا بإضافة Button و Combobox ليصبح شكل الـ Form كما بالشكل التالي:

سنقوم الأن بكتابة الكود الخاص بعملية التعبئة الخاصة بـ Combobox وسيتم كتابة الكود في منطقة الـ Combobox ذات نفسه في الحدث الخاص عندما يتم الضغط علي Combobox لكي يتم أظهار ما بالجدول وهذا الحدث يسمي DropDown وهذا الكود ينفذ عند الضغط علي Combo لإظهار القائمة الخاصة بهي.

الكود DropDown:

Private Sub Combo1_DropDown()

شرح الكود:

DO while هذه حلقة بدايتها DO ونهاية هذه الحلقة Loop.

وهذه الحلقة المراد منها ( سأقوم بشرح الكود أثناء عمله )

DO while أفعل عندما يكون RS.EOF معني EOF (End Of File) أي الوصول لنهاية الملف وعكسها (BOF) وقد قمت بوضع Not قبلها أي أفعل طول ما RS موصلتش إلي نهاية الملف.

Combo1.AddItem RS ("Name") ضيف Item في Combo سيقوم بإضافة أول اسم في الجدول ثم RS.Movenext أنزل علي الذي يليه فتقف RS علي هذا الحقل وبعد ذلك تقبله Loop ثم يلف ثاني داخل الحلقة RS موصلتش إلي نهاية الملف أه يلقي RS وقفة علي الاسم الثاني يقوم بإضافتها ثم تقوم RS بالنزول إلي السجل الذي يليه الثالث وبعد ذلك تقبله Loop فيستمر في هذه الحلقة حتى يصل إلي نهاية الملف فعند ذلك يتوقف الـ Loop.

جرب الكود السابق وتأكد من عمله بشكل جيد.

هنا تم ملئ الـ Combobox بجميع الأسماء التي توجد بحقل Name كما نريد الباقي هنا كتابة الكود الخاص بعملية Find بناء علي الـ Combobox.

كود Find بناء علي الـ Combobox:

	RS.FindFirst " name = '" + Combo1.Text + "'"	If RS.NoMatch Then

أظن هذا الكود مفهوم هو نفس الكود الخاص بعملية البحث الذي تم شرحها أولا و التغير كان بدل من استخدام متغير في عملية البحث هنا تم استخدام Combobox في عملية البحث وهذه الطريقة تستخدم كثيرا في مساعدة المستخدم في أدخال البيانات بدل كتابتها وهذا ما سنتعرف علية في وقته إن شاء الله وسيكون ذلك عند الحديث عن المشروع الذي سننهي بهي الحديث عن مكتبة الـ DAO.

بسم الله الرحمن الرحيم

{ يا أيها الناس إنا خلقناكم من ذكر وأنثى وجعلناكم شعوبا وقبائِل لتعارفوا.صدق الله العظيم }

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

-- مقدمة:-

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

تقسم تعابير لغة SQL إلي قسمين:

-- تعابير لغة التعامل بالمعطيات ( DML ) Data manipulation Language

-- و تعابير لغة تعريف المعطيات ( DDL ) Data Definition Language

تسمح لغة التعريف DDL بتعريف جداول المعطيات، الدلائل ( Indexes ) والعلاقات.

وتسمح تعابير لغة DML باختيار وترتيب وتلخيص ( Summarize ) وحساب المعلومات المخزنة في جداول المعطيات.

سنقتصر هنا علي تعابير لغة التعامل بالمعطيات DML، إذ سيكون بإمكانك عند الانتهاء من هذا الفصل استخدام تعابير SQL لبناء استفسار قواعد بيانات يمكن استعادتها، كما يمكن إعادة ترتيب المعطيات بأي شكل معروف في Visual Basic وبما أن لغة SQL مستخدمة في أغلب أنظمة قواعد البيانات العلائقية ( SQL Server – Oracle – Access ) فإنه سوف يصبح بإمكانك تطبيق ما سوف تتعلمه خلال هذه المحاضرة في أغلب بيئات قواعد البيانات العلائقية التي قد تصادفها في المستقبل.

ما هي لغة الاستفسارات البنيوية SQL؟

What Is SQL?

قبل التعرف علي تعابير في SQL وعلي استخدامها. يجب أن تفهم تعريف SQL واستخدامها وأصولها. إن SQL تعني لغة الاستفسارات البنيوية Structured Query Language وقد طورت في السبعينيات من قبل IBM بهدف تزويد مستخدمي الحواسب بطريقة قياسية لاختيار المعطيات من قواعد البيانات متعددة الشكل. وكانت الرغبة بناء لغة لا تتعلق بأية لغة برمجة موجودة ولكن يمكن استخدامها من ضمن أية لغة برمجة كطريقة لتحديث وطلب المعلومات من قاعدة البيانات. إن لغة SQL مؤلفة من تعابير فقط، وينجز كل تعبير عمليات علي كائن قاعدة معطيات أو أكثر ( جداول ، أعمدة ، دلائل ..... الخ ) وتعيد معظم تعابير SQL نتائجها علي شكل مجموعة من السجلات أو أكثر ( Data Records ) تسمي عادة مظهرا "View".

إن أغلب البرامج التي تستخدم SQL، تخفي تعابير ها خلف واجهات تخاطب من نوع أشر وأنقر (Point-and-click) مثل شبكات الاستفسار، وواجهات التخاطب سهلة الاستخدام ومما لا شك فيه أنة في حالة استخدامك لتطبيق يتصل بمعطيات قاعدة البيانات علائقية، فإنك تستخدم تعابير SQL سواء علمت أم لا.

أوامر SQL:-

سنركز في هذه المحاضرة علي الجزء المنفذ من عبارة ( Manipulative SQL Statement ) والاختيارات ( Options ) التي يمكن أضافتها لأمر لتوجيه ناتج الأمر مثلا لتحديد شروط الاستعلام أو نطاق السجلات أو ترتيبها. واستخدام هذين الجزأين كاف للحصول علي استعلامات تؤدي وظائف قواعد البيانات.

تحتوي الصورة التالية جدول بأهم الأوامر الرئيسية ووظائف كل منها

الأمر SELECT:-

يأخذ الأمر Select في أبسط صورة له الشكل التالي:

Select { fieldList } from { TableList }

وفي هذا الشكل المبسط يقوم الأمر SELECT باختيار مجموعة الحقول المحددة في FieldList من مجموعة الجداول TableList. يمكن استخدام (*) بدل من الكلمة FieldList بمعني كل الحقول.

العملي:-

والي هنا يأدي دور Visual Basic أول شي جميع الأكواد التي سوف أستخدمها في الشرح سوف تكون علي قاعدة البيانات التي تأتي مع Visual Vasic6 والتي تسمي NWIND.MDB.

وتوجد في المسار التالي C:\Program Files\Microsoft Visual Studio\VB98

قم بفتح Visual Basic وهنا سوف نستخدم أداة Data Control وDate Bound Grid وستكون الـ Form كما بالشكل التالي:-

عمل الاتصال Connection بين أداة Data Control و قاعدة البيانات.

ملاحظة:- أداة Data Control لا يمكن ربطها بأكثر من جدول فهي تربط بجدول واحد فقط من قاعدة البيانات.

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

1- ربط أداة Data Control بقاعدة البيانات ومن ثم تحديد الجدول الذي سيتم التعامل معه ويكون كما يلي:

* تحديد قاعدة البيانات ويكون عن طريق الخاصية الخاصة بأداة Data Control وتسمي DataBaseName سيكون بجانبها زر عند الضغط علية سيتم ظهور شاشة يتم من خلالها اختيار قاعدة البيانات لو قمت بعملية الحفظ كما قلت لفتحة الشاشة في الـ Folder المحفظ بهي البرنامج وسوف يتم ظهور قاعدة البيانات التي قمت أنت بجلبها من المسار الذي قمت بتحديده لك ونسخها في ذلك الـ Folder قم باختيار قاعدة البيانات NWIND.MDB ثم قم بالضغط علي Open سيتم اختيارها وكتابة المسار الخاص بها كما في الصورة التالية:

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

ملاحظة مهمة أنصح باستخدام مكتبة الـ DAO الأحدث وهي الإصدار3.6 ويتم استخدامها وجلبها عن طريق قائمة Tools واختيار References، أظن قد سبق شرحها أسم المكتبة هي Microsoft DAO 3.6 .

*** لو حدث مشاكل معك قم بعمل تحويل Convert لقاعدة البيانات لأنها قاعدة بيانات Access 97 قم بتحويلها الي Access2000 ويكون ذلك كما بالصورة التالية، وبعد ذلك قم بعمل الأتصال بناء علي قاعدة البيانات الجديدة.

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

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

إلي هنا قد تم الاتصال ولتأكد من ذلك قم بعمل Run للبرنامج وتأكد من عملة بنجاح لو تم ظهور الـ Form بنجاح بدون أي مشاكل أعرف أن الاتصال تم.

ولكن إلي هنا لا يمكن عرض الجدول في الأداة لسبب أنك معرفتوش ذلك ويتم ذلك من خلال خاصية خاصة بأداة DBGrid وهي الخاصية DataSource عند الضغط عليها سيتم ظهور قائمة بها أسماء أدوات Data Control الموجودة علي الـ Form والتي قمنا بربطها بقاعدة البيانات والجدول المطلوب وبذلك قد أعلمته أنه سوف يأخذ بياناته أداة الـ Data Control وبناء علي ذلك في الكود سوف نخاطب مين هنا أداة DBGrit أم Data Control طبعا سيتم التعامل مع Data Control أنظر الشكل التالي:

يوضح الشكل التالي أن أداة Data Control ما إلا وسيط بين Database علي الـ Hard Disk والجدول الموجود في الـ Memory والذي يتم عرضة من خلال أداة DBGrid الموجودة علي Form, إلي الآن لم أتكلم عن لغة SQL وكان لابد من المقدمة تلك لكي يتم فهم ماذا يحدث بعد الآن.

نأتي الآن إلي الجزئية الخاصة بموضوعنا( لغة SQL ).

قد أعلمتك سابقا أننا سوف نستخدم في وقت ما جدول أخر وسوف نكمل به المحاضرة أنا صراحة طلعت (عيل) ورجعت في كلامي أنا سوف أستخدم قاعدة بيانات ثانية خالص، أسم قاعدة البيانات Works.mdbوعليك أنت القيام بالربط من جديد وأظن كل هذا مشروح جيدا هو وبها جدول واحد سيتم التعامل معه أسمة Products ، سأفترض قيامك بكل هذا وسيتم الشرح بناً علية . قم بفتح المشروع الذي قمنا بتصميمية في أول المحاضرة وقم بتغير أسم الـ Button1 إلي 1 وبعد ذلك قم بفتح شاشة الكود الخاصة به الآن سنتعامل مع أول أمر من أوامر SQL ويعتبر أهم أمر وأكثرة انتشارا الأمر ( SELECT ) ويستخدم في اختيار مجموعة السجلات أو بعض منها حسب الشرط المكتوب.

سنقوم أولا بعرض كل السجلات الموجودة في الجدول Products الذي سيتم التعامل معه وسيكون بكتابة الكود التالي:

Data1.RecordSource = "select * from Products"

في هذا الكود تم إرسال قيمة عبارة عن جملة SQL إلي RecordSource لماذا؟

لان لو أنت صاحي معايا كنت عرفت أن الخاصية RecordSource وظيفتها التعامل مع الجداول وهنا قمنا بأجراء استعلام عن جدول معين.

"Select * from Products"

- أنا سامع واحد بيسأل وبيقول - لماذا علامات " " هذه؟

-- أولا في المقدمة أنا قلت أن لغة SQL لما عملوها قد صممت علي أن تكون لغة مستقلة ليس لها علاقة بأي لغة برمجة فهنا تم وضع الجملة بين علامة " " لأنها ليست Visual Basic أساسا.

نفس الشخص بيقول – تب ولية كود Data1.Refresh ؟

-- لكي تقوم أداة Data Control بالتحديث لأن فيه استعلام جديد عشان يحس بيه.

لو قمت بعمل Run وضغط علي زر Run سوف تلاحظ لا يوجد تغيير.

نفس الشخص بيقول ليييـــــــــــه؟؟؟؟!!!!!! عشان هو في الأصل بيعرض نفس نتيجة الاستعلام.

بسم الله الرحمن الرحيم

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

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

ولكن علي كل أسبوع إن شاء الله

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

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

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

بارك الله فيك

وجزاك الله خيرا كثيرا

ويجعله في ميزان حسناتك ان شاء الله

انا عندي اسئله كتير باذن الله هبعتها لحضرتك بس شويه عشان انا مشغول برده بحاجات تانيه

بس باذن الله هبعت لحضرتك كل حاجه عملتها ولقيت فيها اخطاء

والسلام خير ختام

فين الباقي

بسم الله الرحمن الرحيم

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

أسف علي التأخير عشان مشغول

ولكني سوف أرفقها إن شاء الله

متقلقش ياعم medovish2007

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

بالتوفيق عزيزي ربنا يعنيك

مشكور والله اخى على هذا الشرح الجميل بارك الله فيك وزادك من علمه النافع امين يارب العالمين

شكرا اخى مجهود واضح وممتاز

نشكرك

ولكنك شوقتنا لانتظار باقى الدروسس

نتمنى ارسالها

اخيك

مشكور اخي لهذة البداية الجميلة جدا

ومنتظرين المزيد...

جذاك الله خيرا

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

شكرا اخي الحبيب وفي انتظار المزيد

جزاك الله خيرا

ومنتظرين المزيد والمزيد والمزيد

:rolleyes:

im waiting

يبدو ان الموضوع جدا رائع ومفيد

وتسلم والله على المشاركه وبانتظار جديدك

لكن عندي مشكله في اول المواضيع والدروس لم تظهر الصور كامله

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

وشاكر لك جهدك اخي الكريم

r u there

شكرا اخى الكريم

لقد شوقتنا لتكملة الدورة

شكرا على مجهودك الرائع الملاحظ من خلال الشرح الوافى

جزاك الله خيرا

أسف ياجماعة علي التأخير والله أعلم بظروفي بعد رمضان أن شأ الله سوف أضغط وقتي لوضع أكبر قدر ممكن في التعامل مع قواعد البيانات من خلال DAO و ADO وفي موضيع جديدة

إن شاء الله

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

منتظرين الجديد من حضرتك باذن الله

ربنا يكرمك ويجزيك خيرا باذن الله

ويوفقك في شغلك يارب امين

ننتظرك علي أحر من الجمر وفقك الله

ننتظر منك المزيد أخي العزيز

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

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

ولو حد فيكم يعرف شركات تطلب مبرمجين ياريت يرسلي علي الإيميل

Ahmed3la@yahoo.com

وشكرا ووعدي سأنفذة إن شاء الله

والسلام عليكم

مشكور جدا اخي

وموضوعك رائع ومفيد جدا

وطرحك للموضوع رائع

ونتمنى منك التواصل......

وفي انتظار التكملة بأذن الله

شرح جميل .........نريد المزيد