什么库呀? 试试 procedure TForm2.BitBtn1Click(Sender: TObject); begin with query1,query1.sql do begin close; Clear; Add('select * from lwsc'); add('where 出国日期=:tempdate); parambyname('tempdate').asdatetime:=strtodate('2001-07-19'); open; end; end;
同意楼上的意见:不过稍改下更完美 procedure TForm2.BitBtn1Click(Sender: TObject);beginwith query1 do begin close; sql.Clear; sql.Add('select * from lwsc'); sql.add('where 出国日期=:tempdate');(这里可换成 between :tempdate1 and :tempdate2,然后下面定义2个动态参数) parambyname('tempdate').asdatetime:=datetimepicker1.date(动态改变日期);
如果用的sqlserver的话,sql语句用between '' and '' 就可以了,
你试一试。
试试
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
with query1,query1.sql do
begin
close;
Clear;
Add('select * from lwsc');
add('where 出国日期=:tempdate);
parambyname('tempdate').asdatetime:=strtodate('2001-07-19');
open;
end;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);beginwith query1 do
begin
close;
sql.Clear;
sql.Add('select * from lwsc');
sql.add('where 出国日期=:tempdate');(这里可换成 between :tempdate1 and :tempdate2,然后下面定义2个动态参数)
parambyname('tempdate').asdatetime:=datetimepicker1.date(动态改变日期);
open;
end;
end;