الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم إضافة جداول وحقول إلى قاعدة البيانات

بدأه memoon في 25 نوفمبر 2009 · 1 رد · 876 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته أخواني الكرام لدي قاعدة بيانات موجودة مسبقاً أريد أن يقوم البرنامج بإضافة جدول جديد لهذه القاعدة وأيضاً يضيف فيه حقول وهو Phone يضيف له الحقول Name,Number,Fax ويضيف 3 حقول في جدول قديم به بيانات الجول القديم هو Car وأريد أن يضيف له Model,Type,Rent قاعدة البيانات أكسس استخدم في الربط ADO وشكراً للجميع

Add Tabel.rar

من مواضعي

برنامج يتصل بقواعد بيانات MYSQL

طريقة إرسال البيانات من البرنامج إلى الوورد

قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام

lom024p4owxcwq2.gif

للمراسلة عبر الماسنجر :

#2

بسم الله الرحمن الرحيم

أخي العزيز

الكود التالى يقوم بإضافة جدول جديد في قاعدة البيانات و يضيف إليه حقول ...........

Option Explicit
Dim data As Database
Dim NewT As TableDef

Private Sub Command1_Click()
Set NewT = data.CreateTableDef("CaptinFlent")
On Error Resume Next

data.TableDefs.Delete NewT.Name
With NewT
.Fields.Append .CreateField("Vb1", dbText, 50)
.Fields.Append .CreateField("Vb2", dbText, 50)
.Fields.Append .CreateField("Vb3", dbText, 50)
.Fields.Append .CreateField("Vb4", dbText, 50)
End With
data.TableDefs.Append NewT
data.Close

End Sub

Private Sub Form_Load()
Set data = OpenDatabase(App.Path & "\Main2000.mdb")

End Sub

و السلام ختام .....

      
      

      
السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…