شكراً لكل من يبدي رأياً
قمت بإنشاء قاعدة بيانات تفتح بكلمة مرورتحتوى على عدد 4 جداول كل منهم له مفتاح أساسي وذلك بالكود التالي :-
'تعريف قاعدة بيانات ، وجدول
'نستفيد من تعريف أكثر من جدول اجراء تغييرات على أحدها
'دون أن تظهر للمستخدم لعدم تأثيرها ، وسنتعرف على ذلك أكثر عندما نصل إلى الأوامر
'المقصود بالتغييرات ليس الاضافة والتعديل ، بل التقل بين السجلات
Public Sub CreateDatabase()
Dim tl As New Table, d1 As New ADOX.Catalog
Dim t2 As New Table
Dim t3 As New Table
Dim t4 As New Table
Dim folder As String
'نقوم بتحديد مسار البرنامج
folder = App.Path
If Right(folder, 1) <> "\" Then folder = folder & "\"
'يبحث عن قاعدة البيانات ، فإذا كانت غير موجودة يبدأ بإنشاءها
If Dir(folder & "salah.mdb") = "" Then
' 1) انشاء قاعدة البيانات محمية بكلمة مرور 123
d1.Create "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\salah.mdb;Jet OLEDB:Database Password=123" & ";"
' 2)انشاء جدول اسمه"shady
tl.Name = "shady"
' 3) اضافة الحقول في الجدول
tl.Columns.Append "ab", adVarWChar 'Text
tl.Columns.Append "af", adVarWChar 'Text
tl.Columns.Append "ag", adVarWChar 'Text
tl.Columns.Append "ah", adVarWChar 'Text
tl.Columns.Append "ai", adVarWChar 'Text
tl.Columns.Append "aj", adVarWChar 'Text
tl.Columns.Append "ak", adVarWChar 'Text
tl.Columns.Append "al", adVarWChar 'Text
tl.Columns.Append "am", adVarWChar 'Text
tl.Columns.Append "an", adDate 'date
tl.Columns.Append "ao", adDate 'date
' 4) عمل مفتاح اساسي
tl.Keys.Append "PrimaryKey", adKeyPrimary, "ab"
' 5) حفظ الجدول في قاعدة البيانات
d1.Tables.Append tl
'...........................................
' 1)انشاء جدول اسمه"samy"
t2.Name = "samy"
' 2) اضافة الحقول في الجدول
t2.Columns.Append "ac", adVarWChar 'Text
t2.Columns.Append "ab", adVarWChar 'Text
' 3) عمل مفتاح اساسي
t2.Keys.Append "PrimaryKey", adKeyPrimary, "ac"
' 4) حفظ الجدول في قاعدة البيانات
d1.Tables.Append t2
'...............................................
' 1)انشاء جدول اسمه"osama"
t3.Name = "osama"
' 2) اضافة الحقول في الجدول
t3.Columns.Append "ad", adVarWChar 'Text
t3.Columns.Append "ab", adVarWChar 'Text
' 3) عمل مفتاح اساسي
t3.Keys.Append "PrimaryKey", adKeyPrimary, "ad"
' 4) حفظ الجدول في قاعدة البيانات
d1.Tables.Append t3
'.................................................
' 1)انشاء جدول اسمه"amar"
t4.Name = "amar"
' 2) اضافة الحقول في الجدول
t4.Columns.Append "ae", adVarWChar 'Text
t4.Columns.Append "ab", adVarWChar 'Text
' 3) عمل مفتاح اساسي
t4.Keys.Append "PrimaryKey", adKeyPrimary, "ae"
' 4) حفظ الجدول في قاعدة البيانات
d1.Tables.Append t4
End If
End Sub
المطلوب كود إنشاء العلاقة بينهم
وللجميع مني خالص التحيات
شادي المصري