AdoConnection1.ConnectionString:=PromptDataSource(Application.Handle,
    AdoConnection1.ConnectionString);

解决方案 »

  1.   

    uses ADOConEd;
    ...............
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      EditConnectionString(ADOConnection1);
    end;
      

  2.   

    uses ADOConEd;
    ...............
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      EditConnectionString(ADOConnection1);
    end;
      

  3.   

    uses ADOConEd;.............
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      EditConnectionString(ADOConnection1);
    end;
      

  4.   

    同意楼上们的,不过别忘了都在前面加上这一句:Adononnection.Connected:=false;