database - 使用多种数据库类型

Question

我目前正在构建一个主要使用 ABSDatabase 的程序，但是我正在尝试从 BDE 配置中返回别名列表，我目前正在使用以下代码：

  Session.GetDatabaseNames(gvAliasList);
  Session.GetTableNames(gvAliasList[0], gvTableList);

这只会带回 ABSDatabase 集的数据库名称，我怎样才能让它返回 BDE 别名？

谢谢。

Answer 1

您可以使用以下代码检索所有 BDE 别名：

uses DBTables;

procedure LoadAliases();
var
  CurrentAliases: TStringList;
begin
  CurrentAliases := TStringList.Create;
  try
    Session.GetAliasNames(CurrentAliases);
    ComboBox1.Items:= CurrentAliases;
  finally
    CurrentAliases.Free;
  end;
end;

请记住，BDE 已被 Embarcadero 弃用，并且自多年前以来就没有积极开发。尝试迁移到更新的数据库访问库，例如 DBX。