0

現在、主にABSDatabaseを使用するプログラムを構築していますが、BDE構成からエイリアスリストを返そうとしています。現在、次のコードを使用しています。

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

これにより、ABSDatabaseセットのデータベース名のみが返されますが、BDEエイリアスを返すようにするにはどうすればよいですか？

ありがとう。

4

1 に答える 1

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などの最新のデータベースアクセスライブラリに移行してみてください。

于 2012-07-06T17:00:09.023 に答える