从表order 中选择outdate>今天的id,outdate,源码如下:
procedure Ttixing.FormCreate(Sender: TObject);
var todaydate:TDateTime;
begin
begin
todaydate:=now;
with adoquery1 do
begin
sql.Clear;
//sql.add('select id,outdate from order where outdate>2003-6-25');
//此条sql 运行oksql.add('select id,outdate from order where outdate>todaydate');
//此条sql不正确,如何修改?数据库为access,outdate为日期型
Prepared;
Open;
end;
end;
end;
procedure Ttixing.FormCreate(Sender: TObject);
var todaydate:TDateTime;
begin
begin
todaydate:=now;
with adoquery1 do
begin
sql.Clear;
//sql.add('select id,outdate from order where outdate>2003-6-25');
//此条sql 运行oksql.add('select id,outdate from order where outdate>todaydate');
//此条sql不正确,如何修改?数据库为access,outdate为日期型
Prepared;
Open;
end;
end;
end;
如楼上的。----------------
过河卒