Consulta Da Erro

[Eder]

Ola..pessoal

Estou tentando fazer uma consulta paradox muito simples com DATAS mas sempre me retorna erro:

procedure TForm1.BitBtn1Click(Sender: TObject);

VAR

TFRETECOMBO, FILIALCOMBO:STRING;

BEGIN

With Query1 Do

Begin

Close;

TfreteCombo:=(tfcombobox.text);

FilialCombo:=(FilialComboBox.text);

IF (TfreteCombo = 'TODOS')or(FilialCombo = 'TODAS')THEN

With SQL Do

Begin

Clear;

Add('Select * from CTRC Where DATA_EMISSAO between :DataINICIAL and :DataFINAL');

END;

ParamByName('DataINICIAL').AsDateTime := StrToDate( Data1.Text );

ParamByName('DataFINAL').AsDateTime := StrToDate( Data2.Text );

Open;

End;

End;

erro: TYPE MISMATCH IN EXPRESSION

Não achei nada de errado no codigo..

alguém poderia me dar uma dica o que pode estar errado?

Grato

um amigo me deu uma dica agora deu certo:

Add('Select * from CTRC Where DATA_EMISSAO >= ' + QuotedStr(data1.text) + ' and DATA_EMISSAO <= ' + QuotedStr(data2.text));

Valeu...t+

[Vivendo&Aprendendo]

Olá Eder...

Eu utilizo desta forma:

Desta forma a consulta verifica dia, mês e ano:

With TABELA Do

Begin

Close;

SQL.Clear;

SQL.Add('Select * From Alunos');

SQL.Add('Where DataNasc between :Inicial and :Final');

Parameters.ParamByName('Inicial').Value := StrToDate(EdtInicial.Text);;

Parameters.ParamByName('Final').Value := StrToDate(EdtFinal.text);

SQL.Add('Order By DataNasc');

Open;

end;

Assim ela só verifica dia e mês:

Variáveis: DtInicio, DtFim,Inicio, Fim

DtInicio := StrToDate(EdtInicial.text);

DtFim := StrToDate(EdtFinal.text);

Inicio := MonthOf(DtInicio) *100 +DayOf(DtInicio);

Fim := MonthOf(DtFim) *100 +DayOf(DtFim);

with TABELA do

begin

Close;

SQL.Clear;

SQL.Add('SELECT * ');

SQL.Add('FROM TABELA');

if MonthOf(DtFim) < MonthOf(DtInicio) then

begin

SQL.Add('WHERE (Month(CAMPO)*100+Day(CAMPO)) BETWEEN :Inicio AND 1231 ');

SQL.Add('OR (Month(CAMPO)*100+Day(CAMPO)) BETWEEN 101 AND :Fim');

end

else

SQL.Add('WHERE (Month(CAMPO)*100+Day(CAMPO)) between :Inicio and :Fim');

SQL.Add('ORDER BY CAMPO);

Parameters.ParamByName('Inicio').DataType := ftInteger;

Parameters.ParamByName('Inicio').Value := Inicio;

Parameters.ParamByName('Fim').DataType := ftInteger;

Parameters.ParamByName('Fim').Value := Fim;

Open;

end;

Alexandre

[Eder]

ALEXANDRE....tentei usar seu codigo de dia, mês ano mas deu um errinho:

[Error]CSV_DB.pas(703): Undeclared identifier: 'Parameters'

tenho que declarar algo....??

valeu

[Vivendo&Aprendendo]

Qual componente você está usando? eu uso o AdoQuery.

Alexandre

[Eder]

eu uso

query + paradox

:D

[Vivendo&Aprendendo]

Pois é Eder a Query não contêm essa propriedade... por isso eu uso o AdoQuery...

Mas tente usar dessa forma:

Query1.Params.ParamByName(CÓDIGO)

Alexandre

[Eder]

BELEZA...valeu