копирование таблиц [D7]
kazar © (2005-12-16 17:57:00)
Привет, нужно перекопировать содержимое таблицы 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:00) [1]
DataModule1.ADOTable
1.Next;
а лучше
INSERT INTO Table2 SELECT * FROM Table1
Наверх 
ЧАТ |
Орешник |
|
