AdoQuery 无法为更新定位行。一些值可能已经在最后一次读取后已更改。

Question

使用AdoQuery，sql语句为
Select a.*,b.* 
from (
      Select a.ReceiveID,a.ProductID,b.ProductModel,d.RepairType,a.ProductLot,a.Number,
             a.ApprovalState as App, c.DetectID,c.MalfunctionReason1ID,c.MalfunctionReason2ID,
             c.MalfunctionReason3ID,c.TestResultID,c.ChargeState,c.Costs,c.OperateID,
             c.OperateTime,c.ApprovalID,c.ApprovalTime,c.ApprovalState,c.Memo
      from ReceiveBody a
      left outer join ProductModel b on a.ProductModelID=b.ProductModelID
      left outer join Detect c on a.ProductID=c.ProductID
      left outer join RepairType d on a.RepairTypeID=d.RepairTypeID ) a
      left outer join (Select a.DetectID
                       from Detect a 
                       left outer join TestResult b on a.TestResultID=b.TestResultID
                       left outer join MalfunctionReason1 c on a.MalfunctionReason1ID=c.MalfunctionReason1ID
                       left outer join MalfunctionReason2 d on a.MalfunctionReason2ID=d.MalfunctionReason2ID
                       left outer join MalfunctionReason3 e on a.MalfunctionReason3ID=e.MalfunctionReason3ID) b 
on a.DetectID = b.DetectID
where a.App=1执行qry1.edit后，输入内容，再执行qry1.post，就提示无法为更新定位行。一些值可能已经在最后一次读取后已更改。谁能帮帮忙

Answer 1

這是多表更新吧，ADO不支持這樣。

Answer 2

ADO不支持直接修改联合表,用update修改,然后重新加载数据集,去查看新结果

Answer 3

为每个表都设置一个主键,并且,在联合查询的时候不要有重复的键名.
比如a表和b表的主键都是"ID"那么保留一个主键就可以了

Answer 4

用sql语句更新,别用edit,post方式
with adoquery1 do
begin
  close;
  sql.text := 'update table set .... where ...';
  ExecSql; 
end;

Answer 5

我每个表都有主键，这个可以排除
重复键名是有DetectID ，可是按你说的保留一个，我不知道这个怎么改，你能帮下忙吗

Answer 6

http://photo.163.com/photo/yt086029@126/?u=yt086029@126#m=2&ai=50877603&pi=2361710905&p=1
晕，关系图还是没上去

Answer 7

這麼復雜的一個SQL出來後，你想更新哪個表，哪個表不更新，你直接說出來嗎？如果不能，你想下ADO能不能處理。你有這麼一句：
执行qry1.edit后，输入内容，再执行qry1.post，就提示无法为更新定位行。一些值可能已经在最后一次读取后已更改。谁能帮帮忙那說明這只是UPDATE，這樣的話就直接寫UPDATE語句吧

Answer 8

更新数据建议直接用UPDATE语句 ！

Answer 9

上面华仔和bdmh都说了，不支持多表的关联查询的更新.如果你要更新，多个表只能用sql语句去更新，如果涉及几个表的修改，每个表都有主键，用事务来控件一个个表更新.

Answer 10

其实并不是更新问题，Detect表中根本没有数据，这样写sql只是为了可以再dbgrid中显示出来ReceiveBody表中已有的数据，然后针对每一条记录添加Detect中的数据
据个例子说
ReceiveBody（接修登记信息）                Detect（检测登记信息）
工作人员接到一个客户返回的维修机器，先进行接修登记，然后检测人员在根据接修登记填写检测记录
例如
第一步，接到机器进行登记
ReceiveBody                                   
ReceiveID          ProductModel    Number     
SZ200906290001     AAA             2 
SZ200906290002     BBB             3    
SZ200906290003     CCC             4
第二部，检测机器进行登记（此时需要在dbgrid中调出之前的接修信息，然后在每条后面添加检测记录）
ReceiveBody                                   Detect
ReceiveID          ProductModel    Number     DetectID     TestResult      ChargeState       Costs
SZ200906290001     AAA             2          
SZ200906290002     BBB             3    
SZ200906290003     CCC             4

Answer 11

第二步，这里的检测记录添加，可以直接用UPDATE吗？

Answer 12

执行qry1.edit后，输入内容，再执行qry1.post，就提示无法为更新定位行。一些值可能已经在最后一次读取后已更改
------------------------
出现这种错误比较常见的情况有两种：
   1.更新字段设定了默认值，当ADO在保存后与原来的值不一样就报错。
   2.输入的内容长度超出字段设定的长度
------------------------楼主这种多表更新方式不合适，如果万一要这么做话可以设定qry1的属性LockType=ltBatchOptimistic,然后在AfterPost事件下根据结果写UPdate内容的代码 ，在qry1关闭前执行qry1.CancelUpdate()语句

Answer 13

这么长的SQL语句，楼主应考虑一下，用存储过程和上面大家说的UPDATE来执行

Answer 14

怎么报missing data provider or data packet错误

Answer 15

with adoquery1 do 
begin 
  close; 
  sql.clear;
  sql.text := 'update table set .... where ...'; 
  ExecSql; 
end;