ملحوظة هامة : يجب ان تكون على معرفة مسبقة عن برمجة قواعد البيانات بـ Ado
1 - قم بانشاء فورمة كالاتى:
2 - اضافة مكتبة ADO و مكتبة ADOX كالاتى :
3 - الاعلان عن المتغيرات فى General Declaration
الاعلان عن المتغير Dim Cn As New Adodb.connection المسؤل عن الاتصال بقاعدة البيانات
المتغير Dim rcontact as new adodb.recordset المسؤل عن الاتصال والتعامل مع الجدول
المتغير Dim ConStr As String متغير نصى لتخذين جملة الاتصال والجملة الاتصال ليها استخدامين
الاول سنمررها على كائن ADOX بالتالى ننشأ قاعدة البيانات من نوع اكسيس طبعا لو اردنا انشاء نوع اخر من قواعد البيانات سوف نقوم بتغيير جملة الاتصال فقط ممكن نستخدم موقع http://www.connectionstrings.com/
الثانى :- تمريرها للكائن Cn وذلك لعمل اتصال بقاعدة البيانات
4 - بداية تشغيل البرنامج قد تكون Sub Main فى مديول او فى Form_Load مثل برنامجنا
هى فكرة مش اكواد بمعنى
احنا مش كل مرة هنشغل البرنامج هينشأ قاعدة بيانات !!!! مش هيكون ليها لزمة بالتاكيد
الحل بسيط جدا هنتأكد الاول ان قاعدة البيانات مش موجود فى الحالة دى هنقوم بانشاء قاعدة بيانات
لو موجودة يتخطى اجراء انشاء قاعدة البينات ويقوم بتحميل متغيرات التعامل مع قاعدة البيانات
كالاتى :
5 - الاجراء الخاص بانشاء قاعدة البيانات
هنا موضوع الدرس استخدام مكتبة ADOX لانشاء قاعدة البينات وهو دا فقط المطلوب من هذة المكتبة كالاتى :
Dim Cdb as New ADOX.Catalog
وسنمرر جملة قاعدة البيانات للخاصية Create التابعة للكائن
Cdb.Create ConStr
الان تم انشاء قاعدة البيانات ولم نعد بحاجة الى كائن ADOX لذا يفضل ازالة هذا الكائن من الذاكرة لتخفيف الضغط على الذاكرة RAM
Set Cdb = Nothing
الان انتهينا من اجراء انشاء قاعدة البيانات ولكن قاعدة بينات فارغة !!!!!!
اى ليست بها جداول !!!!!
نعم ليست بها جداول انتهت مهمة ADOX بانشاء قاعدة البيانات
يمكننا انشاء الجداول بتمرير جمل SQL للكائن ADO للخاصية Execute
6 - انشاء الجداول
ثم تمرير جملة الاستعلام Cn.execute SQL
ولا تنسى غلق Cn.close
لاننا سوف نقوم بفتح الاتصال مرة اخرة وذلك للتعامل مع قاعدة البيانات والجداول
وبعد ذلك يمكنك استخدام مكتبة Ado بدون اى اختلاف اطلاقا
النتيجة الاخيرة
المثال متجرب وشغال 100%
اذا استفدت من هذا الشرح ارجوا الدعاء لى بالخير
وعمل اعجاب بهذه الصفحة
http://www.facebook.com/DragonsoftEG
اى حاجة مش واضحة او مش مفهومة او حدوث اى اخطاء
