Erro Em Consulta Sql (Resolvido)

[hencker]

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...

[Progr'amador]

Olá hencker,

tenta usar a select assim:

SQLs := 'SELECT * FROM MNSGNS WHERE DATAENVIO BETWEEN TO_DATE('+#39+DataIni+#39+',''DD/MM/YYY'') AND TO_DATE('+#39+DataFin+#39+',''DD/MM/YYYY'')';

Abs. Progr'amador.

[hencker]

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'')';

[Progr'amador]

Viiixii!!!

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.

[hencker]

valeu Progr'amador, funcionou direitinho

[]'s a todos!!!

Pode fechar!