北电新生中的重庆美女:关于VB的一些小问题~~~大家帮忙看看~~
来源:百度文库 编辑:查人人中国名人网 时间:2024/08/31 13:26:31
我在桌面键了个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盘,路径不对,再说应该是相对路径