Ola Colegas,Estou com um problemas na grava��o em um campo data_hora (timestamp).Estou utilizando o Firebird.[code=delphi]emissao := formatdateTime(dd.mm.yyyy hh:mm:ss,CampoData.Date);if Acao...

Update em data e hora

10/10/2020

Ola Colegas,

Estou com um problemas na grava��o em um campo data_hora (timestamp).
Estou utilizando o Firebird.

emissao := formatdateTime('dd.mm.yyyy hh:mm:ss',CampoData.Date);
if Acao = 'Inserir) Then
     Sql := 'Insert into Tabela (codigo, emissao) Values ('+meucodigo+','+emissao)   //NAO INCLUSAO D� CERTO
Else
    Sql := 'Update tabela Set Emissao = '+Emissao+' Where codigo = '+Meucodigo;
sqltabela.sql.text := sql;
Try
   Sqltabela.ExecSQl;
Except
    on e : Exception do               
         KDialog('Erro ao executar comando SQL'#13#13'Classe de erro: '+e.ClassName+#13+'Erro encontrado: ' + e.message,'Alerta','ERRO');
end;

Erro:

Erro ao executar comando SQL

Classe de erro: TDBXError
Erro encontrado: Token unknown - line 1, column 570
1

Se eu copiar o comando e executar no IBexpert executa sem erro.

O que posso fazer para melhorar?
Usando o TSQLQuery e o TFDQuery tamb�m d� o mesmo.

Dirceu Morais

Curtir t�pico + 0

Responder

Posts

13/10/2020

Imex

Bom dia,

Acho que � melhor utilizar par�metros na instru��o SQL sempre que poss�vel. Ex:

if Acao = 'Inserir) Then
    Sql := 'Insert into Tabela (codigo, emissao) Values (:Codigo, :Emissao)'
Else
    Sql := 'Update tabela Set Emissao = :Emissao Where codigo = :Codigo';
sqltabela.sql.text := sql;
Try
   Sqltabela.ParamByName('Codigo').AsString := meucodigo;
   Sqltabela.ParamByName('Emissao').AsDateTime := CampoData.Date;
   Sqltabela.ExecSQl;

obs: no c�digo acima o campo Codigo foi considerado alfanum�rico (string). Voc� pode adaptar a linha de c�digo de acordo com o tipo de dados correto do campo

Espero que ajude

Responder

Gostei + 0

13/10/2020

Emerson Nascimento

visto que na inclus�o d� certo, tente informar os campos de forma id�ntica (na inclus�o est� tudo em min�sculas, mas na altera��o est� com a primeira mai�scula).

outra sugest�o � fazer um typecast na data:

if (Acao = 'Inserir') Then
    Sql := 'Insert into Tabela (codigo, emissao) Values ( :codigo, :emissao )'
Else
    Sql := 'Update tabela Set emissao = :emissao where codigo = :codigo';

sqltabela.sql.text := sql;

Try
   Sqltabela.ParamByName('codigo').AsString := MeuCodigo;
   Sqltabela.ParamByName('emissao').AsSQLTimeStamp := DateTimeToSQLTimeStamp( CampoData.Date ); // unit Data.SQLTimSt
   Sqltabela.ExecSQl;
Except
    on e : Exception do              
         KDialog('Erro ao executar comando SQL'#13#13'Classe de erro: '+e.ClassName+#13+'Erro encontrado: ' + e.message,'Alerta','ERRO');
end;

Responder

Gostei + 0