clsmidtier.cls

来自「vb做学生成绩管理系统」· CLS 代码 · 共 65 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMidTier"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private mConn As Connection
Private mstrConnectString As String

Private Sub Class_Initialize()
   mstrConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Student.mdb"
   Set mConn = New Connection
   mConn.Open mstrConnectString
End Sub

Private Sub Terminate()
  mConn.Close
  Set mConn = Nothing
End Sub

Public Function GetList(ByVal strCmd As String, Optional psWhere As String) As Object
  Dim rs As Recordset
  Set rs = New Recordset
  
  If Len(psWhere) > 0 Then
     strCmd = strCmd & " where " & psWhere
  End If
  rs.CursorLocation = adUseClient
  On Error GoTo GetListError
  rs.Open strCmd, mConn, adOpenStatic, adLockOptimistic, adCmdText
  Set GetList = rs
  Exit Function
GetListError:
  Err.Raise vbObjectError, , "获取数据错误!"
End Function
Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
    Dim rst As ADODB.Recordset
    Dim stokens() As String
    On Error GoTo exectuesql_error
    stokens = Split(sql)
    If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
        mConn.Execute sql
    Else
        Set rst = New ADODB.Recordset
        rst.Open Trim(sql), mConn, adOpenStatic, adLockOptimistic, adCmdText
        Set ExecuteSQL = rst
    End If
    Exit Function
exectuesql_error:
    Err.Raise vbObjectError, , "获取数据错误!"
End Function

Public Function strConnString() As String
    strConnString = mstrConnectString
End Function