View Full Version : چگونگی اجرای یک Delete Query در ویژوال بیسیک
ahmad_rabie2002
شنبه 24 خرداد 1382, 10:24 صبح
با سلام
من یک دیتابیس access دارم که داخلش یک Delete Query ساخته ام حالا با DataEnvironment به این Query دست پیدا کرده ام ولی متاسفانه نمی دانم چگونه آن را اجرا کنم . لطفا راهنمایی فرمایید :? .
:oops: ضمنا من می خواهم تمام اطلاعات داخل یک جدول را پاک کنم برای همین هم از یک Delete Query استفاده کرده ام لذا اگر راه دیگری برای حذف تمام رکوردهای یک جدول سراغ دارید که با پایگاه داده اکسس همخوانی داشته باشد راهنمایی فرمایید .
متشکرم ربیعی
:wink:
Vahid_Nasiri
چهارشنبه 28 خرداد 1382, 01: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, 22:54 عصر
اگه از دستورات sql استفاده کنی
"cm.CommandText = "delete * FROM table1
cm از نوع Command
amirmr64
یک شنبه 28 مرداد 1397, 11:40 صبح
سلام
یه پروژه دارم که لازم موقع باز شدن یک فرم یه Update query اجرا بشه ولی خوب هر دفعه که اجرا میشه دو تا پنجره میاد که باید کلید yes رو انتخاب کنیم. یکم خسته کننده شده آیا کدی هست که بصورت خودکار وقتی یه پنجره سوال میاد خودش یه گزینه تعیین شده رو انتخاب کنه تا کاربر هر دفعه لازم نباشه که تایید کنه این مسیج باکس های خود اکسس رو؟
ممنون میشم راهنمایی کنید
vbhamed
چهارشنبه 07 شهریور 1397, 08:55 صبح
سلام
Update query رو با ماکروهای اکسس نوشتید یا با کد مستقیم ؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.