神马品牌网永琪登基小燕子被冷落:关于VB的一些小问题~~~大家帮忙看看~~
来源：百度文库 编辑：神马品牌网 时间：2024/05/02 17:31:34
我在桌面键了个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
但调试的时候怎么说：找不到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
App.Path 属性
对于 App 对象，当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径，或者当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件的路径。
未编译前 app.path指向工程文件.vbp所在路径,编译后指向可执行文件.exe所在路径.
因为你的程序保存在F：\VB1目录中，而搜寻数据库的方法是：
App.Path & "/bata.mdb"
也即是跟程序在相同的目录下，所以会到那个目录中找，而且找不到，你可以把那个数据库复制到这个目录中即可解决
app.path是程序所在目录，如果你的程序不在桌面，当然找不到了
另，到底是data.mdb还是bata.mdb？注意不要写错哦
以上。
专业校对的老狼
在F盘的原因是你的应用程序在F盘。如果你的数据库不是指定的目录下，那么就得写完整的物理路径
(App.Path & "\VB1\data.mdb")
然后把MDB拷贝到程序的目录
桌面上的应该是C盘,路径不对,再说应该是相对路径