Delphi中,在使用ADOQuery更新数据时会出现,无法为更新定位行。一些值可能已在最后一次读取后已更改的错误信息。
可以使用如下解决方法:
在TADOQuery打开后加入TADOQuery(DataSet).Properties.Get_Item('Update Criteria').Value:=0 语句。
示列:
procedure TfrmMain.aqryPubAfterOpen(DataSet: TDataSet);
begin
TADOQuery(DataSet).Properties.Get_Item('Update Criteria').Value:=0;
end;
就是将“TADOQuery(DataSet).Properties.Get_Item('Update Criteria').Value := 0;”加到你的要保存的ADOQuery控件的“AfterOpen”事件里面,应该是适用于所有的ADOQuery的。
TADOQuery(DataSet).Properties[]就为设置ADO地选项.
Update Criteria为自动生成SQL语句时WHERE语句地生成方式,取值如下:
adCriteriaKey = 0: 仅使用主键
adCriteriaAllCols = 1: 使用所有字段
adCriteriaUpdCols = 2: 仅使用修改地字段(默认值)
adCriteriaTimeStamp = 3: 使用时间戳字段(假如有地话)