Две таблицы

viktooor · 30.06.2010

У меня две таблицы(ADO). В одной таблице через Grid при нажатии Delete в навигаторе удаляеися строка. Нужно чтобы эта строка записывалась во вторую таблицу.
Подскажите как это сделать
С уважением Виктор

VahaC · 30.06.2010

перед удалением вставляйте данные из одной таблицы в другую при помощи insert into select

вот пример

V88 · 02.07.2010

Можно и на событие BeforeDelete у ADOTable1 прописать добавление текущей записи в ADOTable2:

Код:

procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
ADOTable2.Append;
for i:=0 to ADOTable1.FieldCount-1 do
ADOTable2.Fields[i].Value:=ADOTable1.Fields[i].Value;//при условии, что ADOTable2 имеет точно такую же структуру, что и ADOTable1 
ADOTable2.Post;
end;

P.S. Я не проверял может сработает. Проверь.

viktooor · 08.07.2010

V88
Cпасибо за помощь
Но у меня такая задача.
В одной таблице навигатором выбираю позицию для удаления,
Нужно данную позицию перенести в другую таблицу, а в первой таблице удалить ее.
Весь вопрос в том, как перенести в другую таблицу только выбранную позицию.

VahaC · 09.07.2010

viktooor сказал(а):
Весь вопрос в том, как перенести в другую таблицу только выбранную позицию.

Вы мой пример смотрели??

Две таблицы

Вложения

Ещё по теме