An Unknown error has occurred -- EOleException 解决方法

今日开发遇到一个错误：

Delphi 7.1。
使用ADO连接SQL Server，Book_ADOQuery有一个Lookup字段，每当Insert/Append的时候IDE就会弹出一个错误：

An Unknown error has occurred -- EOleException

跟踪发现错误来源于VCL LocateRecord方法的FLookupCursor.Find

function TCustomADODataSet.LocateRecord(const KeyFields: string;
  const KeyValues: OleVariant; Options: TLocateOptions;
  SyncCursor: Boolean): Boolean;

 if FieldCount = 1 then
          FLookupCursor.Find(GetFilterStr(FieldByName(KeyFields), KeyValues, Partial), 0,
             adSearchForward, EmptyParam)
   
而且如果连接Access数据库也没有问题。

通过Google发现，该Bug在Delphi 5中就有了:
http://info.borland.com/devsupport/delphi/fixes/delphi5/database.html

Area: database\ado

Reference Number: 72996
Status: Open Date Reported: 10/14/99
Severity: Commonly Encountered
Type: Minor Functionality Failure

Problem:

When using Lookup fields, inserting a record will generate "An unknown error has occured" exception in some cases.

Workaround:

Requires VCL code changes. Install Update Pack.








最后通过研究另外一个类似问题，发现：
只要把所有Lookup字段的lookupCache设为True(缺省为False)就可以避免该错误。


特记于此。

本文地址：http://com.8s8s.com/it/it4333.htm