4

Ao realizar testes na aplicação onde migrei o BD de Firebird para PostgreSQL o seguinte erro ocorre ao tentar salvar um item no banco:

inserir a descrição da imagem aqui

Revisando o código pude ver que o erro ocorre na verdade neste ponto do código:

    dmCadMib.Consulta_Cliente(Cliente); // Nessa Linha pula para a procedure Consulta_Cliente
    dmCadMib.ConsClienteNoGrupo;
    dmCadMib.localizaCliente(StrToInt(Cliente));
Procedure Consulta_Cliente:

procedure TdmCadMIB.Consulta_Cliente(Codigo: string);

begin 
   cdsEmpresa.Close;
   sdsEmpresa.CommandText := 'select * from Empresa where Codigo =' + Codigo;
   cdsEmpresa.Open;
end;
4
  • Em qual dos dois inserts dá o erro? E você consegue depurar e colocar a string formada da forma que vai pro BD?
    – Sorack
    Commented 22/11/2016 às 10:43
  • Eu editei a pergunta @Sorack com o ponto correto onde o erro ocorre
    – R.Santos
    Commented 22/11/2016 às 11:23
  • Tá, mas coloca a string formada por isso, ou seja, o que vai efetivamente pro BD. É erro de sintaxe, dessa forma vai ficar extremamente simples de achar o erro
    – Sorack
    Commented 22/11/2016 às 11:23
  • Cuidado com cdsEmpresaNOME.AsString, dependendo o que está nesta variável pode dar problema de sintaxe no SQL ou pior. Ao invés disso, use parâmetros
    – Genos
    Commented 22/11/2016 às 11:40

2 Respostas 2

5

A única coisa que pode estar errada é que a sua variável Cliente esta vazia ou nula. Mas aí tem que ver na regra de negócio onde deveria ser preenchida.

syntax error at the end of the input

É um erro retornado pelo banco, sua query está sendo enviada como:

select * from Empresa where Codigo =;
4

A Solução que encontrei foi converter a variável codigo para integer que era o formato que estava no banco:

a solução foi apenas isso: procedure TdmCadMIB.Consulta_Cliente(Codigo: string); alterei para procedure TdmCadMIB.Consulta_Cliente(Codigo: Integer);

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .