VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 1  'vbDataSource
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "OpenRs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private cnSIMS As ADODB.Connection                 '聲明一個(gè)連接

Private rsSims As ADODB.Recordset                  '聲明一個(gè)連接記錄集

Public rs1 As ADODB.Recordset                      '聲明一個(gè)連接到所需表的記錄集
Public rs2 As ADODB.Recordset

Public rst As ADODB.Recordset
Private Data As Object
'---------------------------------------------------------
' 在類(lèi)初始化時(shí)建立連接
'---------------------------------------------------------
Private Sub Class_Initialize()
    On Error GoTo DbnotOpen
    Set cnSIMS = New ADODB.Connection
    With cnSIMS
    .Provider = conProvide
    .ConnectionString = conString
    .ConnectionTimeout = 10
    .Open
    Set rst = New ADODB.Recordset
    End With
    Exit Sub
DbnotOpen:
    If Err = -2147467259 Then
        Set cnSIMS = Nothing
        MsgBox "連接后臺(tái)數(shù)據(jù)庫(kù)失敗！" & vbCrLf & vbCrLf & "請(qǐng)檢查配置是否完好,數(shù)據(jù)庫(kù)student是否存在?", vbOKOnly + vbInformation, "學(xué)生信息管理系統(tǒng)"
        End
    End If
End Sub
'---------------------------------------------------------
'data是一個(gè)指向ADO記錄集的對(duì)象的引用
'用于設(shè)置class的數(shù)據(jù)源內(nèi)容
'---------------------------------------------------------
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
    Set Data = rsSims
End Sub

'-------------------------------------------------------
'建立一個(gè)可以打開(kāi)記錄集的函數(shù)，需要是必須把表名傳給函數(shù)
'-------------------------------------------------------
Public Function rsDK(Table As String)
    Set rsSims = New ADODB.Recordset
    With rsSims
    .Source = Table
    .ActiveConnection = cnSIMS
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open , , , , adCmdTable
    End With
End Function
'-------------------------------------------------------
'建立一個(gè)可以打開(kāi)記錄集(動(dòng)態(tài)游標(biāo))的函數(shù)
'需要把SQL語(yǔ)句傳遞給函數(shù)
'-------------------------------------------------------
Public Function rsDK1(sql As String)
    Set rs1 = New ADODB.Recordset
    With rs1
    .Source = sql
    .ActiveConnection = cnSIMS
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
   .Open , , , , adCmdText
    End With
End Function
'-------------------------------------------------------
'建立一個(gè)可以打開(kāi)記錄集(靜態(tài)游標(biāo))的函數(shù)
'需要把SQL語(yǔ)句傳遞給函數(shù)
'-------------------------------------------------------
Public Function rsDK2(sql As String)
    Set rs2 = New ADODB.Recordset
    With rs2
    .Source = sql
    .ActiveConnection = cnSIMS
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open , , , , adCmdText
    End With
End Function
'-------------------------------------------------------
'類(lèi)終止時(shí),釋放一切可能占據(jù)的資源
'-------------------------------------------------------
Private Sub Class_Terminate()
    Set cnSIMS = Nothing
    Set rs1 = Nothing
    Set rs2 = Nothing
    Set rsSims = Nothing
    Set rst = Nothing
End Sub