classstat.cls

来自「基于vb的图书管理系统的设计」· CLS 代码 · 共 48 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "classStat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Event Active(ByVal Status As Long)
Public Event Errs(ErrCon As Object)

'求和
Public Function statSum(strTable As String, strFeild As String) As String
On Error Resume Next

Dim Cnn As New ADODB.Connection
Dim rsR As New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT SUM(" & strFeild & ") AS '总数' FROM " & strTable
Cnn.Open strCnn
rsR.Open strSQL, Cnn, adOpenStatic, adLockOptimistic
 'statSum = Trim(rsR![总数])
 statSum = Trim(rsR.Fields.Item(0))
End Function
'统计
Public Function statCount(strTable As String, strFeild As String) As String
On Error Resume Next

Dim Cnn As New ADODB.Connection
Dim rsR As New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT COUNT(" & strFeild & ") AS '总数' FROM " & strTable
Cnn.Open strCnn
rsR.Open strSQL, Cnn, adOpenStatic, adLockOptimistic
'statCount = Trim(rsR![总数])
statCount = Trim(rsR.Fields.Item(0))
End Function