انشاء قاعدة بيانات 2

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


اليوم
في درسنا الاخير سوف نتعلم انا وانت معا كيفية انشاء قاعدة بيانات عن طريق
الكود من دون الحاجه حتى لفتح برنامج الاكسيس الموضوع بغاية البساطة لكننا
سوف نقوم باستخدام المكتبات في هذا المثال ولن نقوم باستخدام اداة
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