DELETE

[morika]

با سلام
می خواستم اگه امکانش هست کدی به من بدید که با فشار دادن یک دکمه تمام داده هایی که توی یه ADO هسش رو پاک کنه و این شرط رو داشته باشه که اگر ADO خالی نبود این کار رو بکنه و اگه خالی بود یه پیغام خالی است بده.
ممنون

[vbhamed]

سلام


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]

كار زياد سختي نيست
تشخيص خالي بودن


if ado.recordset.recordcount=0 then
msgbox "Table Is Empty"

براي حذف كردن


ado.recordset.open "Delete * from TableName"

بجاي TableName نام جدولت رو بنويس همه ركورد هاي موجود يك دفعه حذف مي شه
موفق باشي

[j.farazani]

با تشکر از دوست عزیزم bobrus


ado.recordset.open "Delete * from TableName"

فکر کنم * نیاز نباشه یا من دارم اشتباه می کنم؟؟

ممنون

[vbhamed]

ado.recordset.open "Delete * from TableName"

سلام
ولي دوست عزيز با اين كد بالا كه شما نوشتين تمام ركوردهاي جدول پاك ميشه نه چيزايي كه توي Ado هست
ممكنه Ado خودش شامل شرط باشه كه فقط تعدادي از ركوردهاي جدول رو نمايش بده

[ASKaffash]

با سلام
دستور درست SQL :
Delete TableName

[bobrus]

خوب اگه شرط داشته باشي مي توني در ادامه بهش اضافه كني


ado.recordset.open "Delete from TableName where . . . "

البته * نداره