1.查询某个日期的数据 with query1 do begin Close; Sql.Clear; Sql.Add('Select * from 表'); Sql.Add('Where 日期字段=:date'); ParaByName('date').AsString:=日期; Open; End; 2.某段日期数据 with query1 do begin Close; Sql.Clear; Sql.Add('Select * from 表'); Sql.Add('Where 日期字段 between :date1 and :date2'); ParaByName('date1').AsString:=日期1; ParaByName('date2').AsString:=日期2; Open; End; /////D4+Access通过,Delphi6+Oracle不好说!
很简单,这样就可以查到了: select * from A where A.mydate='''+DateToStr(datetimepicker1.date)+'''
with query1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * from 表');
Sql.Add('Where 日期字段=:date');
ParaByName('date').AsString:=日期;
Open;
End;
2.某段日期数据
with query1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * from 表');
Sql.Add('Where 日期字段 between :date1 and :date2');
ParaByName('date1').AsString:=日期1;
ParaByName('date2').AsString:=日期2;
Open;
End;
/////D4+Access通过,Delphi6+Oracle不好说!
select * from A where A.mydate='''+DateToStr(datetimepicker1.date)+'''