تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
موضوع مهم
#1
بسم الله الرحمن الرحيم
الكود التالى يقوم بإنشاء قا عدة بيانات فى المسار
"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
الرد
تم الشكر بواسطة:
#2
ممكن تعديل كود انشاء قاعدة اكسس بالكود
الرد
تم الشكر بواسطة: مبرمج مصرى
#3
(21-10-17, 11:28 PM)a.ahmed كتب : ممكن تعديل كود انشاء قاعدة اكسس بالكود
بسم الله
جزاكم الله خيرا
لقد عمل الكود وأنشأ قاعدة البيانات ولكن كيف ننشئ الحقول؟وكيف ندخل بيانات فى الحقول؟
والأفضل أن تكون أحدث طريقة
الرد
تم الشكر بواسطة:
#4
إطلع على هذا الرابط https://stackoverflow.com/questions/2582...ing-vb-net
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Big Grin [VB.NET] مساعدة حول نشر موضوع في منصة بلوجر b4getws 0 107 28-01-19, 12:31 AM
آخر رد: b4getws
  [سؤال] سؤال عن موضوع الكريستال ريبورت m_eljabo 1 172 29-11-18, 10:57 PM
آخر رد: baha
  [درس فيديو] أحب أن أسال أعضاء المنتدى سؤال بخصوص موضوع ( الشرح من خلال عمل فيديو صوت وصورة ) عبدالله الدوسري 21 938 03-10-18, 07:18 PM
آخر رد: larbihamri
  استفسار على موضوع grouping mo93 2 388 30-09-17, 04:22 AM
آخر رد: mo93
  موضوع للنقاش و تبادل افكار Rabeea Qbaha 3 361 24-09-17, 12:21 AM
آخر رد: سعود
  أول موضوع ليا .. وياريت ألاقي حل KhaledAnwer88 4 493 11-07-17, 06:56 PM
آخر رد: silverlight
  موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ MOSTAFA.KAMEL 4 604 15-03-17, 07:52 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 895 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 417 02-11-16, 11:47 PM
آخر رد: Mohamed20
  السلام عليكم موضوع جد يد شرح لبرنامج واتس اب مصمم بالفيجول بيسيك و سي شارب رهف العريفي 10 2,575 04-05-16, 03:28 AM
آخر رد: رهف العريفي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم