行尸走肉第七季 mp4:vb代码的意思.请在代码后面写上注释

来源:百度文库 编辑:中科新闻网 时间:2024/05/15 16:48:08
模块代码
Public g_conn As New ADODB.Connection
Public g_dbpath As String
Public Sub GetConnectionToDb()
g_dbpath = App.Path
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source =" & g_dbpath & "\xinyonghu.mdb"
g_conn.Open strConn
End Sub

Public g_conn As New ADODB.Connection '数据库连接字符串
Public g_dbpath As String '数据库路径
Public Sub GetConnectionToDb()
g_dbpath = App.Path '将工程所在路径给数据库路径
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source =" & g_dbpath & "\xinyonghu.mdb"
g_conn.Open strConn
End Sub