怎样为delphi自带的桌面数据库日期型字段赋值？

Question

select count(clientid) as aVariant from table1 where comdate='2003-05-16'
我用上面的查询语句时报错：
Type mismatch in expression.
高手指教后面的'2003-05-16'应该怎么写才对？

Answer 1

我的本来就是短日期！
跟这个没关系，我的具体代码如下哪位大哥给看看怎么改才对：我的具体代码如下：
try
query1.Close;
strday:=formatdatetime('yyyy-mm-dd',now);
strSql:='select count (clientid) as acount from clientreginfo where comdate='+quotedstr(strday);
query1.SQL.text:=strSql;
query1.Prepare;
query1.Open;
except
....
end;
其中comdate字段定义为date型，
运行时报错如题，各位大侠给看看,应该怎么改？