h7n9禽流感的症状表现:vb代码的意思.请在代码后面写上注释

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/25 13:13:51
模块代码
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