[结贴][问题]lQuery**

zhjkill · 发表于 2007-12-26 11:16:44

规定了名称和类型，就查出一条了

zhjkill · 发表于 2007-12-26 11:18:38

如果不是一条的话我判断语句 if (lQuery.FieldByName('JC').AsInteger-DataSetBroker2.DataSet.FieldByName('SJLYSL').AsInteger+
DataSetBroker2.DataSet.FieldByName('RKSL').AsInteger)<0 then
这条我想不能执行了吧

yancm · 发表于 2007-12-26 13:06:12

l楼主，为什么不用update语句用excute来执行呢？

zhjkill · 发表于 2007-12-26 13:29:59

这个怎么写，不明白

zhjkill · 发表于 2007-12-26 13:45:20

lQuery.CommandText := 'update XHPMXB set JC=:j Where '+' XHDL = :a '+' and XHGG = :b';
               lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
               lQuery.Params.ParamByName('b').AsString := DataSetBroker2.DataSet.FieldByName('XHGG').AsString;
               lQuery.Params.ParamByName('j').AsInteger := j;
               lQuery.Execute;
那只能这样写了。。。

yancm · 发表于 2007-12-26 16:20:24

恩，这样就不会有多条记录更新问题了

zhjkill · 发表于 2007-12-26 18:39:18

好，结了吧

yancm · 发表于 2007-12-27 08:57:19

如果要使用select 的话，需要把关键字段一起选出来，就不会有更新多条的问题了
lQuery.CommandText := 'SELECT JC From XHPMXB Where '+' XHDL = :a '+' and XHGG = :b';
改成
lQuery.CommandText := 'SELECT JC, XHDL, XHGG From XHPMXB Where '+' XHDL = :a '+' and XHGG = :b';

即可。

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