operatdatabase.bas

数据库课程设计图书管理系统

Attribute VB_Name = "OPeratDataBase"
Public Function GetConnStr() As String
    GetConnStr = ConnectionString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
    Set Conn = New ADODB.Connection
    On Error GoTo ErrorHandle
    Conn.Open GetConnStr
    OpenConn = True
    Exit Function
ErrorHandle:
    MsgBox "连接数据库失败！请重新连接！"
    OpenConn = False
    Exit Function
End Function
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
    Dim Conn As ADODB.Connection
    Dim sTokens() As String
    On Error GoTo ErrorHandle
    sTokens = Split(SQL)
    If InStr("INSERT,DELETE,UPDATE", UCase((sTokens(0)))) Then
        If OpenConn(Conn) Then
            Conn.Execute SQL
            msg = sTokens(0) & "操作执行成功！"
        End If
    Else
        msg = "SQL语句有误：" & SQL
    End If
Finally_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Sub
ErrorHandle:
    msg = "执行错误: " & Err.Description
    Resume Finally_Exit
End Sub
Public Function SelectSQL(ByVal SQL _
As String, ByRef msg As String) As ADODB.Recordset
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    On Error GoTo ErrorHandle
    sTokens = Split(SQL)
    If InStr("SELECT", UCase((sTokens(0)))) Then
        If OpenConn(Conn) Then
            Set rst = New ADODB.Recordset
            rst.CursorLocation = adUseClient
            rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
            Set SelectSQL = rst
            msg = "查询到" & rst.RecordCount & " 条记录! "
        End If
    Else
        msg = "SQL语句有误：" & SQL
    End If
Finally_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Function
ErrorHandle:
    MsgString = "查询错误: " & _
    Err.Description
    Resume Finally_Exit
End Function
Public Function BatchSelectSQL(ByVal SQL _
   As String, ByRef msg As String) As ADODB.Recordset
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    On Error GoTo ErrorHandle
    sTokens = Split(SQL)
    If InStr("SELECT", UCase((sTokens(0)))) Then
        If OpenConn(Conn) Then
            Set rst = New ADODB.Recordset
            rst.CursorLocation = adUseClient
            rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockBatchOptimistic
            Set BatchSelectSQL = rst
            msg = "查询到" & rst.RecordCount & " 条记录! "
        End If
    Else
        msg = "SQL语句有误：" & SQL
    End If
Finally_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Function
ErrorHandle:
    MsgString = "批查询错误: " & _
    Err.Description
    Resume Finally_Exit
End Function