انشاء قاعدة بيانات عن طريق الكود

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


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


كود PHP:
Dim Ws As DAO.Workspace
Dim DataBase As DAO.DataBase
Dim T1 As DAO.TableDef
Dim F As DAO.Field




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


كود PHP:
Set Ws = DBEngine.Workspaces(0)
Ws.CreateDatabase App.Path & "\Ahmed.Mdb", dbLangGeneral


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


كود PHP:
Set DataBase = Ws.OpenDatabase(App.Path & "\Ahmed.Mdb", 1)
Set T1 = DataBase.CreateTableDef("Table1")
Set F = T1.CreateField("Filed", dbText)
T1.Fields.Append F
DataBase.TableDefs.Append T1


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


كود PHP:
Set Ws = DBEngine.Workspaces(0)
Ws.CreateDatabase App.Path & "\Ahmed.Mdb", dbLangGeneral
Set DataBase = Ws.OpenDatabase(App.Path & "\Ahmed.Mdb", 1)
Set T1 = DataBase.CreateTableDef("Table1")
Set F = T1.CreateField("Filed", dbText)
T1.Fields.Append F
DataBase.TableDefs.Append T1
DataBase.Close
MsgBox "Complete", vbInformation


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