ملحوظة هامة : يجب ان تكون على معرفة مسبقة عن برمجة قواعد البيانات بـ Ado
1 - قم بانشاء فورمة كالاتى:
http://4.bp.blogspot.com/-S4BNlbuNnlE/TbwdznQzqQI/AAAAAAAAACc/jaeJh5dnQAk/s1600/1.bmp
2 - اضافة مكتبة ADO و مكتبة ADOX كالاتى :
http://3.bp.blogspot.com/-7tk1kms90Tc/TbwectvtIXI/AAAAAAAAACg/K4fV9BCS_ks/s1600/2.bmp
3 - الاعلان عن المتغيرات فى General Declaration
http://4.bp.blogspot.com/-sijVnTDIK4g/Tbwegx_YtoI/AAAAAAAAACk/yNTj0Qvmiys/s1600/3.bmp
الاعلان عن المتغير Dim Cn As New Adodb.connection المسؤل عن الاتصال بقاعدة البيانات
المتغير Dim rcontact as new adodb.recordset المسؤل عن الاتصال والتعامل مع الجدول
المتغير Dim ConStr As String متغير نصى لتخذين جملة الاتصال والجملة الاتصال ليها استخدامين
الاول سنمررها على كائن ADOX بالتالى ننشأ قاعدة البيانات من نوع اكسيس طبعا لو اردنا انشاء نوع اخر من قواعد البيانات سوف نقوم بتغيير جملة الاتصال فقط ممكن نستخدم موقع www.connectionstring.com
الثانى :- تمريرها للكائن Cn وذلك لعمل اتصال بقاعدة البيانات
4 - بداية تشغيل البرنامج قد تكون Sub Main فى مديول او فى Form_Load مثل برنامجنا
هى فكرة مش اكواد بمعنى
احنا مش كل مرة هنشغل البرنامج هينشأ قاعدة بيانات !!!! مش هيكون ليها لزمة بالتاكيد
الحل بسيط جدا هنتأكد الاول ان قاعدة البيانات مش موجود فى الحالة دى هنقوم بانشاء قاعدة بيانات
لو موجودة يتخطى اجراء انشاء قاعدة البينات ويقوم بتحميل متغيرات التعامل مع قاعدة البيانات
كالاتى :
http://2.bp.blogspot.com/-OQ5oHHMAFwg/Tbwn_ZL1-9I/AAAAAAAAADA/5Xkeh0gByqA/s1600/4.JPG
5 - الاجراء الخاص بانشاء قاعدة البيانات
هنا موضوع الدرس استخدام مكتبة ADOX لانشاء قاعدة البينات وهو دا فقط المطلوب من هذة المكتبة كالاتى :
http://3.bp.blogspot.com/-fzGlPrljLMA/Tbwn_4tqc_I/AAAAAAAAADE/vyBb6GgmOYE/s1600/5.JPG
سوف نقوم بانشاء كائن Cdb من ADOX.Catalog
Dim Cdb as New ADOX.Catalog
وسنمرر جملة قاعدة البيانات للخاصية Create التابعة للكائن
Cdb.Create ConStr
الان تم انشاء قاعدة البيانات ولم نعد بحاجة الى كائن ADOX لذا يفضل ازالة هذا الكائن من الذاكرة لتخفيف الضغط على الذاكرة RAM
Set Cdb = Nothing
الان انتهينا من اجراء انشاء قاعدة البيانات ولكن قاعدة بينات فارغة !!!!!!
اى ليست بها جداول !!!!!
نعم ليست بها جداول انتهت مهمة ADOX بانشاء قاعدة البيانات
يمكننا انشاء الجداول بتمرير جمل SQL للكائن ADO للخاصية Execute
6 - انشاء الجداول
http://3.bp.blogspot.com/-R5YlqDTToIE/TbwoA8CHagI/AAAAAAAAADI/viLtbdb-bjo/s1600/6.JPG
سنقوم بفتح كائن Cn
ثم تمرير جملة الاستعلام Cn.execute SQL
ولا تنسى غلق Cn.close
لاننا سوف نقوم بفتح الاتصال مرة اخرة وذلك للتعامل مع قاعدة البيانات والجداول
وبعد ذلك يمكنك استخدام مكتبة Ado بدون اى اختلاف اطلاقا
النتيجة الاخيرة
http://4.bp.blogspot.com/-TKWTE9JyDJM/Tbwv1-7TfFI/AAAAAAAAADM/MoZXnGcE8OQ/s1600/7.jpg
تحميل مثال تجريبى
http://www.mediafire.com/?a5ucx54ps07zta7
المثال متجرب وشغال 100%
اى حاجة مش واضحة او مش مفهومة او حدوث اى اخطاء
لا تتردد فى مراسلتى على الايميل
hussein_mostafa38@yahoo.com