Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Em Consulta Sql (Resolvido)


hencker

Pergunta

Estou usando o seguinte código:

procedure TFRange.btnImprimeClick(Sender: TObject);
Var DataIni, DataFin, SQLs : String;

begin
  DataIni := edtDiaINI.Text+'/'+edtMesINI.Text+'/'+edtAnoINI.Text;
  DataFin := edtDiaFIM.Text+'/'+edtMesFIM.Text+'/'+edtAnoFIM.Text;

  SQLs := 'SELECT * FROM MNSGNS WHERE DATAENVIO BETWEEN '+#39+DataIni+#39+' AND '+#39+DataFin+#39+'';

  with DMDados.ZQRel do begin
    Close;
    SQL.Clear;
    SQL.Add(SQLs);
    Open;
  end;
end;

Esse código deveria filtrar por datas os dados, (DataFin e DataIni) porém está retornando o seguinte erro:

SQL Error: conversion error from string "31/12/2004". Error Code: -413 Overflow occurred during data type conversion.

Ps: 31/12/2004 era o conteúdo da variável DataFin...

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Ele dá o seguinte erro se eu usar a linha acima:

SQL Error: Dynamic SQL Error SQL error code: -804 Function unknow TO_DATE. Error Code: -804. An error was found in the application program input parameters for the SQL Statement. The SQL: 'SELECT * FROM MNSGNS WHERE DATAENVIO BETWEEN TO_DATE('+#39+DataIni+#39+',''DD/MM/YYY'') AND TO_DATE('+#39+DataFin+#39+',''DD/MM/YYYY'')';

sad.gif

Link para o comentário
Compartilhar em outros sites

  • 0

Viiixii!!! ohmy.gif

Cara te aconselho a fazer desta forma então:

 with DMDados.ZQRel do begin
   Close;
   SQL.Clear;
   Sql.Add('SELECT * FROM MNSGNS WHERE DATAENVIO BETWEEN :dataini and :datafin ');
   ParamByName('dataini').AsDate := StrToDate(DataIni);
   ParamByName('datafin').AsDate := StrToDate(Datafin);
   Open;
 end;

Abs. Progr'amador.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...