Добавление записи

[LLIYT]

Как по закрытию формы, добавить запись о времени закрытия формы, в таблицу базы даннаых Access? Связь идет через ADO

[soleil@mmc]

если у вас таблица организована как лог, то наверное так

qADO.SQL.Text := 'insert into log_application
(name_form, action, log_date, ....)
values(:p0, :p1, :p2, ...) ';

qADO.Parameters.ParamByName('p0').Value:= 'TForm1';
qADO.Parameters.ParamByName('p1').Value:= 'close';
qADO.Parameters.ParamByName('p2').Value:= Date; //Now;

qADO.ExecSQL;

оформить в виде процедуры и привесить ее по событию OnClose формы

[LLIYT]

а без испальзования SQL (в котором не рублю) можно реализовать?
а то я даж не вкуриваю куда это SQL тулить(

[Sparky]

А как вы собираетесь, работать с бд незная самых основ SQL? тем более вам никто не предлогает писать хранимые процедуры или что-то еще в этом духе. Уж разобраться с оператором insert можно

[soleil@mmc]

тхаха
Вам наверное к Гоголю - у него вроде как пельмешки/вареники сами по воздуху в рот отправлялись

если не хочется с СКЛ связываться, то тогда нужно держать коннект с таблицей и делать что-то типа

ADOTable1.Edit;
ADOTable1.FieldByName('name_form').Value:= 'TForm1';
ADOTable1.FieldByName('action').Value:= 'close';
ADOTable1.FieldByName(' log_dat').Value:= Date; //Now;
....
ADOTable1.Post;

разрастание проекта и его усложнение заставит вас перейти на СКЛ

[Stilet]

ADOTable1.Edit;

Автор просит добавки, так что нужно не Edit a Insert

[soleil@mmc]

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

Автор просит добавки, так что нужно не Edit a Insert

удовлетворю его требование

ADOTable1.Insert;
ADOTable1.FieldByName('name_form').Value:= 'TForm1';
ADOTable1.FieldByName('action').Value:= 'close';
ADOTable1.FieldByName(' log_dat').Value:= Date; //Now;
....
ADOTable1.Post;

[LLIYT]

глубоко благодарен =)

[LLIYT]

только при Edit редактируются поля текущей позиции, а при insert (мне как раз ее и нато ибо вставка в др таблицу) рунгаецца ключевое поле, которое пустое получаецца.

[LLIYT]

зы, поля ключевый - числа, ибо при счетчике низя связи сделать(