procedure TForm1.Button1Click(Sender: TObject); begin with ADOQuery1 do begin close; sql.Clear; sql.Add('select * from tablename where rq between :#start and :#end'); Parameters.ParamByName('#start').Value := FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date); Parameters.ParamByName('#end').Value := FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date); Open; end; end;
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from tablename where rq between :#start and :#end');
Parameters.ParamByName('#start').Value := FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
Parameters.ParamByName('#end').Value := FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date);
Open;
end;
end;