简单问题，需求详解

Question

各位大虾，我是菜鸟。有个关于数据库的问题
 Dim db As Database
   Set db = OpenDatabase("E:\tushu\tushu.mdb", False, False)
   Dim rs As Recordset
   Set rs = db.OpenRecordset("fuser")
   rs.MoveFirst
  请问这样的话在打包后，目标计算机上安装的话数据库不在E:\tushu\下，是不是就不能运行，或者说是不是一定要在目标计算机上建一个E:\tushu\tushu.mdb才能运行？

Answer 1

使用app.path
app.path+"\tushu.mdb"

Answer 2

app.path可以获得安装完成后可执行文件所在的目录(字符串)。

Answer 3

1.app.path也行。
2，可以考虑把路径放在注表内，然后读取。

Answer 4

1.app.path也行。
2，可以考虑把路径放在注册表内，然后读取。

Answer 5

固定的路径当然不行了,用动态的APP.PATH