[Microformt]

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟
كيف انشي جدول في قاعدة البيانات عن طريق برنامجي المرفق ؟؟

نامل من الله المساعدة والله يحفظكم ويرعاكم

[vbnet]

.....

هذا الرابط راح يفيدك كثير(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

.....

[Microformt]

.....

هذا الرابط راح يفيدك كثير(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

.....

 اخي الكريم 
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
 تحياتي