Текущий архив: 2006.03.05;
Скачать: 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 вся ветка
Текущий архив: 2006.03.05;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.011 c
