大家看看这个很奇怪的错误?

Question

我要实现一个显示有效期离现在日期不到30天和库存量小于10件的商品的小程序,代码如下:
with Query1 do
begin
close;
sql.clear;
sql.Add('select goods.goods_id 商品编号,goods.goods_name 商品名称,stock.number 库存量,goods.validity_date 有效日期 from stock,goods');
sql.Add('where stock.goods_id=goods.goods_id');
sql.Add('and stock.number<10 or :d1>:d2');
ParamByName('d1').AsDateTime :=now+30;
ParamByName('d2').AsDateTime :=StrtoDatetime(trim(query1.Fieldbyname('validity_date').asstring));
open;为什么出现了Query1:ParamByName'd1'not found 这个错误

Answer 1

直接改成
sql.Add('and stock.number<10 or validity_date>:d2');
不就行了?

Answer 2

validity_date在数据库里面是VARCHAR类型的

Answer 3

哦,那要看看validit_date存储日期的格式了.建议还是用datetime类型比较好,比较起来方便一些.