منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟ (/showthread.php?tid=3931)

كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟ - Microformt - 29-09-14

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

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

RE: كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟ - vbnet - 29-09-14

.....

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

.....

RE: كيف حذف الجدول من قاعدة البيانات عن طريق برنامجي المرفق ؟؟ - Microformt - 29-09-14

(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

.....

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