Как перенсти данные из одного Adotable в другой Adotable?

← →
49 Cent (2006-02-18 23:11) [0]

Я переношу данные из одного Adotable в другой Adotable. Вопрос в том, как удалить данные из Adotable после переноса. У меня такой код:

while not adotable3.Eof do begin
adotable1.Edit;
adotable1.Insert;
adotable1.FieldByName("поле1").AsString:=adotable3.FieldByName("поле1").AsString ;
adotable1.Post;
adotable3.Delete;
adotable3.Next;
end;

Идея этого кода в том, чтобы взять запись из аdotable3, перенсти ее в adotable1 и затем перенесенную запись удалить из аdotable3.

По задумке, в конце цилка все записи должны быть перенесены в adotable1 , a в adotable3 не останется ни одной записи.

Однако, код не работает. Или ошибку выдает и удаляет не все строки.

← →
Галинка © (2006-02-18 23:58) [1]

while not adotable3.Eof do beginadotable1.Edit; adotable1.Insert; adotable1.FieldByName("поле1").AsString:=adotable3.FieldByName("поле1").AsString ; adotable1.Post; adotable3.Delete; // adotable3.Next; эта строчка не нужна !!! он и так при удалении сдвигает end; указатель текущей записи

← →
49 Cent (2006-02-19 00:14) [2]

Как перенсти данные из одного Adotable в другой Adotable? Найти похожие ветки