PDA

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



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

Vahid_Nasiri
چهارشنبه 28 خرداد 1382, 00:50 صبح
از کد زیر با کمی تعریف متغیر ها و مقدار دهی به آنها می توانید استفاده کنید :


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
جمعه 12 بهمن 1386, 21:54 عصر
اگه از دستورات sql استفاده کنی
"cm.CommandText = "delete * FROM table1
cm از نوع Command

amirmr64
یک شنبه 28 مرداد 1397, 10:40 صبح
سلام
یه پروژه دارم که لازم موقع باز شدن یک فرم یه Update query اجرا بشه ولی خوب هر دفعه که اجرا میشه دو تا پنجره میاد که باید کلید yes رو انتخاب کنیم. یکم خسته کننده شده آیا کدی هست که بصورت خودکار وقتی یه پنجره سوال میاد خودش یه گزینه تعیین شده رو انتخاب کنه تا کاربر هر دفعه لازم نباشه که تایید کنه این مسیج باکس های خود اکسس رو؟
ممنون میشم راهنمایی کنید

vbhamed
چهارشنبه 07 شهریور 1397, 07:55 صبح
سلام
Update query رو با ماکروهای اکسس نوشتید یا با کد مستقیم ؟