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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم اسئلة vb6.0 المتعلقة بقواعد البيانات > كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6
نسخة كاملة : كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

@@أبورائد@@

18-12-12, 01:06 PM
السلام عليكم ورحمة الله وبركاته

جرب التالي (لاحظ اني عطلت فتح قاعدة البيانات في Form_Load لأنه مو معقول حينفذ وقاعدة البيانات مفتوحة بأمر آخر)
كود :
Private Sub Form_Load()
'    Set T1 = D1.OpenRecordset("biofthedrinks", dbOpenTable)
'    Set T2 = D1.OpenRecordset("biofthedrinks", dbOpenTable)
'    Call ShowData
End Sub

Private Sub Command1_Click()
    
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    
    Set dbs = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data1.mdb", False, False)
    
    Set tdf = dbs.TableDefs("biofthedrinks")
    tdf.Fields.Append tdf.CreateField("FirstName", dbText, 20)
    tdf.Fields.Append tdf.CreateField("LastName", dbText, 20)
    
    Set tdf = Nothing
    Set dbs = Nothing
    
End Sub
& "#"

السلام عليكم ورحمة الله وبركاته

hosney

18-12-12, 02:28 PM
انت هنا يا ابو رائد

hosney

18-12-12, 02:35 PM
شكرا جزيلا يا ابو رائد

hosney

18-12-12, 03:20 PM
عاوز اتحكم فيه من الخارج

hosney

18-12-12, 03:22 PM
بدلا من FirstName احطها من خلال التكست بوكس من الخارج

@@أبورائد@@

18-12-12, 11:52 PM
السلام عليكم ورحمة الله وبركاته

ما فيه مشكلة، بدلFirstName اكتب Me.Text1.Text كالتلي
كود :
Private Sub Form_Load()
'    Set T1 = D1.OpenRecordset("biofthedrinks", dbOpenTable)
'    Set T2 = D1.OpenRecordset("biofthedrinks", dbOpenTable)
'    Call ShowData
End Sub

Private Sub Command1_Click()
    
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    
    Set dbs = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data1.mdb", False, False)
    
    Set tdf = dbs.TableDefs("biofthedrinks")
    tdf.Fields.Append tdf.CreateField(Me.Text1.Text, [color=#FF0000]dbText[/color], 20)
    
    Set tdf = Nothing
    Set dbs = Nothing
    
End Sub

لكن لازم تعرف نوع الحقل وأنواعها هي
نص dbText مع تحديد طول الأحرف
رقم dbInteger، dbDecimal، dbDouble، dbSingle
تاريخ dbDate
نعم/لا dbBoolean

السلام عليكم ورحمة الله وبركاته

hosney

19-12-12, 11:16 AM
شكرا جزيلا يا اخى

اشروفا

20-12-12, 01:40 AM
استخدم امر alter table هيريحك كتير وهيخليك تعمل اللى انت عاوزه فى سطر واحد ومن غير ما تقفل داتا ولا اى حاجة من دى
مثال على حذف عمود :
cn.Execute "alter table tab drop column dat"
الشرح : انا هنا استملت امر alter table وقولت له روح لعى الجدول اللى اسمه tab واحذف منه الحقل اللى اسمه dat
مثال على اضافة عمود جديد :
cn.Execute "alter table tab add dat date"
اكيد مش محتاج شرح كل اللى انا عملته شيلت drop column المسؤلة عن حذف الحقل وحطيت مكانها add المسؤلة عن اضافة حقل جديد مع مرعاة كتابة اسم الحقل ونوعه اذا كان نصى ولا رقمى ولا تاريخ .

hosney

20-12-12, 01:12 PM
شكرا جزيلا

hosney

20-12-12, 01:14 PM
واما فى حالة استدعاء هذا العمود كيف يحدث الاستدعاء
الصفحات : 1 2 3
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم اسئلة vb6.0 المتعلقة بقواعد البيانات > كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6