+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : موضوع مهم (/showthread.php?tid=22197)
موضوع مهم - مبرمج مصرى - 21-10-17
بسم الله الرحمن الرحيم
الكود التالى يقوم بإنشاء قا عدة بيانات فى المسار
"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
RE: موضوع مهم - a.ahmed - 21-10-17
ممكن تعديل كود انشاء قاعدة اكسس بالكود
RE: موضوع مهم - مبرمج مصرى - 22-10-17
(21-10-17, 11:28 PM)a.ahmed كتب : ممكن تعديل كود انشاء قاعدة اكسس بالكودبسم الله
جزاكم الله خيرا
لقد عمل الكود وأنشأ قاعدة البيانات ولكن كيف ننشئ الحقول؟وكيف ندخل بيانات فى الحقول؟
والأفضل أن تكون أحدث طريقة