2,507
社区成员
发帖
与我相关
我的任务
分享动态装载数据库的问题
各位大虾,我写了个查询数据库的程序,但我只有把数据库放在特定的路径才能访问到,请问我要怎样才能把程序安装后不用再把数据库放在特定的路径,而只要安装好程序(包括安装了数据库在同一个文件夹)就能进行查询?
...全文
请发表友善的回复…
发表回复
thunderniao 2004-12-30
- 打赏
- 举报
让你的程序具有自动配置数据库连接的功能，包括：
选择DB路径
修改用户名和口令
如果用BDE则修改TDATABASE的相关参数即可，ADO的话修改连接字符串即可
楼上的方法规定了DB必须和执行程序放在同一路径下
选择DB路径
修改用户名和口令
如果用BDE则修改TDATABASE的相关参数即可，ADO的话修改连接字符串即可
楼上的方法规定了DB必须和执行程序放在同一路径下
ganwendong 2004-12-28
- 打赏
- 举报
给你引用一段前辈的代码，不用你找得辛苦！
给你学习！！
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;
给你学习！！
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;
fxb248 2004-12-28
- 打赏
- 举报
这段代码有错误啊!
能给段没错误的吗?急需!!!
能给段没错误的吗?急需!!!
jackie168 2004-12-19
- 打赏
- 举报
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;
Data Source='+ExtractFilePath(ParamStr(0))+DataBaseName.mdb;Persist Security Info=False';
Data Source='+ExtractFilePath(ParamStr(0))+DataBaseName.mdb;Persist Security Info=False';
