Скачать: CL | DM;

Как перенсти данные из одного 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]

2 Галинка ©
Точно. Так и есть. Спасибо!!!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c