用DateTimePicker的实现日期的检索

Question

数据库表：a, 里面有一个datetime类型的字段“日期”
窗体上放一个 DateTimePicker，如何实现当点击 DateTimePicker里的日期时，实现数据库的按日期时间查询？

Answer 1

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  with adoquery1 do
  begin
    close;
    sql.clear;
    sql.text := format('select * from a where f1 = ''%s'' ',[formatdateTime('YYYY-MM-DD',datetimepicker1.Date)]);
    open;
  end;
end;

Answer 2

补充楼上的：
查询Access数据库:
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  with adoquery1 do
  begin
    close;
    sql.clear;
    sql.text := format('select * from a where f1 = #%s# ',[formatdateTime('YYYY-MM-DD',datetimepicker1.Date)]);
    open;
  end;
end;