【搞定】数据集添加了参数还是有问题？**

cxxwz123 · 发表于 2007-3-24 21:21:06

DataSetYWYHKTJB.SQLFilter := '(ny >=:q) and (ny <=:s)';
  DataSetYWYHKTJB.Params.ParamByName('q').AsDate:=DataSetYWYHKTJBZDYSJJ.fieldbyname('qsrq').AsDateTime;
  DataSetYWYHKTJB.Params.ParamByName('s').AsDate:=DataSetYWYHKTJBZDYSJJ.fieldbyname('jsrq').AsDateTime;
  DataSetYWYHKTJB.SQLFiltered:=true;
  DataSetYWYHKTJB.Open;

cxxwz123 · 发表于 2007-3-24 21:45:37

编译通过的，查询时就出问题了。。。

cxxwz123 · 发表于 2007-3-26 19:14:27

帮忙解决下！！！

jiahaiminghr · 发表于 2007-3-27 10:16:36

先为数据集创建一个参数 q 就可以了。

cxxwz123 · 发表于 2007-3-27 17:33:34

在数据集参数那里已经创建了，可是运行还是出现这个问题啊

jiahaiminghr · 发表于 2007-3-27 18:07:27

那就需要跟踪一下代码了
你设置断点看看。

cxxwz123 · 发表于 2007-3-28 20:46:59

在数据集这里已经设置了参数

cxxwz123 · 发表于 2007-3-28 20:50:02

出现这样问题？是不是我哪里没操作错了。第一次用数据集的这个参数。

jiahaiminghr · 发表于 2007-3-29 10:01:48

可能是在设计时参数被清空了（设计器会根据你的sql语句自动设置参数）

所以你可以在代码中来创建参数：
begin
   DataSetDataSetP.Params.clear;
   DataSetDataSetP.Params.CreateParam(TFieldType.ftDateTime, 'q', TParamType.ptInput).AsDateTime := ABegin;
   DataSetDataSetP.Params.CreateParam(TFieldType.ftDateTime, 's', TParamType.ptInput).AsDateTime := AEnd;
   DataSetDataSetP.SqlFilter := 'FDate >= :q and FDate <= :s';
   DataSetDataSetP.SqlFiltered := True;
   DataSetDataSetP.Refresh;
end;

cxxwz123 · 发表于 2007-3-29 18:55:50

哦我试试看的？

		自动登录	找回密码
密码			立即注册