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

كود لإنشاء قاعدة البيانات بواسطة DAO :

اقتباس

 Dim db As DAO.Database

  Set db = DBEngine.CreateDatabase(".\New.mdb", dbLangGeneral)

وهذا كود لإنشاء جدول وحقول وإيضا بواسطة DAO :

اقتباس

Dim db  As DAO.Database
  Dim tbl As DAO.TableDef

  ' فتح قاعدة البيانات
  Set db = DBEngine.OpenDatabase(".\New.mdb")

  ' TableDef إنشاء كائن
  Set tbl = db.CreateTableDef("Contacts")

  With tbl
  ' TableDef إنشاء الحقول وتطبيقها على الكائن
     .Fields.Append .CreateField("ContactName", dbText)
     .Fields.Append .CreateField("ContactTitle", dbText)
     .Fields.Append .CreateField("Phone", dbText)
     .Fields.Append .CreateField("Notes", dbMemo)
     .Fields("Notes").Required = False
  End With

  ' إضافة الجدول والحقول إلى قاعدة البيانات
  db.TableDefs.Append tbl

أنا محتاج كود أنشاء قاعدة البيانات

وتكون بكلمة سر

وكود الفتح للقاعدة التى لها كلمة سر

وأكون شاكر جدا مع دعواتى بالتوفيق