ActiveDelphi

[marco.fabiano]

Boa tarde!

Alguém poderia dar uma força?

Delphi / Firebird, preciso gravar a data e hora em campo TIMESTAMP, dá erro: Erro unknown isc error 0

FrmDM.qInsert.ParamByName('pDT_UsuarioCad' ).AsDateTime:=Now;

[pestana]

o erro esta acontecendo nesta linha de código? você não alterou o tipo do parametro? o SQL está correto?
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.

[marco.fabiano]

sim, é nessa linha, já testei, tirei essa linha e grava normal no banco...
o bloco completo é:
FrmDM.qInsert.Close;
FrmDM.qInsert.SQL.Clear;
FrmDM.qInsert.SQL.Add('insert into ATENDIMENTO (DT_Atendimento,NR_Pedido,NM_Cliente,NM_Solicitante,');
FrmDM.qInsert.SQL.Add('DT_Solicitacao,HR_Solicitacao,NM_Resposta,DT_Resposta,HR_Resposta,DT_Prometida,DT_Reprogramada,');
FrmDM.qInsert.SQL.Add('DT_LiberadoSep,HR_LiberadoSep,DT_Atendido,NR_NF,DS_Obs,DS_Situacao,CD_UsuarioCad,DT_UsuarioCad)');
FrmDM.qInsert.SQL.Add('values (:pDT_Atendimento,:pNR_Pedido,:pNM_Cliente,:pNM_Solicitante,');
FrmDM.qInsert.SQL.Add(':pDT_Solicitacao,:pHR_Solicitacao,:pNM_Resposta,:pDT_Resposta,:pHR_Resposta,:pDT_Prometida,:pDT_Reprogramada,');
FrmDM.qInsert.SQL.Add(':pDT_LiberadoSep,:pHR_LiberadoSep,:pDT_Atendido,:pNR_NF,:pDS_Obs,:pDS_Situacao,:pCD_UsuarioCad,:pDT_UsuarioCad)');
FrmDM.qInsert.ParamByName('pDT_Atendimento' ).AsDate:=StrToDate(edDT_Atendimento.Text);
FrmDM.qInsert.ParamByName('pNR_Pedido' ).AsInteger:=StrToInt(edNR_Pedido.Text);
FrmDM.qInsert.ParamByName('pNM_Cliente' ).AsString:=edNM_Cliente.Text;
FrmDM.qInsert.ParamByName('pNM_Solicitante' ).AsString:=edNM_Solicitante.Text;
FrmDM.qInsert.ParamByName('pDT_Solicitacao' ).AsDate:=edDT_Solicitacao.Date;
FrmDM.qInsert.ParamByName('pHR_Solicitacao' ).AsTime:=edHR_Solicitacao.Time;
FrmDM.qInsert.ParamByName('pNM_Resposta' ).AsString:=edNM_Resposta.Text;
FrmDM.qInsert.ParamByName('pDT_Resposta' ).AsDate:=edDT_Resposta.Date;
FrmDM.qInsert.ParamByName('pHR_Resposta' ).AsTime:=edHR_Resposta.Time;
FrmDM.qInsert.ParamByName('pDT_Prometida' ).AsDate:=edDT_Prometida.Date;
FrmDM.qInsert.ParamByName('pDT_Reprogramada').AsDate:=edDT_Reprogramada.Date;
FrmDM.qInsert.ParamByName('pDT_LiberadoSep' ).AsDate:=edDT_LiberadoSep.Date;
FrmDM.qInsert.ParamByName('pHR_LiberadoSep' ).AsTime:=edHR_LiberadoSep.Time;
FrmDM.qInsert.ParamByName('pDT_Atendido' ).AsDate:=edDT_Atendido.Date;
FrmDM.qInsert.ParamByName('pNR_NF' ).AsInteger:=StrToInt(edNR_NF.Text);
FrmDM.qInsert.ParamByName('pDS_Obs' ).AsString:=edDS_Obs.Text;
FrmDM.qInsert.ParamByName('pDS_Situacao' ).AsString:=cbDS_Situacao.Text;
FrmDM.qInsert.ParamByName('pCD_UsuarioCad' ).AsInteger:=StrToInt('1');
FrmDM.qInsert.ParamByName('pDT_UsuarioCad' ).AsDateTime:=Now;
FrmDM.qInsert.ExecSQL;

se eu colocar .AsDate:=Date, grava normal, porém só grava a data, a hora fica como 00:00, e não é o q eu preciso, preciso gravar a hora correta.

[rafmattos]

vc ta usando dialeto 3?

[Batera]

Concordo com o amigo acima. O tipo TIMESTAMP funciona somente com o Dialeto 3.

[pestana]

[marco.fabiano]

Também pensei nisso, mas usei o dialeto 3 sim.

[rafmattos]