做好的数据库系统，如何实现换机器后不用手动连接数据库

Question

如题，可能表达的不是很清楚，就是说系统已经做好了，需要拿到别的机器上运行，可是需要从新手动设置数据源。想用代码实现自动连接数据库，以求一劳永逸，但是能力有限，特来求助

Answer 1

SQL？你把帐号密码IP和数据库都保存到.ini文件中，就没问题了啊。

Answer 2

将连接字符串放在一个配置文件，例ini或者XML文件中，系统运行的时候动态组建连接字符串。
例ini格式
[ServerCfg]
ServerName=127.0.0.1
DabaseName=DB1
UserName=用户名
Password=密码根据情况将上面的内容作适当的加密,不以明码的方式存放。

Answer 3

是ACCESS的 应该算是单层的数据库 无网络功能

Answer 4

能给个示例么！？ 没接触过DELPHI的引用路径

Answer 5

如果Access文件和EXE在同一路径下，相对路径就是你在选择数据库的时候，只填文件名A.mdb，不要填D:\A.mdb

Answer 6

我刚在网上找的资料怎么不像各位说的那么简单啊！？“动态创建ODBC数据源的代码”我用这个关键词搜索的，也是我想实现的。里面倒是有说到路径，但还包括什么写注册表、写入DSN数据库引擎配置信息 之类的。本来就没概念，这回彻底乱套了

Answer 7

Var
sDatabaseName,sAdoConString:String;
List:Tinifile;
begin
   If   adoconnection1.Connected   Then
        adoconnection1.Connected   := False;
    Try   
          List:= Tinifile.Create(ExtractFilePath(Application.ExeName)+'peizhi.ini');
          sDatabaseName:=list.readstring('DataSet','sDatabaseName','');
          sAdoConString   :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+sDatabaseName+';Persist Security Info=False'
    Finally
          List.free;
      End;
      Try
          ADOConnectionEAM.Connected   :=   True;
      Except
          ShowMessage('数据库连接失败，请重新配置！');
          Exit;
      End;
end;

Answer 8

不知道楼主问题解决没有！我再来个详细点的吧！我假设*.mdb文件和工程文件已经在同一目录下了
1.添加AdoConnection控件；
2.设置ConnectionStr属性：Build-->Microsoft Jet 4.0-->下一步，选择数据库文件--->测试连接--->成功后再把数据库前面的路径给删掉，只留下*.mdb，再测试一下，成功--->ok!连数据库用组件就好，没必要弄代码，怪麻烦的！