conn.bas

一套源代码完整的企事业人事管理系统

Attribute VB_Name = "conn"
'Download by http://www.codefans.net
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\data.mdb;Jet OLEDB:Database Password=cjw123456;Persist Security Info=False;"
End Sub


'关闭数据库连接
Public Sub CloseConn()
    'rs.Close
    'Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub