الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟
كيف انشي جدول في قاعدة البيانات عن طريق برنامجي المرفق ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
.....
هذا الرابط راح يفيدك كثير(
DAO Programming Code Examples)
كود :
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\db1.mdb", 2)
End Sub
' حذف جدول من قاعدة البيانات
Private Sub Command1_Click()
On Error GoTo ErrHandle
If MsgBox("هل أنت متأكد من حذف الجدول", vbYesNo + vbQuestion) = vbYes Then
db.TableDefs.Delete "soft1"
MsgBox "تم حذف الجدول بنجاح"
End If
Exit Sub
ErrHandle:
MsgBox Err.Description
End Sub
.....
(29-09-14, 02:28 PM)vbnet كتب : [ -> ].....
هذا الرابط راح يفيدك كثير(DAO Programming Code Examples)
كود :
' حذف جدول من قاعدة البيانات
Private Sub Command1_Click()
On Error GoTo ErrHandle
If MsgBox("هل أنت متأكد من حذف الجدول", vbYesNo + vbQuestion) = vbYes Then
DBEngine(0)(0).TableDefs.Delete "soft1"
MsgBox "تم حذف الجدول بنجاح"
End If
Exit Sub
ErrHandle:
MsgBox Err.Description
End Sub
.....
اخي الكريم
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تحياتي