delphi - 使用 BDE 和 Delphi 访问 dBase 文件的好方法是什么？

Question

首先，我必须声明，就 Delphi 而言，我完全是个新手，尽管大约 14 年前我在学校做过一些 Turbo Pascal 编程...

我有一个商业 Delphi 程序，它使用 dBase 数据库和 BDE 来访问它们。我基本上需要将另一个用 C# 编写的应用程序连接到该数据库，以便能够执行 SQL 操作，例如选择、插入、更新和删除。

不幸的是，针对 dBase 使用 OLEDB 会导致索引损坏，似乎只有 native BDE 应用程序才能安全地访问数据。

总体思路是创建一个简单的 Delphi 控制台应用程序，它可以从标准输入 (Read/ReadLn) 读取 SQL 语句，并将 CSV 数据输出到标准输出 (WriteLn)。

我该如何去做呢？

我已经成功地获得了简单的 TTable 访问权限，代码如下:

tbl := TTable.Create(nil);

tbl.DatabaseName := 'Exceline';
tbl.TableName := 'KUNDE.DBF';
tbl.Active := True;

WriteLn(tbl.RecordCount);

tbl.Active := False;

有没有办法可以通过执行直接 SQL 语句来实现相同的效果？

Answer 1

您可以使用 TQuery 组件执行相同的操作:

qry := TQuery.Create(nil);

qry.DatabaseName := 'Exceline';
qry.SQL.Add('SELECT COUNT(*) AS CNT FROM KUNDE');
qry.Active := True;

WriteLn(qry.FieldByName('CNT').AsString);

qry.Active := False;