vb连接Access数据库自定义

大家好，又见面了，我是你们的朋友全栈君。

Public cn As New ADODB.Connection Public rs As New ADODB.Recordset

‘打开数据库连接 Public Sub OpenConn() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “/data/XXX.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;” End Sub ‘关闭数据库连接 Public Sub CloseConn() rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/126557.html原文链接：https://javaforall.cn