إذا أضفنا Reference للمشروع لـ Microsoft ActiveX Data Access Libarary
ثم استخدمنا الكود التالي لإنشاء قاعدة البيانات برمجيا
Imports dao
... ... ...
Private Sub btnCreateDatabasre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDatabasre.Click
' تعريف المتغيرات
Dim Db As dao.Database, Dbe As New dao.DBEngineClass
Dim Td As New TableDef, FD As New dao.Field
Dim FD1 As New dao.Field, Ind As New Index
Dim DataBaseName As String
' تحديد اسم قاعدة البيانات
DataBaseName = "d:\temp\test.mdb"
' إنشاء قاعدة البيانات
Db = Dbe.CreateDatabase(DataBaseName, dao.LanguageConstants.dbLangArabic)
' تحديد اسم الجدول
Td.Name = "Staff"
' تحديد حقل نصي بطول 50 محرف
FD.Name = "Name"
FD.Type = dao.DataTypeEnum.dbText
FD.Size = 50
FD.AllowZeroLength = False
' إضافة الحقل للجدول
Td.Fields.Append(FD)
' تحديد حقل معرف للجدول من نوع عدد صحيح طويل
' مع ترقيم تلقائي ووضعه مفتاح أساسي
FD1.Name = "ID"
FD1.Type = dao.DataTypeEnum.dbLong
FD1.Attributes = dao.FieldAttributeEnum.dbAutoIncrField
' تحديد خيارات الفهرسة للجدول
Ind = Td.CreateIndex("ID")
Ind.Name = "ID"
Ind.Fields = "ID"
Ind.Primary = True
Ind.Unique = True
' إضافة الحقل للجدول
Td.Fields.Append(FD1)
' إضافة الفهرسة للجدول
Td.Indexes.Append(Ind)
' إضافة الجدول لقاعدة البيانات
Db.TableDefs.Append(Td)
' إغلاق قاعدة البيانات
Db.Close()
End Subما رأيكم في الكود
