clsdb.cls

教学管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsDB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public DbCn As New ADODB.Connection
Public DBstatus As Boolean

Public Function OpenDB() As Boolean
    On Error GoTo DoError
    Dim CnString As String
    CnString = "Provider=MSDAORA.1;User ID=scott;Persist Security Info=False"
    DbCn.Open CnString, "scott", "tiger"
    DBstatus = True
    OpenDB = True
    Exit Function
DoError:
    DBstatus = False
    OpenDB = False
    Message "打开数据库失败!", err
    Exit Function
End Function

Public Function CloseDB()
    DbCn.Close
    DBstatus = False
End Function

Public Function exeSQL(sqlStr As String, Recordset As ADODB.Recordset, Optional enableWrite As Boolean = True) As Boolean
    On Error GoTo DoError

    If Recordset.State = 1 Then
        Recordset.Close
    Else
        Recordset.CursorLocation = adUseClient
    End If
    
    If enableWrite Then
        Recordset.Open sqlStr, DbCn, adOpenStatic, adLockOptimistic
    Else
        Recordset.Open sqlStr, DbCn, adOpenStatic, adLockReadOnly
    End If
    exeSQL = True
    Exit Function
DoError:
    exeSQL = False
    Message "数据库操作失败!", err
    Exit Function
End Function

Private Sub Message(ErrorMsg As String, err As ErrObject)
    MsgBox ErrorMsg + "[" + Str(err.Number) + "]:" + err.Description, vbOKOnly + vbExclamation, "错误"
End Sub