+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 (/showthread.php?tid=7297)
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - @@أبورائد@@ - 18-12-12
السلام عليكم ورحمة الله وبركاته
جرب التالي (لاحظ اني عطلت فتح قاعدة البيانات في 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
& "#"السلام عليكم ورحمة الله وبركاته
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 18-12-12
انت هنا يا ابو رائد
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 18-12-12
شكرا جزيلا يا ابو رائد
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 18-12-12
عاوز اتحكم فيه من الخارج
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 18-12-12
بدلا من FirstName احطها من خلال التكست بوكس من الخارج
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - @@أبورائد@@ - 18-12-12
السلام عليكم ورحمة الله وبركاته
ما فيه مشكلة، بدل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
السلام عليكم ورحمة الله وبركاته
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 19-12-12
شكرا جزيلا يا اخى
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - اشروفا - 20-12-12
استخدم امر 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 المسؤلة عن اضافة حقل جديد مع مرعاة كتابة اسم الحقل ونوعه اذا كان نصى ولا رقمى ولا تاريخ .
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 20-12-12
شكرا جزيلا
كيفية انشاءعامود في جدول فى الاكسس باستخدام فيجول بسك6 - hosney - 20-12-12
واما فى حالة استدعاء هذا العمود كيف يحدث الاستدعاء