Fórum Pesquisa SQL com Filtro #235584

procedure TForm1.Button1Click(Sender: TObject);
begin
   Query1.Close;
   Query1.SQL.Text:=´select * from venda where produto like :nome and data between :dataini and :datafim´;
   Query1.ParamByName(´nome´).Value:=Edit1.Text+´¬´;
   Query1.ParamByName(´dataini´).AsDate:=DateTimePicker1.Date;
   Query1.ParamByName(´datafim´).AsDate:=DateTimePicker2.Date;
   Query1.Open;
end;