Question

delphi7 中数据库使用相对路径的方法

我将执行文件和数据库放在同一个目录下,点击执行时没有问题,可是加入注册表自动运行时却提示数据库在C:\Documents and Settings\user\bir.mdb下找不到.
不知为什么会出现这个提示.我在建立数据库连接时是写的相对路径.搞不懂是什么原因.
请问一下这个语句SetCurrentDir(Extractfilepath(Application.ExeName));
写在什么位置.我写在procedure TForm1.FormCreate(Sender: TObject);下还是不行呢?

Answer 1

首先要设置工作目录
SetCurrentDir(Extractfilepath(Application.ExeName));
然后再使用相对路径

你写在Create事件下没错
你应当重新编写连接字符串

procedure TForm1.FormCreate(Sender: TObject);
begin
SetCurrentDir(Extractfilepath(Application.ExeName));
ADOConnection1.Clsoe;
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bir.mdb;Persist Security Info=False';
ADPConnection.Open;
end;

必须保证数据库和程序在同一目录，不然出错

Answer 2

放在project单元，所有窗体Create之前试试