连接access时,如何把连接设为相对路径!

Question

用access,
数据库连接时,如果是绝对路径的话,程序的路径变了,改起来比较麻烦.
如何数据库的路径设为相对路径呢?
如ADOQuery,ADOConnection!
谢谢!

Answer 1

SetCurrentDir(ExtractFileDir(Application.ExeName));//设置当前目录为应用程序文件所在目录

Answer 2

把数据库和程序放在一个目录里.在连接时把路径去掉就可以了(例如:"E:\delphi\db1.mdb",可以把"E:\delphi\"去掉,即可)

Answer 3

用ExtractFilePath(Application.ExeName) + 'XXX.mdb'