ADO实现单条记录的刷新

如何有效刷新当前记录

ADO的Recordset对象有一个Resync方法, 可以刷新不同范围的数据. 如果想刷新当前记录可以用如下的语句:

var
    Rst: _Recordset;
begin
    ...
    Rst.Resync(adAffectCurrent, adResyncAllValues);
    ...
end;

可惜delphi的TADODataSet没有封装这个功能. 如果要在TADODataSet刷新当前记录, 只有使用Requery方法重新执行SQL语句, 或使用Refresh方法. Requery重新执行, 记录指针放在第一条, 而不是当前记录. Refresh方法其实使用了Rst.Resync(adAffectAll, adResyncAllValues)来刷新, 效率奇慢.
因此, 我写了段代码, 来刷新TADODataSet 的当前记录, 这段代码做成公共函数也可以做成TADODataSet子类的方法.

procedure ADORefreshCurrent(DataSet: TADODataSet);
begin
  with DataSet do
  begin
    CheckBrowseMode;
    UpdateCursorPos;
    try
      Recordset.Resync(adAffectCurrent, adResyncAllValues);
    finally
      Resync([]);
    end;
  end;
end;

procedure TXXXXDataSet.RefreshCurrent;
begin
  CheckBrowseMode;
  UpdateCursorPos;
  try
    Recordset.Resync(adAffectCurrent, adResyncAllValues);
  finally
    Resync([]);
  end;
end;