копирование таблиц

← →
kazar © (2005-12-16 17:57) [0]

Привет, нужно перекопировать содержимое таблицы 1 в таблицу 2
Мой код на Delphi:
procedure TMainForm.Button1Click(Sender: TObject);
var
i,j: Integer;
begin
DataModule1.ADOTable2.First;
DataModule1.ADOTable1.First;
DataModule1.ADOTable2.Edit;
for i:=1 to DataModule1.ADOTable1.RecordCount do
for j:=1 to 2 do
begin

DataModule1.ADOTable2.Fields[j]:=DataModule1.ADOTable1.Fields[j];
end;
DataModule1.ADOTable2.Insert;
DataModule1.ADOTable2.Next;

end;
Но че та все пробегает и записывает в первую строчку. В чём проблема

← →
Desdechado © (2005-12-16 18:01) [1]

DataModule1.ADOTable1.Next;

а лучше
INSERT INTO Table2 SELECT * FROM Table1

копирование таблиц Найти похожие ветки