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

做好的数据库系统，如何实现换机器后不用手动连接数据库
如题，可能表达的不是很清楚，就是说系统已经做好了，需要拿到别的机器上运行，可是需要从新手动设置数据源。

想用代码实现自动连接数据库，以求一劳永逸，但是能力有限，特来求助

------解决方案--------------------

Delphi(Pascal) code


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;

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

连数据库用组件就好，没必要弄代码，怪麻烦的！

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

相关推荐