一个关于路径的问题。

Question

app.path & "\database\my.mdb"

Answer 1

以上是在程序的database目录下的my.mdb数据库
请自行修改cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & app.path & "\database\my.mdb"

Answer 2

app.path    工程文件所在的路径

Answer 3

我的方法ado
 Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\main.mdb;Jet OLEDB:Database Password=000;"
  Set adoPrimaryRS = New Recordset
  dao
Set dbworkspace = DBEngine.Workspaces(0)
Set dbdatabase = dbworkspace.OpenDatabase(App.Path_ + "\zwtdatabase.mdb", False, False, ";pwd=civil222")
Set dbrecordset = dbdatabase.OpenRecordset("select * from bmfg")

Answer 4

纠正!多打了个"_"
Set dbworkspace = DBEngine.Workspaces(0)
Set dbdatabase = dbworkspace.OpenDatabase(App.Path_ + "\zwtdatabase.mdb", False, False, ";pwd=civil222")
Set dbrecordset = dbdatabase.OpenRecordset("select * from bmfg")