今日头条和头条视频:vb代码的意思.请在代码后面写上注释

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/12 08:54:16
模块代码
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