Delphi - 如何泛化查询结果集

Question

我正在同一个应用程序中处理多个数据库。我正在使用来自两家不同公司的驱动程序。两家公司都有运行良好的 tTable 和 tQuery 后代。

我需要一种对数据进行通用访问的方法，无论我使用哪个驱动程序/tQuery 组件来返回一组数据。此数据不会与组件相关联，仅与我的逻辑相关。

例如...（伪代码）让我们创建一个可以针对任一 tQuery 组件运行的函数

function ListAllTables(NameOfDatabase : String) :ReturnSet??
begin

If NameOfDataBase = 'X' then use tQuery(Vendor 1)
    else use tQuery(Vendor 2)
RunQuery;
Return Answer...
end;

当正常运行查询时，我会这样做

Query.Open;
While not Query.EOF do
   begin
   Read my rows..
   next;
end;

如果我正在调用 ListAllTables，我的返回类型是什么，以便我可以遍历行？每个 tQuery 供应商都是不同的，所以我不能使用它（我可以，如果可以，我想要吗？）我可以构建一个内存表，并将其传回，但这似乎是 ListAllRows 构建一个额外的工作内存表，然后将其传递回调用例程，以便它可以“取消构建”，即遍历行...

您有什么想法和建议？ 谢谢 GS

Answer 1

也许您可以考虑使用通用数据访问组件，例如 UniDAC 或 AnyDAC。这允许您仅使用一个组件集以一致的方式访问不同的数据库。

您可能还对 RemObjects 中的 DataAbstract 感兴趣。一个强大的数据抽象、多层、远程解决方案，具有很多特性。不便宜，但物超所值。

相关链接：

• http://www.da-soft.com/anydac/
• http://www.devart.com/unidac/
• http://www.remobjects.com/da/

Answer 2

一个简单的方法是让 ListAllTables 返回（或填充）一个字符串列表。

Answer 3

1. 您可以使用 IProviderSupport 来概括查询执行。我期待，使用的查询支持 IProviderSupport。该界面允许设置命令文本、参数、执行命令等。
2. 使用的查询的共同点是 TDataSet。因此，您需要传递 TDataSet 引用。

例如：

var
  oDS: TDataSet;
...
if NameOfDataBase = 'X' then
  oDS := T1Query.Create(nil)
else
  oDS := T2Query.Create(nil);
(oDS as IProviderSupport).PSSetCommandText('select * from mytab');
oDS.Open;
while not oDS.Eof do begin
  //
  oDS.Next;
end;

Answer 4

几乎所有 Delphi 数据集都源自 TDataset，最有用的行为是在 TDataset 上定义的。

因此，如果您将每个表或查询分配给 TDataset 类型的变量，您应该能够以供应商中立的方式在该数据集上执行您的逻辑。

我还将数据集的生产隔离为一组仅创建供应商特定数据集并将其作为 TDataset 返回的工厂函数。每个工厂功能都放在自己的单元中。然后，只有那些小单位需要了解供应商特定的组件。