module1.bas

这是一个书店售书管理系统

Attribute VB_Name = "Module1"
Public cnn As New ADODB.Connection      '将cnn定义为全局数据库连接对象

Public Function forOpen() As Boolean    '全局函数foropen，打开数据库的连接
cnn.ConnectionString = "driver={SQL Server};server=5E032072C441456;database=售书管理系统"
cnn.ConnectionTimeout = 8               '定义超时时间，超时则中断连接
cnn.Open                                '打开连接
forOpen = True
End Function

Public Function Cut() As Boolean        '关闭连接的函数
    If cnn.State = adStateOpen Then     '如果数据库的状态为打开状态，则关闭
       cnn.Close
    End If
    Cut = True
End Function
Public Function findData(ByVal sql As String, ByRef RE As ADODB.Recordset) As Boolean  '全局函数查找数据
        On Error Resume Next            '有错误也强制执行
        RE.Open sql, cnn, 3, 2          '打开所连接的表
        If Err.Number <> 0 Then         '如果有错则提示错误
        MsgBox Err.Description
        Err.Clear                       '清除错误
        findData = False
    Else
        findData = True
    End If
End Function