我编好程序，Access没了,为什么？

Question

我编好程序，做好安装程序，可是传给别人，说*.mdb文件没有找到，我把此文件放在同一目录下，连接字符串里DataSource=dm1.mdb.
为什么会找不到？

Answer 1

这样是不能够找到的。应该这样子：
ConnStr := Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False',[GetCurrentDir() + '\dm1.mdb']);
然后再把它赋给ADOConnection，就可以了。试试吧。

Answer 2

最好还是在程序里动态生成 ConnectionString 吧～
利用 ExtractFilePath(Application.FileName) + ‘dm1.mdb’ 给 DataSource我都这样做，不管用户安装到哪儿，只要 mdb 和 exe 同一目录下，这样写就没问题

Answer 3

同意楼上动态生成ConnectionString或者建立ODBC(利用注册表写入)
DateSource1:=ExtractFilePath(Application.FileName)+'dm1.mdb';