Question

简单VB程序的一段代码，请大侠帮忙一下

连接数据库的函数，看不懂请高手帮忙一下：
Public Sub openconn()
{
On Error GoTo checker
Dim conStr = "Provider = Microsoft.Jet.OLEDB.4.0;"
conStr = conStr & "Data source" =& App.Path &"/BMSDB.mdb"
adoCon.ConnectionString = conStr
adoCon.Open
Exit sub
checderr:
msgbox"Error Occured:"
Call closeconn
End
End Sub

请问一下，上面的“App.Path”如何用？
下面这几句是什么意思：
Dim conStr = "Provider = Microsoft.Jet.OLEDB.4.0;"
conStr = conStr & "Data source" =& App.Path &"/BMSDB.mdb"
adoCon.ConnectionString = conStr
adoCon.Open
？？？？
还有上边的关闭数据库函数“closeconn"需要声明吗？
小弟在此先谢了

Answer 1

App.Path 是相对路径 也就是相对网站根目录的路径

Microsoft.Jet.OLEDB.4.0 这个是用来连接Access数据库的

conStr = conStr & "Data source" =& App.Path &"/BMSDB.mdb"这个的意思就是把原来的conStr与后面的字符串连起来作为新的conStr 。
＆ 是字符连接符号
adoCon.ConnectionString = conStr 是与数据库连接用的
用这个语句就可以实现连接数据库
adoCon.Open 是打开数据库

closeconn应该也是一个函数和openconn() 是一样的 需要事先编写

Answer 2

App.Path就是当前程序的运行的路径。

Dim conStr = "Provider = Microsoft.Jet.OLEDB.4.0;"
conStr = conStr & "Data source" =& App.Path &"/BMSDB.mdb"
adoCon.ConnectionString = conStr
adoCon.Open
是打开数据库文件的语句。

需要声明。
谢谢！