Colegas,
Eu tenho uma pequena função para GRAVAR LOGS do Sistema, que funciona 100% com
BDE, porém, com ADOQuery não esta funcionando.
Esta dando erro na definiçao da classe/tipo da variável do parametro HORA da
função, devo passar de outra maneira o parametro HORA só não sei como:
hora : TDateTime ////// deve ser definido de outra maneira?
Na integra a minha função:
---------------------------------------
/// inicio
function gravaLog (data : TDateTime; usuario : string; arquivo : string; hora :
TDatetime):boolean;// <----- aqui na definiçao da classe do parametro HORA esta
o erro
begin
// SE inserir Log retorno É TRUE
qryLog := TADOQuery.Create(Application);
result := true;
try
qryLog.Connection := dtbPar;
qryLog.Sql.Add('INSERT INTO TABELADELOG values(');
qryLog.Sql.Add(':pdata,:pusuario,:parquivo,:phora)');
qryLog.Parameters.ParamByName('pdata').Value := data;
qryLog.Parameters.ParamByName('pusuario').Value := usuario;
qryLog.Parameters.ParamByName('parquivo').Value := arquivo;
qryLog.Parameters.ParamByName('phora').Value := hora;
qryLog.ExecSql;
qryLog.Close;
except
result := false;
end;
end;
//// fim
Qualquer ajuda é bem-vinda, muito obrigado.
[]´s Nunes
Delphi 2007 + Postgresql 8.2
[As partes desta mensagem que não continham texto foram removidas]
