چگونگی اجرای یک 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

[amirmr64]

سلام
یه پروژه دارم که لازم موقع باز شدن یک فرم یه Update query اجرا بشه ولی خوب هر دفعه که اجرا میشه دو تا پنجره میاد که باید کلید yes رو انتخاب کنیم. یکم خسته کننده شده آیا کدی هست که بصورت خودکار وقتی یه پنجره سوال میاد خودش یه گزینه تعیین شده رو انتخاب کنه تا کاربر هر دفعه لازم نباشه که تایید کنه این مسیج باکس های خود اکسس رو؟
ممنون میشم راهنمایی کنید

[vbhamed]

سلام
Update query رو با ماکروهای اکسس نوشتید یا با کد مستقیم ؟