delphi与数据库

zoujunwu 发布于 2007-04-21 14:48， 635 次点击

var
a:tdatetime;
begin
a:=2004-09.21;
ADOTable1.close;
ADOTable1.sql.text:='select *from aaa where hire_date>'''+a+'''';
ADOTable1.open;
end;
怎么老是错弄？各位老大在这如何用那一个时间变量。帮帮我吧？

3 回复

nongen2007-04-21 16:15

a:=2004-09.21;
这里不是日期类型了。

anthony6342007-04-21 16:29

ADOTable1.sql.text:='select *from aaa where hire_date>'''+a+'''';
TDateTime 不是编译器可直接识别的预定义类型，它在System单元定义：

type
TDateTime = type Double;

nongen2007-04-21 16:32

a=date;