| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как перенсти данные из одного Adotable в другой Adotable?
49 Cent © (2006-02-18 23:11:00)Я переношу данные из одного 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 не останется ни одной записи.
Однако, код не работает. Или ошибку выдает и удаляет не все строки.
49 Cent (2006-02-19 00:14:00) [1]2 Галинка ©
Точно. Так и есть. Спасибо!!!
Галинка (2006-02-18 23:58:00) [2]
while not adotable3.Eof do
beginadotable1.Edit;
adotable1.Insert;
adotable1.FieldByName('поле1').AsString:=adotable3.FieldByName('поле1').AsString ;
adotable1.Post;
adotable3.Delete;
// adotable3.Next; эта строчка не нужна !!! он и так при удалении сдвигает
end; указатель текущей записи
| |
