如何动态的得到ADOconnection中的provider?

Question

delphi带着一个form，就是生成ConnectionString的那个界面，具体叫什么我忘记啦，搜索一下吧，原来有人问过

Answer 1

参看 adodb.pas中的 PromptDataSource函数。

Answer 2

delphi的demos里有个adotest的程序，与你的要求很一致，看看吧

Answer 3

  Connection.Close;
  Connection.ConnectionString := ConnectionString.Text;
  if EditConnectionString(Connection) then
  begin
    ConnectionString.Text := Connection.ConnectionString;
    ConnectionStringClick(Sender);
  end;

Answer 4

uses ADODB;procedure TForm1.Button1OnClick(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create;
  ADODB.GetProviderNames(List);
  ListBox1.Items.Assign(List);
  List.Free;
end;