21-10-17, 10:12 PM
بسم الله الرحمن الرحيم
الكود التالى يقوم بإنشاء قا عدة بيانات فى المسار
"d:\phone.mdb"
وذلك عن طريق
dao refrence
و بكلمة مرور هى
jit
ولكن كيف أترجم نفس الكود إلى الاصدارات الحديثة من فيجوال بيزيك دوت نت أى (تصميم قاعدة البيانات بالكود) ؟
Private Sub Form_Load()
Dim NewDb As Database, NewWS As WORKSPACE
Dim NewTbl As tabledef
Dim F1, F2, F3 As Field
Set NewWS = dbengine.workspaces(0)
Set NewDb = NewWS.createdatabase("d:\phone.mdb" _
, dblanggeneral & ";pwd=jit", dbencrypt)
Set NewTbl = NewDb.createtabledef("PhoneBook")
Set F1 = NewTbl.createfield("Name", dbtext)
Set F2 = NewTbl.createfield("Phone_Number", _
dbtext)
Set F3 = NewTbl.createfield("Address", dbtext)
NewTbl.fields.append F1
NewTbl.fields.append F2
NewTbl.fields.append F3
NewDb.TableDefs.append NewTbl
NewDb.Close
End Sub
الكود التالى يقوم بإنشاء قا عدة بيانات فى المسار
"d:\phone.mdb"
وذلك عن طريق
dao refrence
و بكلمة مرور هى
jit
ولكن كيف أترجم نفس الكود إلى الاصدارات الحديثة من فيجوال بيزيك دوت نت أى (تصميم قاعدة البيانات بالكود) ؟
Private Sub Form_Load()
Dim NewDb As Database, NewWS As WORKSPACE
Dim NewTbl As tabledef
Dim F1, F2, F3 As Field
Set NewWS = dbengine.workspaces(0)
Set NewDb = NewWS.createdatabase("d:\phone.mdb" _
, dblanggeneral & ";pwd=jit", dbencrypt)
Set NewTbl = NewDb.createtabledef("PhoneBook")
Set F1 = NewTbl.createfield("Name", dbtext)
Set F2 = NewTbl.createfield("Phone_Number", _
dbtext)
Set F3 = NewTbl.createfield("Address", dbtext)
NewTbl.fields.append F1
NewTbl.fields.append F2
NewTbl.fields.append F3
NewDb.TableDefs.append NewTbl
NewDb.Close
End Sub