Question

关于VB的一些小问题~~~大家帮忙看看~~

我在桌面键了个ACCESS的数据库~~在VB里弄了个代码：
但调试的时候怎么说：找不到F：/VB1/data.mdb??
请问程序怎么会到F盘去找？
你们能帮我解释一下吗？
Private Sub Command1_Click()
Dim a As Database
Set a = OpenDatabase(App.Path & "/bata.mdb")
Set rs = a.OpenRecordset("select * from users")
If Not (a Is Nothing) Then
MsgBox "打开数据库文件"
End If
End Sub

Answer 1

因为你的程序保存在F：\VB1目录中，而搜寻数据库的方法是：
App.Path & "/bata.mdb"
也即是跟程序在相同的目录下，所以会到那个目录中找，而且找不到，你可以把那个数据库复制到这个目录中即可解决

Answer 2

App.Path 属性
对于 App 对象，当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径，或者当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件的路径。

未编译前 app.path指向工程文件.vbp所在路径,编译后指向可执行文件.exe所在路径.

Answer 3

app.path是程序所在目录，如果你的程序不在桌面，当然找不到了

另，到底是data.mdb还是bata.mdb？注意不要写错哦

以上。
专业校对的老狼

Answer 4

在F盘的原因是你的应用程序在F盘。如果你的数据库不是指定的目录下，那么就得写完整的物理路径

Answer 5

桌面上的应该是C盘,路径不对,再说应该是相对路径