我是用adoconnection连接数据库的但是当我把软件做好了之后 怎么做更改 用户名和用户密码信息的 文件呢

解决方案 »

  1.   

    把用户,密码,数据库等写到注册表里面去,连接前就读出来,拼成一条connectionstring就可以了。
      

  2.   

    在INI文件里设置一个SECTION,如“[数据库连接信息]”,然后在其下设置“DBNAME=“数据库名称”   SERVERNAME=服务器名称   USERNAME=用户名称   PASSWORD=数据库连接密码”,最后在程序里按照这个格式解读即可!
      

  3.   

    1. ini文件可以直接用记事本创建,如下的"数据库块" 存成config.ini
    [db]
    ServerName=.
    UserN=sa
    PassWd=123
    DBName=test
    [otherParas]
    2.在数据模块的Create事件中写如下代码
    var
        ComName,ProPath,PassWd,UserN,F,DBName,FilePath:string;
    begin
        
      FilePath := ExtractFilepath(Application.ExeName) ;
      F:=TIniFile.Create(FilePath+'Config.Ini');
      Try
        ComName:=F.ReadString('System','ServerName','');
        UserN:=F.ReadString('System','UserN','') ;
        PassWd:=F.ReadString('System','PassWd','');   
        DBName:=F.ReadString('System','DBName','');
      Finally      F.Free;                                                                                           
      End;
      ProPath:='Provider=SQLOLEDB.1;Password='+PassWd+';Persist Security Info=True;User ID='+UserN+';Initial Catalog='+DBName+';Data Source='+ComName;
      ADOConn.Close ;
      ADOConn.ConnectionString :=ProPath ;
      Try
        LoadData:=True ;
        ADOConn.Connected := True ;
      Except
        LoadData:=False ;
        ComDlg('连接数据库失败,请重试...!',HTERROR);
        Application.Terminate;
        Exit ;
      End;
    end;
      

  4.   

    错了,ReadString('System','ServerName','');这里的'System'改为'db'
      

  5.   

    方法很多的,可以做成INI文件。或写入注册表中,一般INI文件比较多。网上有很多文章,用google搜一下,CSDN里也有。的
    帮你顶一下
      

  6.   

    最好的是做成.udl文件,方便更改,而且界面看起来也象那么回事
      

  7.   

    新建一个记事本,将其扩展名更为.udl。界面看起来跟adoconnection的
      

  8.   

    FilePath := ExtractFilepath(Application.ExeName) ;
    当我想编译的时候为什么会说 Application 没有定义呢 这是什么原因呢?
      

  9.   

    如果是SQL数据库,用加密的xml文件.
    至于本地数据库嘛,用相对路径就行了
      

  10.   

    ado里的选项一种是building conn string另一种不就是直接使用已有的连接文件吗?那不就是udl文件。
      

  11.   

    Access可以这样连的啊 设置为当前程序目录下
    ExtractFilePath(ParamStr(0))返回程序的目录'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'Date.mdb;Persist Security Info=False'
      

  12.   

    FilePath := ExtractFilepath(Application.ExeName) ;
    当我想编译的时候为什么会说 Application 没有定义呢 这是什么原因呢?
      

  13.   

    用一个INI文件就好了,你的connection中的用户名、密码什么都从里面取。