高考问答冰雪皇后之冬日诅咒:delphi7 中数据库使用相对路径的方法
来源：百度文库 编辑：高考问答 时间：2024/04/30 07:42:31
我将执行文件和数据库放在同一个目录下,点击执行时没有问题,可是加入注册表自动运行时却提示数据库在C:\Documents and Settings\user\bir.mdb下找不到.
不知为什么会出现这个提示.我在建立数据库连接时是写的相对路径.搞不懂是什么原因.
请问一下这个语句SetCurrentDir(Extractfilepath(Application.ExeName));
写在什么位置.我写在procedure TForm1.FormCreate(Sender: TObject);下还是不行呢?
不知为什么会出现这个提示.我在建立数据库连接时是写的相对路径.搞不懂是什么原因.
请问一下这个语句SetCurrentDir(Extractfilepath(Application.ExeName));
写在什么位置.我写在procedure TForm1.FormCreate(Sender: TObject);下还是不行呢?
首先要设置工作目录
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;
必须保证数据库和程序在同一目录，不然出错
放在project单元，所有窗体Create之前试试