Código
Filtro := 'Select * From Tabela';
Filtro := Filtro+' and Data >= :pData1 and Data <= :pData2';
Tabela.SQL.Clear;
Tabela.SQL.ADD(Filtro);
Tabela.ParamByName('pData1').AsString := FormatDateTime('yyyy-mm-dd',Data1);
Tabela.ParamByName('pData2').AsString := FormatDateTime('yyyy-mm-dd',Data2);
Tabela.Open;
//Considera-se que o usuário esteja usando um DBTables.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009