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

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

这是链接；剩下的操作和操作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;

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目录。

很容易，用下面这句实现： 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; 希望你能明白!

建立一个 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('连接本地数据库失败!

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息