使用多种数据库类型

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;

请记住，Embarcadero不推荐使用BDE，而且很多年以前它还没有积极开发。 尝试迁移到更新的数据库访问库，如DBX。