【结贴】更新表

vagrant

if Infobroker.Info.DataSetByID('YDSJJ').FieldByName('ydzl_sala2').AsString <>'' then
        begin
          lQuery.CommandText := 'update RSZL_TABLE'
                            +' set rszl_sala = '' ' + Infobroker.Info.DataSetByID('YDSJJ').FieldByName('ydzl_sala2').AsString  +''' '
                            +' where rszl_ygbh='' ' + Trim(Infobroker.Info.DataSetByID('YGJBXX').FieldByName('rszl_ygbh').AsString)  +''' ' ;
          jsdialogs.ShowMsg('',''' ' + Trim(Infobroker.Info.DataSetByID('YGJBXX').FieldByName('rszl_ygbh').AsString)  +'''');
          jsdialogs.ShowMsg('',''' ' + Trim(Infobroker.Info.DataSetByID('YDSJJ').FieldByName('ydzl_sala2').AsString)  +'''');
          lQuery.Execute;
        end;
我用上面这段代码来更新表，但我设置的+' where rszl_ygbh='' ' + Trim(Infobroker.Info.DataSetByID('YGJBXX').FieldByName('rszl_ygbh').AsString)  +''' ' ; 取不到值，只要加上这个条件就什么都更新不了，我把这个条件设置为固定的值是可以更新的，而且jsdialogs.ShowMsg('',''' ' + Trim(Infobroker.Info.DataSetByID('YGJBXX').FieldByName('rszl_ygbh').AsString)  +'''');
          jsdialogs.ShowMsg('',''' ' + Trim(Infobroker.Info.DataSetByID('YDSJJ').FieldByName('ydzl_sala2').AsString)  +'''');
这两段代码取出来的值也是正确的

zfang

你把 lQuery.CommandText  这个showmessage出来，然后把where部分保留，前面部分用select * from tab 然后执行看看是否有结果。

vagrant

按照你说的做后是这样的效果

zfang

这个弹出是什么？
我的意思是你把这个sql放到数据库中执行看是否可以查询得到数据。

vagrant

已经找到原因了，可以结贴，仍然谢谢！

atiger

说说吧，啥原因呢

vagrant

哦，就是条件中多了几个空格，把空格去掉就好了！