怎样在程序运行时调出AdoConnection的ConnectionString设置窗口,并得到返回的连接字符串

解决方案 »

  1.   

    ADOConnection1.ConnectionString :=PromptDataSource(Handle, ADOConnection1.ConnectionString);
      

  2.   

    PromptDataSource(Handle, ADOConnection1.ConnectionString);
      

  3.   

    uses adoconed;procedure TForm1.Button1Click(Sender: TObject);
    begin
    if EditConnectionString(adoconnection1) then showmessage(adoconnection1.connectionstring);
    ADOConnection1.ConnectionString :=PromptDataSource(Handle, ADOConnection1.ConnectionString);
    end;
      

  4.   

    PromptDataSource(Handle, ADOConnection1.ConnectionString);