منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم
الكود التالى يقوم بإنشاء قا عدة بيانات فى المسار
"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

(21-10-17, 11:28 PM)a.ahmed كتب : [ -> ]ممكن تعديل كود انشاء قاعدة اكسس بالكود

بسم الله
جزاكم الله خيرا
لقد عمل الكود وأنشأ قاعدة البيانات ولكن كيف ننشئ الحقول؟وكيف ندخل بيانات فى الحقول؟
والأفضل أن تكون أحدث طريقة