如何动态配置ADO控件的连接串？

当然可以，你可以先手动配置你的连接，把不同连接的ConnectionString记下来
在连接不同的数据库的时候选用不同的连接串不就可以了吗！

解决方案 »

  1.   

    你试试以下代码:
     
      procedure TForm1.formcreate(sender:tobject);
      const 
       connstr='provider=%s;data provider=%s;datasoure=%s';
      begin
          if not adoconnection1.connected then
                adoconnection`.connectionstring:=format(connstr,[a,b,c]);
           customers.open;{打开数据库存取部件! }
           orders.open;
      end;
      

  2.   

    a ,b,c是数据源字符,数据库位置这些
      

  3.   

    当然可以了，
        例如打开Access数据库：Connection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ 
    '数据库.MDB'
    +';Persist Security Info=False;Jet OLEDB:Database Password=123'
      

  4.   

    我想在程序运行时调用设计时配置ConnectionString的“数据链接属性”
    对话框！
      

  5.   

    use ADOCONED;
    在button1的click事件里面写上：
    adoconnection1.close;
    EditConnectionString(ADOConnection1) ;
      

  6.   

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

  7.   

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

  8.   

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

  9.   

    Function  Conn_Db(DBPATH:STRING):Boolean;
    begin
      if FileExists(DBPATH) then
      begin
        Conn:=TAdoConnection.Create(nil);
        Conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                  'Password="";'+
                  'User ID=Admin;'+
                  'Data Source='+DBPATH+';';
        conn.connected:=true;
      end;
    end;
      

  10.   

    ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                  'Password="";'+
                  'User ID=Admin;'+
                  'Data Source='+DBPATH+';';
      

  11.   

    ADOConnection1.Close;
          ADOConnection1.Connected:=false;
          ADOConnection1.ConnectionString:='';
          str:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=';
          AppPath:=ExtractFileDir(Application.ExeName);
          str:=str+AppPath+'\bsdata\'+Node.Parent.Text;
          ADOConnection1.ConnectionString:=str+'.mdb;Mode=Share Deny None;'+'Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;'+'Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+'Jet OLEDB:Create System Database=False;'+'Jet OLEDB:Encrypt Database=False;'+'Jet OLEDB:Don''t Copy Locale on Compact=False;'+'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
          ADOConnection1.Connected:=true;
          ADOConnection1.Open;
      

  12.   

    在delphi的source\Property Editors中有一个AdoConEd.pas，这个单元包括了ConnectionString的“数据链接属性”在uses中加入adoconed
    程序中添加
    adoconnection1.close;
    editConnectionString(adoconnection1);
    adoconnection1.open;
      

  13.   

    use
      adodbfunction PromptDataSource(parenthandle:thandle;inilitialstr:widestring):widestring;
      

  14.   

    从一个文件获得
    procedure TTR_PIC.RemoteDataModuleCreate(Sender: TObject);
    var f:textfile;
        s:string;
        filename:string;
        ipaddress:string;
        account:string;
        password:string;
        dbname:string;
        p1,p2,p3,p4:integer;
    beginfilename:=expandfilename('dbip.txt');
    assignfile(f,filename);
    reset(f);
    while not eof (f) do
    begin
    readln(f,s);
    if pos('ip',s)>0 then ipaddress:=s;
    if pos('account',s)>0 then account:=s;
    if pos('password',s)>0 then password:=s;
    if pos('dbname',s)>0 then dbname:=s;
    end ;
    p1:= POS(':',ipaddress);
    p2:= POS(':',account);
    p3:= POS(':',password);
    p4:=POS(':',dbname);
    ipaddress := COPY(ipaddress,P1+1,LENGTH(ipaddress)-P1);
    account:= COPY(account,P2+1,LENGTH(account)-P2);
    password := COPY(password,P3+1,LENGTH(password)-P3);
    dbname := COPY(dbname,P4+1,LENGTH(dbname)-P4);
    closefile(f);
    GHCon.ConnectionString:='Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;User ID='+account+';Initial Catalog='+dbname+';Data Source='+ipaddress;
    ghcon.Connected:=true;end;
      

  15.   

    adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ExtractFilePath(Application.ExeName)+'\databasename.mdb';
    adoconnection1.connected:=true;