ملحوظة هامة : يجب ان تكون على معرفة مسبقة عن برمجة قواعد البيانات بـ 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 بالتالى ننشأ قاعدة البيانات من نوع اكسيس طبعا لو اردنا انشاء نوع اخر من قواعد البيانات سوف نقوم بتغيير جملة الاتصال فقط ممكن نستخدم موقع
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] الثانى :- تمريرها للكائن Cn وذلك لعمل اتصال بقاعدة البيانات
4 - بداية تشغيل البرنامج قد تكون Sub Main فى مديول او فى Form_Load مثل برنامجنا
هى فكرة مش اكواد بمعنى
احنا مش كل مرة هنشغل البرنامج هينشأ قاعدة بيانات !!!! مش هيكون ليها لزمة بالتاكيد
الحل بسيط جدا هنتأكد الاول ان قاعدة البيانات مش موجود فى الحالة دى هنقوم بانشاء قاعدة بيانات
لو موجودة يتخطى اجراء انشاء قاعدة البينات ويقوم بتحميل متغيرات التعامل مع قاعدة البيانات
كالاتى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] 5 - الاجراء الخاص بانشاء قاعدة البيانات
هنا موضوع الدرس استخدام مكتبة ADOX لانشاء قاعدة البينات وهو دا فقط المطلوب من هذة المكتبة كالاتى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] سوف نقوم بانشاء كائن Cdb من ADOX.Catalog
Dim Cdb as New ADOX.Catalog
وسنمرر جملة قاعدة البيانات للخاصية Create التابعة للكائن
Cdb.Create ConStr
الان تم انشاء قاعدة البيانات ولم نعد بحاجة الى كائن ADOX لذا يفضل ازالة هذا الكائن من الذاكرة لتخفيف الضغط على الذاكرة RAM
Set Cdb = Nothing
الان انتهينا من اجراء انشاء قاعدة البيانات ولكن قاعدة بينات فارغة !!!!!!
اى ليست بها جداول !!!!!
نعم ليست بها جداول انتهت مهمة ADOX بانشاء قاعدة البيانات
يمكننا انشاء الجداول بتمرير جمل SQL للكائن ADO للخاصية Execute
6 - انشاء الجداول
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] سنقوم بفتح كائن Cn
ثم تمرير جملة الاستعلام Cn.execute SQL
ولا تنسى غلق Cn.close
لاننا سوف نقوم بفتح الاتصال مرة اخرة وذلك للتعامل مع قاعدة البيانات والجداول
وبعد ذلك يمكنك استخدام مكتبة Ado بدون اى اختلاف اطلاقا
النتيجة الاخيرة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] تحميل مثال تجريبى
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]