在AdoConnection控件中,有一个ConnectionString属性,会弹出一个设置框
可以设置连接的数据库,用户名等。
但我想用代码控件,点一下按钮,也可以弹出来设置
但不知道怎么写啊,谁能告诉我

解决方案 »

  1.   

    uses AdoConEd...........
    EditConnectionString(AdoConnection)
      

  2.   

    这个可以打开ado连接对话框,可以自己进行设置参数。
      

  3.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, AdoConEd, StdCtrls, DB, ADODB;type
      TForm1 = class(TForm)
        Button1: TButton;
        ADOConnection1: TADOConnection;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
      EditConnectionString(ADOConnection1);
    end;end.