在Delphi中實現;
Procedure query(date01,date02:tdatetime);
var date1,date2,str:string;
begin
query.close;
shortdateformat:='yyyy/mm/dd';
DateSeparator:='/'; //防止格式化出錯
date1:=Formatdatetime('yyyy/mm/dd',date01);
date2:=Formatdatetime('yyyy/mm/dd',date02);
str:='select * from table1 where date>='''+date1+''' and date<='''+date2+'''';
query.sql.text:=str;
query.prepared;
query.open;
end;
with query1 do
begin
clsoe;
sql.clear;
sql.add('select * from table1 where date>=:q1 and date<=:q2')
query1.params[0]:='2002-02-02';
qurey1.params[1]:='2002-02-23';
sql.open;
end;