conn.bas

VB操作ACCESS数据库实例.rar

Attribute VB_Name = "CONN"
'****************************************************************************
'天佑汶川、天佑四川、天佑甘肃、天佑中华、天佑善良的人！
'作者：大唐
'发布日期：2008/06/08
'描    述：一个简单的vb6操作ACCESS数据库实例
'网    站：http://www.zhiweikeji.cn/  (智威科技)
'OICQ    ：21792038
'天佑汶川、天佑四川、天佑甘肃、天佑中华、天佑善良的人！
'****************************************************************************


'声明数据库连接对象
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\Test.mdb;Persist Security Info=False;"
End Sub


'关闭数据库
Public Sub CloseConn()
If rs.State = True Then
    rs.Close
    Set rs = Nothing
End If
    cn.Close
    Set cn = Nothing
End Sub


'提示窗口
Public Sub msginfo(msg As String)
    MsgBox (msg & "成功！")
End Sub