Buscar por:

Entre datas com ADOQuery simples

Código

{Primeiro a dica que ninguém dá pra quem está começando: 

1 - Vai nas propriedades do ADOQuery em "SQL" e na string vc coloca: select * from tabela where campodata between :dataINI and :dataFIM

2 - Veja que na propriedade Parameters já vai aparecer os dois parametros dataINI e dataFIM

3 - Agora no código(botão da consulta) vc vai adicionar essas linhas}

if dpeFinal.Date < dpeInicio.Date then

  begin

    ShowMessage('>> Data inicial maior que a data final, proceda a correção! <<');

    dpeInicio.Date := dpeFinal.Date;

  end

  else

  begin

    ADOQuery1.Close;

    ADOQuery1.SQL.Clear;

    ADOQuery1.SQL.Text := 'select * from tabela where campodata between dataIni and dataFim';

    ADOQuery1.Parameters.ParamByName('dataIni').Value := StrToDate(DateToStr(dpeInicio.Date));

    ADOQuery1.Parameters.ParamByName('dataFim').Value := StrToDate(DateToStr(dpeFinal.Date));

    ADOQuery1.ExecSQL;

    ADOQuery1.Open;

  end;

{ lembrando que dpeInicio e dpeFinal são respectivamente os componentes jvDatePickerEdit do jedi..mas vc pode utilizar outros conforme sua necessidade...outra coisa aqui comigo funciona com SQLServer e Access....}