Database 使用多种数据库类型

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

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

这将仅返回ABS数据库集的数据库名称，如何使其返回BDE别名'

---

谢谢。

您可以使用以下代码检索所有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