PDA

View Full Version : سوال: حذف تمامی رکورد های یک جدول



محمود ایوبی
دوشنبه 30 فروردین 1389, 12:28 عصر
سلام خدمت تمامی دوستان
اگر برای اتصال به دیتابیس از ADO استفاده کرده باشیم و بخواهیم تمامی رکورد های یکی از جداول بانک اطلاعاتی رو پاک کنیم چه کار باید بکنیم ؟
من خودم از DeleteRecords استفاده کردم ولی پیغام خطای زیر رو میده


Operation is not allowed in this context

لطفا راهنمایی کنید.

Felony
دوشنبه 30 فروردین 1389, 12:52 عصر
هم میتونید با دستورات SQL این کار رو بکنید و هم با یک حلقه کل بانک رو کنکاش کنید و با متد Delete رکورد جاری رو حذف کنید .

حسین خانی
دوشنبه 30 فروردین 1389, 15:55 عصر
با سلام :لبخندساده:

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
n:=ADOQuery1.RecordCount;
for i:=1 to n do
ADOQuery1.Delete;
end;
موفق باشید ...

Mahmood_M
دوشنبه 30 فروردین 1389, 16:53 عصر
با سلام :لبخندساده:

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
n:=ADOQuery1.RecordCount;
for i:=1 to n do
ADOQuery1.Delete;
end;
موفق باشید ...

قبلش باید جدول رو به ابتدا ببرید :
ADOTable1.First;
به صورت زیر هم میشه :
ADOTable1.First;
While not ADOTable1.Eof do
ADOTable1.Delete;
...

محمود ایوبی
دوشنبه 30 فروردین 1389, 17:51 عصر
ممنونم از تمامی دوستان که پاسخ دادند من مشکلم حل شد.

M aJi D
چهارشنبه 01 اردیبهشت 1389, 01:30 صبح
سلام.
دوست عزيز ميتونيد از دستور sql هم استفاده كنيد كه سرعتش هم بيشتره .


adoquary.sql.text := "Delete * From Table1"


موفق باشيد