如何在TADOQuery中使用RecordSet.Find？

Question

在这个问题中：

Delphi ADO : Locate with dataset filter on bug

描述了在.Locates期间忽略筛选器字符串的ADO。

这给我们从BDE迁移带来了问题，因为我们有很多代码可以根据用户输入更改过滤器。

我们曾期望TADOQuery能提供一条可行的迁移路径。我们错了。

当然，我们可以将当前的筛选器更改为WHERE语句，但这需要大量的工作，并且有可能将筛选器字符串连接到没有筛选器的WHERE语句，等等。

上面链接的问题的公认答案表明使用TCustomADODataSet.Recordset.Find的可能性

为了实现.Locates，我们能在TADOQuery中安全地使用RecordSet.Find吗？也就是说，RecordSet.Find会更新TADOQuery在TADOQuery上放置的任何包装器吗？

如果是这样的话，谁可以展示一个从Delphi XE5到RecordSet find的示例调用？我搞不懂这些论点。

Answer 1

您最好的选择是查看ADODB.pas TCustomADODataSet.LocateRecord的源代码。您将看到Locate是如何实现的。

对于单一条件，采用RecordSet - Find方法。对于多个条件，它使用Filter属性。

使用Find相当简单：

uses ..., ADODB, ADOInt;

procedure TForm1.Button1Click(Sender: TObject);
var
  bm: TBookmarkStr;
begin
  bm := ADODataSet1.Bookmark;
  // for partial condition use e.g. ItemName LIKE 'He*'
  ADODataSet1.Recordset.Find('ItemName = ''Hello''', 0, adSearchForward, adBookmarkFirst);
  if ADODataSet1.Recordset.EOF then // not found
    ADODataSet1.Bookmark := bm // restore bookmark
  else
    ADODataSet1.Resync([rmExact, rmCenter]); // set active record and trigger dataset change event
end;

由于TADOQuery是TCustomADODataSet的后代，因此使用与TADODataSet相同的RecordSet是没有问题的