Запись даты в Paradox - поля date time

[xKLONx]

procedure TForm1.stroka(Date,Time: TDateTime);
var
S: string;
op: string;
begin
DateTimeToString(S, 'd.m.yyyy', Date);
DateTimeToString(op, 'hh:nn:ss', Time);
Memo1.lines.add(S);
Memo1.lines.add(op);
query1.close;
query1.SQL.clear;
query1.SQL.Add('insert into EVENTS (EV_ID, EV_DATE, EV_TIME, EV_TYPE, EV_CODE, NCARD, FCARD, DEVICE, CARD, STAFF) ');
query1.SQL.Add('values (1395067, '+S+', '+op+', 1, 105, 0, 0, 1322, null, null)');
query1.prepare;
query1.ExecSQL;
query1.Close;
end;

уже повсякому перепробовал строки то вроде нормальные получаются 16.8.2010 и 14:14:14
пишет invalid use of keyword
token: .2010

причем из sql эксплорера все нормально добавляется(

[Stilet]

procedure TForm1.stroka(Date,Time: TDateTime);
var
S: string;
op: string;
begin
DateTimeToString(S, 'd.m.yyyy', Date);
DateTimeToString(op, 'hh:nn:ss', Time);
Memo1.lines.add(S);
Memo1.lines.add(op);
With query1 do begin
 close;
 SQL.clear;
 Parameters.ParamByName('Dat').Value:=Date;
 Parameters.ParamByName('tim').Value:=Time;
 sql.Add('insert into EVENTS (EV_ID, EV_DATE, EV_TIME, EV_TYPE, EV_CODE, NCARD, FCARD, DEVICE, CARD, STAFF) ');
 SQL.Add('values (1395067, :Dat, :tim, 1, 105, 0, 0, 1322, null, null)');
 ExecSQL;
end;

Смысл понял? Параметрами действуй.

[xKLONx]

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

[Stilet]

то есть в эти поля нужно все таки записывать TDateTime значения

Ну наверное )
Как раз если не знаешь правильного формата лучше параметризировать запрос.

или сделать автовставку

Это будет лучшей идеей (автоинкрементное поле).
Можно попробовать еще извратится триггерами, но... тут достаточно большое кол-во этих но учитывая Paradox

[xKLONx]

procedure TForm1.stroka(Date,Time: TDateTime);
var
S: string;
op: string;
bt: integer;
begin
DateTimeToString(S, 'd.m.yyyy', Date);
DateTimeToString(op, 'hh:nn:ss', Time);
with query1 do begin
close;
SQL.clear;
SQL.Add('select max(EV_ID) from EVENTS');
ExecSQL;
if recordcount >=1 then
bt:= FieldByName('EV_ID').AsInteger + 1
else bt:= 1;
end;
with query2 do begin
SQL.clear;
SQL.Add('insert into EVENTS (EV_ID, EV_DATE, EV_TIME, EV_TYPE, EV_CODE, NCARD, FCARD, DEVICE, CARD, STAFF) ');
SQL.Add('values (:index, :Dat, :Tim, 1, 105, 0, 0, 1322, null, null)');
ParamByName('index').Value:=bt;
ParamByName('Dat').Value:=Date;
ParamByName('Tim').Value:=Time;
ExecSQL;
Close;
end;
end;

Что то нехватает, cannot perform this operation on a closet dataset?

[Stilet]

ExecSQL;
Close;

Close; убери совсем. Не нужно закрывать то что не открыто. ExecSQL набор не открывает.

[xKLONx]

спасибо, друг :D
вместо close; open; и дописать select max(EV_ID) as EV_ID from EVENTS