چگونگی اجرای یک Delete Query در ویژوال بیسیک

[ahmad_rabie2002]

با سلام
من یک دیتابیس access دارم که داخلش یک Delete Query ساخته ام حالا با DataEnvironment به این Query دست پیدا کرده ام ولی متاسفانه نمی دانم چگونه آن را اجرا کنم . لطفا راهنمایی فرمایید :? .
:oops: ضمنا من می خواهم تمام اطلاعات داخل یک جدول را پاک کنم برای همین هم از یک Delete Query استفاده کرده ام لذا اگر راه دیگری برای حذف تمام رکوردهای یک جدول سراغ دارید که با پایگاه داده اکسس همخوانی داشته باشد راهنمایی فرمایید .
متشکرم ربیعی
:wink:

[Vahid_Nasiri]

از کد زیر با کمی تعریف متغیر ها و مقدار دهی به آنها می توانید استفاده کنید :


Public Sub dropTable()
On Error GoTo localerr

Dim strSQL As String

Dim y As Adodc
Set y = mvarsetAdoDcControl

With y
.CommandType = adCmdTable
.RecordSource = clsDB_TableName
.Refresh
End With

Dim Cc As ADODB.Connection
Set Cc = y.Recordset.ActiveConnection

strSQL = " drop table " + clsDB_TableName
Cc.Execute (strSQL)

y.Recordset.Update
y.Recordset.Close
Cc.Close
Set y = Nothing

Exit Sub
localerr:
'MsgBox Str(Err.Number) + " " + Err.Description, vbExclamation + vbSystemModal, "deleting Error !"

End Sub

[hadihadi111]

اگه از دستورات sql استفاده کنی
"cm.CommandText = "delete * FROM table1
cm از نوع Command