Question

数据库怎样连接才能让delphi程序无论在什么路径下都可以正常运行

我用的是delphi 自带的数据库PARADOX。用database 这组件
PATH=？？？？？？？？ ？怎么填写。（数据库在.exe的文件夹中，写成相对路径）
DEFAULT DRIVER=PARADOX
ENABLE BCD=FALSE
二楼的哥，这个我也搜到过，但试过了好像不行。

------------------------------------------------------------------------
能不能直接就帮我填一下啊，
前面填？？？？
PATH=ExtractPath(Application->ExeName) 我数据放在.exe文件夹中 DRIVER=PARADOX
ENABLE BCD=FALSE

Answer 1

你在程序运行的时候通过ExtractPath(Application->ExeName)得到当前路径,再将你的相对于本程序的数据路径转换一下就可以了!
比如你的目录为:
C:\Project\
--Application.exe
|
|-Data
|
--....(数据文件)
得到当前路径为
AnsiString strCurPath := ExtractPath(Application->ExeName);
//那strCurPath 就等于C:\Project\
你再转换一下
AnsiString strDataPath := strCurPath + 'Data\...(数据文件名)';

就可以得到相对地址了!

Answer 2

ini格式的文件，里面写上
[database]
ip=127.0.0.1（地址）
database=Northwind(数据库名)
username=s（用户名）
password=a（密码）

然后再窗体中作判断

function TFrm_Main.ConnectDb: Boolean;
var
f : tinifile;
begin
f := TIniFile.Create(ExtractFilePath(application.ExeName)+'cfg.ini');
try
MSConnection1.Close;
MSConnection1.Server := f.ReadString('database','ip','127.0.0.1');
MSConnection1.Database := f.ReadString('database','database','Northwind');
MSConnection1.Username := f.ReadString('database','username','s');
MSConnection1.Password := f.ReadString('database','password','s');
MSConnection1.Connect;
Result := true;
except
Result := False;
end;
f.Free;

end;

Answer 3

数据库在.exe的文件夹中时，可以只写数据库名，而不写路径，DELPHI会默认当前路径为目标路径。

Answer 4

2楼已答:
但是路径里不能包含"\".

Answer 5

放在网络上，要不设定绝对路径