Fórum Consulta em SQL #175027

select * from Table1
where ((Data >= :data1)and(data2 <= :data2))

o código acima deve estar dentro de um componente Query. Na propriedade Params da query defina que data1 e data2 são do tipo Date.

insira no seu formulário dos componentes edit´s que receberão a Data1 e Data2
aí no OnClick de um Button coloque

...
begin
Query.Close;
Query.ParamByName(´Data1´).AsDate := strtodate(Edit1.Text);
Query.ParamByName(´Data2´).AsDate := strtodate(Edit2.Text);
Query.Open;
end;


abraço
Diogo

Só completando o nosso amigo.

If edit2.Text < edit1.text Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
edit2.text := edit1.text;
end
Else
begin

Só para verificar e não causar um erro.