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

[WishHunter]

У меня есть база данных с двумя таблицами, помещенными на форму с помощью DBgrid, подскажите как организовать, что бы при нажатии кнопки выделенная пользователем строчка из первой таблицы переносилась во вторую, дополняясь столбцами с датой и временем?

[Stilet]

Для этого нужно знать какие компоненты используются и структуру таблиц.

[WishHunter]

Сообщение от Stilet

Для этого нужно знать какие компоненты используются и структуру таблиц.

Ну для отображения таблицы используется компонент DBGrid Для внедрения таблицы БД я создал DataModule с компонентами TTable и DataSource, ну это логично, и вот мне надо что бы при нажатии кнопки BitBtn выделенная строчка перенеслась во вторую таблицу. Структура таблицы(если я правильно понял что это):
0 столбец: ID, Autoinkrement ключевое поле
1 столбец: N Auto, Alpha, вторичный ключ
2 столбец: F.I.O , Alpha
3 столбец: Marka, Alpha
4 столбец: Summa , Money
5 столбец: predoplata, Logical

вторая таблица все тоже самое только:
6 столбец: Data, Alpha
7 столбец: Time, Alpha

[Stilet]

Понял. С потолка так:

var i:integer;
begin
 table2.insert;
 for i:=0 to table1.FieldsCount-1 do begin
  table2.FieldByName(table1.fields[i].FieldName).value:=table1.fields[i].value;
 end;
  table2.FieldByName('Data').value:=dateToStr(date);
  table2.FieldByName('Time').value:=timeToStr(time);
 table2.post;
end;

[WishHunter]

Все,вроде работает, спасибо огромное!!!

[WishHunter]

for i:=0 to table1.Fields.Count-1 do begin

на эту строчку ругается:

[Warning] Unit1.pas(74): For loop control variable must be simple local variable

[Serge_Bliznykov]

[Warning] Unit1.pas(74): For loop control variable must be simple local variable

во-первых, не ругается, а ПРЕДУПРЕЖДАЕТ (warning == предупреждение)

во-вторых, текст сообщения перевести на русский не пробовали?

переменная i должная быть простой ЛОКАЛЬНОЙ переменной.

опишите var i : integer; в той процедуре, где написан данный код, и данное предупреждение пропадёт...

[WishHunter]

Сообщение от Serge_Bliznykov

во-первых, не ругается, а ПРЕДУПРЕЖДАЕТ (warning == предупреждение)

во-вторых, текст сообщения перевести на русский не пробовали?

переменная i должная быть простой ЛОКАЛЬНОЙ переменной.

опишите var i : integer; в той процедуре, где написан данный код, и данное предупреждение пропадёт...

Да, извиняюсь,полазил нашел проблему,не успел пост исправитьНо проблема теперь в другом, выдает:


Project Project1.exe raised exception class EDatabaseError with message 'table2: Field 'N. Auto' not found'. Process stopped. Use Step or Run to continue.

Вот теперь с этим столкнулся,хотя поля в обоих таблицах идентичны и стоят в том же порядке.

[Serge_Bliznykov]

и кто Вас учит называть поля с пробелами (а то и вообще, по русски)??!
если СУБД MS Access попробуйте взять имя поля в квадратные скобки:
xxxx.FieldByName('[N auto]').value....;

а вообще, я бы воспользовался SQL запросом и в нём присвоил поля нормальные алиасы!

[WishHunter]

Сообщение от Serge_Bliznykov

и кто Вас учит называть поля с пробелами (а то и вообще, по русски)??!
если СУБД MS Access попробуйте взять имя поля в квадратные скобки:
xxxx.FieldByName('[N auto]').value....;

а вообще, я бы воспользовался SQL запросом и в нём присвоил поля нормальные алиасы!

Спасибо огромное! Реально тупанул в 1 базе пробел поставил, а во второй норм, без пробела,вот и ругался

СУБД Paradox 7 кстати.

Да,спасибо за совет, нашел материал, буду SQL запросы изучать