الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟
كيف انشي جدول في قاعدة البيانات عن طريق برنامجي المرفق ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
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
' حذف جدول من قاعدة البيانات
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
.....
اخي الكريم
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ