clsrstset.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 = "clsRstSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Source As String
'下面的ENUM都是系统自带的 将类型后面加ENUM
Public CursorLocation As CursorLocationEnum
Public CursorType As CursorTypeEnum
Public LockType As LockTypeEnum

'返回记录集所需要的信息（以下三个通常是固定不变的，所以把他们写在《初始化（Class_Initialize）》里面）
'做为默认方式
Private Sub Class_Initialize()
    CursorLocation = adUseClient    '本地游标为客户端游标
    CursorType = adOpenKeyset       '游标类型
    LockType = adLockOptimistic     '锁定类型
End Sub