如何在模块中试用相对路径

Question

在module中的代码如下：
public dbname as string
dbname=CurDir+ "\db\db1"编译时报错：无效外部过程。指示的是CurDir有错误，小弟菜鸟一个，请各位大侠多多指教。

Answer 1

dbname=CurDir+ "\db\db1"
要写在sub或function中的

Answer 2

app.path也报错。要写在sub或者function中？偶是因为程序中多处用到同一个db，希望能在module中声明，这样即便数据库有变换也容易修改。难道还需要每次访问数据库都调用function嘛？

Answer 3

你可以将数据库放在你的程序目录下面.用app.path & "\db1.mdb"就可以

Answer 4

在module中的代码如下：
public dbname as stringSub Main()
dbname=CurDir+ "\db\db1"
End Sub以后就可以随便使用了

Answer 5

to  NewPeople(新新人类) :
“无效外部过程”这个错误不再报了，但是在其他窗体我用Set rd = db.OpenRecordset(sql)的时候报如下错误：“对象变量或with块变量未设置”。
难道是指db对象未设置？？？？？？

Answer 6

这样写试试：dbname=App.pth & "\db\db1.mdb"

Answer 7

to  WallesCai(今年过节不吃饭，要吃就吃减肥茶！) 代码如下：
Public db As Database
Public dbname As String
dbname = App.Path + "\db\db1.mdb"
Set db = OpenDatabase(dbname)还是报错“无效外部过程”

Answer 8

Public Sub opendatabaseX()
Dim db As Database
Dim dbname As String
dbname = App.Path + "\db\db1.mdb"
Set db = OpenDatabase(dbname)
End Sub