لماذا لا يتم حزف الجدول من القاعدة

السلام عليكم

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

update.rar

السلام عليكم...

لا يتم الحذف لأنه يوجد خطأ في بناء جملة SQL. كما أنه في حالة العمليات التي لا تريد منها إعادة مجموعة سجلات (Recordset) يستحسن استخدام ADODB.Command.

هنا تعديل لكود الزر:

Private Sub Command5_Click()
    On Error GoTo Command5_Click_Err:

    Dim DB As New ADODB.Connection
    Dim Cmd As New ADODB.Command

    If DB.State = adStateOpen Then DB.Close
    DB.Provider = "Microsoft.JET.OLEDB.4.0;"
    DB.Open App.Path & "\77.mdb"

    Cmd.ActiveConnection = DB
    Cmd.CommandType = adCmdText
    Cmd.CommandText = "DROP TABLE [" & Text1.Text & "]"
    Cmd.Execute
    DB.Close
    Set DB = Nothing
        Set Cmd = Nothing

    MsgBox "تم حذف الجدول"
    Exit Sub

Command5_Click_Err:
    MsgBox "لم يتم حذف الجدول" & vbCrLf & Err.Description
    If DB.State = adStateOpen Then DB.Close
End Sub

* عندما كنت أعاين الرد وجدت الأخ AHMAD قد سبقني مشكوراً. على العموم في الزبادة إفادة.

نرجو الاستفادة و السلام.

AHMAD KALIL كتب:

السلام عليكم

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

اشكرك استاذ AHMAD KALIL علي هذا التعديل الجميل وبالفعل تمت عملية الحزف

najy_zl كتب:

السلام عليكم...

لا يتم الحذف لأنه يوجد خطأ في بناء جملة SQL. كما أنه في حالة العمليات التي لا تريد منها إعادة مجموعة سجلات (Recordset) يستحسن استخدام ADODB.Command.

هنا تعديل لكود الزر:

Private Sub Command5_Click()
    On Error GoTo Command5_Click_Err:

    Dim DB As New ADODB.Connection
    Dim Cmd As New ADODB.Command

    If DB.State = adStateOpen Then DB.Close
    DB.Provider = "Microsoft.JET.OLEDB.4.0;"
    DB.Open App.Path & "\77.mdb"

    Cmd.ActiveConnection = DB
    Cmd.CommandType = adCmdText
    Cmd.CommandText = "DROP TABLE [" & Text1.Text & "]"
    Cmd.Execute
    DB.Close
    Set DB = Nothing
        Set Cmd = Nothing

    MsgBox "تم حذف الجدول"
    Exit Sub

Command5_Click_Err:
    MsgBox "لم يتم حذف الجدول" & vbCrLf & Err.Description
    If DB.State = adStateOpen Then DB.Close
End Sub

* عندما كنت أعاين الرد وجدت الأخ AHMAD قد سبقني مشكوراً. على العموم في الزبادة إفادة.

نرجو الاستفادة و السلام.

اشكرك استاذ jy_zl علي والشرح والكود وكما تقول في الزيادة افادة

شاكرا لكم