echoes
شنبه 20 بهمن 1386, 17:16 عصر
چطور می شه اطلاعات داخل یک جدول رو کاملا پاک کرد و مجددا از یک جدول دیگه پر کرد، ترجیحا با .
ADO Query و بدونه استفاده از حلقه
;من خودم از این کد استفاده کردم ولی دنبال راه حل مناسب تری هستم
procedure Tfrm_main.hesab2_fill();
var
i:integer;
begin
Hesab_query_Ref();
qryHesab2_ref;
qryHesab.First;
qryHesab2.First;
for i:=1 to qryHesab2.RecordCount do
begin
qryHesab2.Delete;
qryHesab2.Next;
end;
for i:=1 to qryHesab.RecordCount do
begin
qryHesab2.Insert;
qryHesab2.FieldByName('H_Code').Value:=StrToInt(DB E_HCode.Text);
qryHesab2.FieldByName('H_Onvan').Value:=DBE_HesabN am.Text;
qryHesab2.Post;
qryHesab.next;
end;
Hesab_query_Ref();
qryHesab2_ref;
end;
ADO Query و بدونه استفاده از حلقه
;من خودم از این کد استفاده کردم ولی دنبال راه حل مناسب تری هستم
procedure Tfrm_main.hesab2_fill();
var
i:integer;
begin
Hesab_query_Ref();
qryHesab2_ref;
qryHesab.First;
qryHesab2.First;
for i:=1 to qryHesab2.RecordCount do
begin
qryHesab2.Delete;
qryHesab2.Next;
end;
for i:=1 to qryHesab.RecordCount do
begin
qryHesab2.Insert;
qryHesab2.FieldByName('H_Code').Value:=StrToInt(DB E_HCode.Text);
qryHesab2.FieldByName('H_Onvan').Value:=DBE_HesabN am.Text;
qryHesab2.Post;
qryHesab.next;
end;
Hesab_query_Ref();
qryHesab2_ref;
end;