View Full Version : DELETE
morika
یک شنبه 29 اردیبهشت 1387, 17:49 عصر
با سلام
می خواستم اگه امکانش هست کدی به من بدید که با فشار دادن یک دکمه تمام داده هایی که توی یه ADO هسش رو پاک کنه و این شرط رو داشته باشه که اگر ADO خالی نبود این کار رو بکنه و اگه خالی بود یه پیغام خالی است بده.
ممنون
vbhamed
یک شنبه 29 اردیبهشت 1387, 17:59 عصر
سلام
On Error Resume Next
Dim i&
With Adodc1.Recordset
If .RecordCount > 0 Then
For i = 0 To .RecordCount - 1
.MoveFirst
.Delete
Next
Else
MsgBox "No any record found"
End If
End With
bobrus
یک شنبه 29 اردیبهشت 1387, 18:02 عصر
كار زياد سختي نيست
تشخيص خالي بودن
if ado.recordset.recordcount=0 then
msgbox "Table Is Empty"
براي حذف كردن
ado.recordset.open "Delete * from TableName"
بجاي TableName نام جدولت رو بنويس همه ركورد هاي موجود يك دفعه حذف مي شه
موفق باشي
j.farazani
یک شنبه 29 اردیبهشت 1387, 19:40 عصر
با تشکر از دوست عزیزم bobrus
ado.recordset.open "Delete * from TableName"
فکر کنم * نیاز نباشه یا من دارم اشتباه می کنم؟؟
ممنون
vbhamed
دوشنبه 30 اردیبهشت 1387, 11:27 صبح
ado.recordset.open "Delete * from TableName"
سلام
ولي دوست عزيز با اين كد بالا كه شما نوشتين تمام ركوردهاي جدول پاك ميشه نه چيزايي كه توي Ado هست
ممكنه Ado خودش شامل شرط باشه كه فقط تعدادي از ركوردهاي جدول رو نمايش بده
ASKaffash
دوشنبه 30 اردیبهشت 1387, 12:21 عصر
با سلام
دستور درست SQL :
Delete TableName
bobrus
دوشنبه 30 اردیبهشت 1387, 16:20 عصر
خوب اگه شرط داشته باشي مي توني در ادامه بهش اضافه كني
ado.recordset.open "Delete from TableName where . . . "
البته * نداره
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.