用ADO控件不用ADO对象,是不是得先建立一个数据源?
要是这样,如何用程序动态的实现?
又如何动态的实现连接?

解决方案 »

  1.   

    ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(Application.ExeName) + 'data\Process.mdb;Persist Security Info=False';
      ADOConnection1.Connected := False;
      ADOConnection1.ConnectionString := ConnStr;
      ADOConnection1.Open;
      

  2.   

    Provider=SQLOLEDB.1;Password=88888888;Persist Security Info=True;User ID=sa;Initial Catalog=tempdb;Data Source=wxj
      

  3.   

    ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=password;Persist Security Info=True;User ID=user;Data Source=127.0.0.1';
      

  4.   

    gxgyj
    中的password,user id,data source都是静态的,动不动换成动态的?如何写?
      

  5.   

    加密动态设置连接
    __________________________
    __________________________l:=length(edit3.text);
    c:=length(edit4.text);
    if (l>10)or(c>10) then
    showmessage('用户名和密码应小于10位!')
    else
    begin
      if l=0 then
        n:='';
      if l=1 then
        n:='aYuj&5&/kju&bj7*\>@Wb2rjufy65()'+'}[\?.s7%r$6iHd'
                    +'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
      if l=2 then
        n:='bYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7%r$6iHd'+edit3.text[2]
                    +'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
      if l=3 then
        n:='cYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7'+edit3.text[3]+'r$6iHd'
                    +edit3.text[2]+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
      if l=4 then
        n:='dYuj&5&/kju&j7*\>@Wb2'+'jufy65()'+edit3.text[4]+'}[\?.s7'+edit3.text[3]
                    +'r$6iHd'+edit3.text[2]+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
      if l=5 then
        n:='e9@%4*&/3tv'+'j7*\>@Wb2'+edit3.text[5]+'KoU+"\dF'+edit3.text[4]
                    +';(%Yxs7'+edit3.text[3]+'r$6iHd'+edit3.text[2]+'?>.lU'+edit3.text[1]
                    +'/";|)&kjuFR';
      if l=6 then
        n:='f3%]4*&G3t'+edit3.text[6]+'j7*[>@Wa2'+edit3.text[5]+'Ko0+"\dF'
                    +edit3.text[4]+';(%Yxs7'+edit3.text[3]+'r$6iHd'+edit3.text[2]
                    +'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
      if l=7 then
        n:='g*9K@'+edit3.text[7]+'u8^p>{'+edit3.text[6]+'a-":#Rw'
                    +edit3.text[5]+'gd|}Vx[?'+edit3.text[4]+'&th!#kue8'+edit3.text[3]
                    +'ju78$.\":B'+edit3.text[2]+'loJ*];%Fs17'+edit3.text[1]+'k{]\87kA';
      if l=8 then
        n:='hl0*'+edit3.text[8]+'k[<cY'+edit3.text[7]+'&jq4%t'+edit3.text[6]
                    +'k&%fH2@'+edit3.text[5]+'?/o9[tJ;'+edit3.text[4]+'poh^5rfdK'+edit3.text[3]
                    +'NHug65(&.['+edit3.text[2]+'&^k$;juytF4'+edit3.text[1]+'hh7{+.?<';
      if l=9 then
        n:='iPl9k'+edit3.text[9]+'*7ytGh%'+edit3.text[8]+'*&>L]?\'+edit3.text[7]
                    +'jiupUx@'+edit3.text[6]+'yu4'+edit3.text[5]+'?>ku2Po'+edit3.text[4]
                    +'Kjh&*ew'+edit3.text[3]+'\[zAQ?'+edit3.text[2]+'"<ki;'+edit3.text[1]
                    +'kju?><\][)8';
      if l=10 then
        n:='j#k&H6'+edit3.text[10]+'jUop0'+edit3.text[9]+'%/{&u'+edit3.text[8]
                    +'kju7$^>L'+edit3.text[7]+'@juh{'+edit3.text[6]+'ilo'+edit3.text[5]
                    +'?loujh'+edit3.text[4]+'q;p\B'+edit3.text[3]+'?.<G'+edit3.text[2]
                    +'\P0o'+edit3.text[1]+'L*N>kj$@<';  if c=0 then
        p:='';
      if c=1 then
        p:='aYuj&5&/kju&bj7*\>@Wb2rjufy65()'+'}[\?.s7%r$6iHd'
                    +'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
      if c=2 then
        p:='bYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7%r$6iHd'+edit4.text[2]
                    +'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
      if c=3 then
        p:='cYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7'+edit4.text[3]+'r$6iHd'
                    +edit4.text[2]+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
      if c=4 then
        p:='dYuj&5&/kju&j7*\>@Wb2'+'jufy65()'+edit4.text[4]+'}[\?.s7'+edit4.text[3]
                    +'r$6iHd'+edit4.text[2]+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
      if c=5 then
        p:='e9@%4*&/3tv'+'j7*\>@Wb2'+edit4.text[5]+'KoU+"\dF'+edit4.text[4]
                    +';(%Yxs7'+edit4.text[3]+'r$6iHd'+edit4.text[2]+'?>.lU'+edit4.text[1]
                    +'/";|)&kjuFR';
      if c=6 then
        p:='f3%]4*&G3t'+edit4.text[6]+'j7*[>@Wa2'+edit4.text[5]+'Ko0+"\dF'
                    +edit4.text[4]+';(%Yxs7'+edit4.text[3]+'r$6iHd'+edit4.text[2]
                    +'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
      if c=7 then
        p:='g*9K@'+edit4.text[7]+'u8^p>{'+edit4.text[6]+'a-":#Rw'
                    +edit4.text[5]+'gd|}Vx[?'+edit4.text[4]+'&th!#kue8'+edit4.text[3]
                    +'ju78$.\":B'+edit4.text[2]+'loJ*];%Fs17'+edit4.text[1]+'k{]\87kA';
      if c=8 then
        p:='hl0*'+edit4.text[8]+'k[<cY'+edit4.text[7]+'&jq4%t'+edit4.text[6]
                    +'k&%fH2@'+edit4.text[5]+'?/o9[tJ;'+edit4.text[4]+'poh^5rfdK'+edit4.text[3]
                    +'NHug65(&.['+edit4.text[2]+'&^k$;juytF4'+edit4.text[1]+'hh7{+.?<';
      if c=9 then
        p:='iPl9k'+edit4.text[9]+'*7ytGh%'+edit4.text[8]+'*&>L]?\'+edit4.text[7]
                    +'jiupUx@'+edit4.text[6]+'yu4'+edit4.text[5]+'?>ku2Po'+edit4.text[4]
                    +'Kjh&*ew'+edit4.text[3]+'\[zAQ?'+edit4.text[2]+'"<ki;'+edit4.text[1]
                    +'kju?><\][)8';
      if c=10 then
        p:='j#k&H6'+edit4.text[10]+'jUop0'+edit4.text[9]+'%/{&u'+edit4.text[8]
                    +'kju7$^>L'+edit4.text[7]+'@juh{'+edit4.text[6]+'ilo'+edit4.text[5]
                    +'?loujh'+edit4.text[4]+'q;p\B'+edit4.text[3]+'?.<G'+edit4.text[2]
                    +'\P0o'+edit4.text[1]+'L*N>kj$@<';path:=ExtractFileDir(Application.Exename)+'\';
    IniFile:= TIniFile.Create(Path+'inifile\Initial.ini');
    IniFile.WriteString('Server','Cur_Server',Edit2.Text);
    IniFile.WriteString('Log','Cur_Log',n);
    IniFile.WriteString('Pass','Cur_Pass',p);
    dbname:=IniFile.ReadString('DBName','Cur_DBName','初始化文件已被破坏!');
    IniFile.Free;
    ADOConnection1.Connected:=false;
    Adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+edit4.Text
                                     +';Persist Security Info=True;User ID='+Edit3.Text
                                     +';Initial Catalog='+dbname
                                     +';Data Source='+edit2.Text;
    ComboBox1.Items.Clear;
    try
    ADOConnection1.Connected:=True;
    except
      MessageBeep(0);
      messageDlg('与服务器连接不上!请核对系统设置。',mtError,[mbOk],0);
      

  6.   

    'Provider=SQLOLEDB.1;Password='+edit1.text+';Persist Security Info=True;User ID='+edit2.text+';Initial Catalog=tempdb;Data Source='+edit3.text  
      

  7.   

    to  winefish(喝酒的鱼) \
    请问你能稍为解释一下你的加密代码吗?怎么我看得好像看天书似的.
      

  8.   

    'Provider=SQLOLEDB.1;Password='+edit1.text+';Persist Security Info=True;User ID='+edit2.text+';Initial Catalog=tempdb;Data Source='+edit3.text
    -----------------
    动态改变数据源
    也可以写到ini中
    随时改变