Перенос данных из строки одной таблицы БД в другую БД

[Optigood]

Здравствуйте!) Имеется БД, состоящая из 2 таблиц. Для каждой таблицы в программе созданы формы с отображением их.
Необходимо из 1 таблицы, чтобы при нажатии на кнопку, данные из этой строки перемещались в другую таблицу БД и после вся строка удалялась из 1 таблицы.
Например, 1 таблица - это оставленные заявки на участие, далее менеджер рассматривает заявку и принимает её, данные заносятся в другую таблицу. Ниже приведены картинки...



Помогите пожалуйста с кодом. Перерыл форумы, но ничего конкретного не нашёл (.

[Stilet]

Ты пользуешся SQL?
Если да то методами INSERT - DELETE вполне проблема разрешима, и естесственно нужно знать структуру твоей таблицы. Как хотя бы идентифицировать строку, которую нужно перенести. У нее есть первичный ключ или какой-нить уникальный код?

[Optigood]

Stilet, пользуюсь Access'ом... Первичные ключи есть, скрытые id'ы.
Необходимо именно по установленному курсору перенести фамилию во 2 таблицу и всё.

На 1 форме компоненты: ADOConnection. ADOTable, DataSource.
На 2 форме: ADOConnecton, ADOQuery, DataSource.

[Dark_Spirit]

 adocommand1.commandtext:=cmdText;
 adocommand1.commandtext:='insert into <имя_другой_таблицы>(<поле1>, <поле2>, <поле3>....)'+#13+
 'values(adotable1.filedbyname('<поле1>').value, adotable1.filedbyname('<поле2>').value, adotable1.filedbyname('<поле3>').value....)';
 adocommand1.execute;
 adocommand1.commandtext:='delete <имя_первой_таблицы> where  id=<id_записи>';
 adocommand1.execute;

это как пример с использованием SQL-я.
можно попробовать и без него. добавь на 1 форму ещё один adotable и свяжи его с нужной тебе таблицей

 adotable1.edit;
 adotable2.edit;
 adotable2.fieldbyname('<поле1>').value:=adotable1.fieldbyname(<поле1>).value;
 adotable2.fieldbyname('<поле2>').value:=adotable1.fieldbyname(<поле2>).value;
 adotable2.fieldbyname('<поле3>').value:=adotable1.fieldbyname(<поле3>).value;
..................................
 adotable2.post;
 adotable1.delete;

[Stilet]

Ну... Короче я бы написал запросы:
insert into таблица2 select * from таблица1 where таблица1.id=а тут твой скрытый ID выделенной строки (его можно через FieldByName('ID') получить).
Ну и удаление
delete from таблица1 where таблица1.id=...
Это все по одиночке выполнить через ADOQuery

[Optigood]

Что-то не помогло ...

[Dark_Spirit]

что именно не помогло?
код в студию.

[Optigood]

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form3.show;

adotable1.edit;
adotable2.edit;
adotable2.fieldbyname('Спортсмен').value:=adotable1.fieldbyname('Surname').value;
//adotable2.fieldbyname('<поле2>').value:=adotable1.fieldbyname(<поле2>).value;
//adotable2.fieldbyname('<поле3>').value:=adotable1.fieldbyname(<поле3>).value;

adotable2.post;
adotable1.delete;

end;

После того, как таблицу делаешь активной, в поле спортсмен появляется почему-то его id.


Ну и прога при запуске косячит...

[Optigood]

[Stilet]

adotable2.edit;

Ну во первых, тут скорее insert нужен или append а не edit.
А во вторых: я бы это делал не через table а через query написав запрос INSERT... (Как я и предлагал)