Форум: "Базы";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c