delphi做ACCESS的相对路径的链接，在网上找了很多方法，都无法调试成功，麻烦提供详细的步骤，新手谢过。

Question

我想做ACCESS的相对路径的链接，在网上找了很多方法，都无法调试成功，麻烦提供详细的步骤，新手谢过。

Answer 1

这是链接；剩下的操作和操作sql操作一样，你应该知道
begin

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Application.EXEName) +'cardmamberjf.mdb（路径可以随便换）;Persist Security Info=False';
try
ADOConnection1.Open;
except
ShowMessage('数据库连接失败！');
end;

Answer 2

LZ 你太不幸了，我也没有delphi环境，没想到这个环境这么多年都没淘汰
---------------------------------------------------------------------------------------------
在Project->Option->Directories\Conditionals页中,可以指定目录
"."表示基准目录,如.\XXX,表示基准目录下的子目录XXX
".."表示基准目录的父目录,如..\XXX,表示基准目录的父目录下的子目录XXX
------------------------------------------------------------------------------------------------
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\db1.mdb;Persist Security Info=False'
----------------------------------------------------------------------------------------------
放入编译后的目录准行！就是生成的那个exe目录。

Answer 3

很容易，用下面这句实现：
ExtractFilepath(Application.ExeName)
得到运行程序的运行路径，如：d:\pro\test03\
之后你要怎么加都行。
var
path : string;
filename :string;
begin
path := ExtractFilepath(Application.ExeName);
filename := path+''inc\db.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+filename;
……
end;
希望你能明白!

Answer 4

建立一个
DB.ini的文件

[PATH]
LocalDBPath=local.mdb

数据库连接单元

unit uConnect;

interface

uses ADODB, Classes, IniFiles, ShellApi,
SysUtils,Windows, Forms, ComCtrls, Registry;

var
//连接
gConnLocal: TADOConnection;

//local的access数据库
if gConnLocal <> nil then
begin
gConnLocal.Free;
gConnLocal:= nil;
end;

gConnLocal:= TADOConnection.Create(nil);
gConnLocal.KeepConnection:= True;

sAccPath:= ExtractFilePath(Application.ExeName) + sLocalDBPath;
if FileExists(sAccPath) then
begin
//Access
with gConnLocal do
begin
try
ConnectionString:= ' Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ' + sAccPath + ';';
LoginPrompt:= False;
gConnLocal.Open();
except
Result:= False;
MsgBox('连接本地数据库失败!', '提示', MB_OK + MB_ICONINFORMATION);
end;

end;
end
else begin
MsgBox('本地数据库文件不存在!', '提示', MB_OK + MB_ICONINFORMATION);
//Application.Terminate;
Result:= False;
end;