动态装载数据库的问题

Question

各位大虾,我写了个查询数据库的程序,但我只有把数据库放在特定的路径才能访问到,请问我要怎样才能把程序安装后不用再把数据库放在特定的路径,而只要安装好程序(包括安装了数据库在同一个文件夹)就能进行查询?

Answer 1

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;
Data Source='+ExtractFilePath(ParamStr(0))+DataBaseName.mdb;Persist Security Info=False';

Answer 2

给你引用一段前辈的代码，不用你找得辛苦！
　　给你学习！！
var
exepath:string;
connstr:string;
begin
  exepath:=ExtractFilePath(application.ExeName);//取得现在数据库文件的路径
  connstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+exepath+'sal.mdb'+';Persist Security Info=False;Jet OLEDB:Database Password=123456';//和数据密码一致
  DM.AdoConnection1.ConnectionString :=connstr;
  DM.AdoConnection1.Connected :=true;

Answer 3

让你的程序具有自动配置数据库连接的功能，包括：
选择DB路径
修改用户名和口令如果用BDE则修改TDATABASE的相关参数即可，ADO的话修改连接字符串即可
楼上的方法规定了DB必须和执行程序放在同一路径下