MoveFirst ' 移到该记录集的开始。
End Sub
这部分代码首先创建 recordset 对象，然后给该对象添加两个字段。代码接着给 recordset 添加十条记录。
在该类的 GetDataMember 事件中，添加下述代码：
Private Sub Class_GetDataMember(ByVal DataMember As String, _
Data As Object)
Set Data = rsNames
End Sub
只要发生该事件—即当该类对象被绑定到一个数据使用者，如 DataGrid 控件时，代码将返回该 recordset 对象。
在 Form 对象的代码模块中，声明一个数据类的对象变量：
Option Explicit
Private datNames As NamesData ' 类变量
在 Form 对象的 Load 事件的代码中，将 DataGrid 控件的 DataSource 设置为该类对象。
Private Sub Form_Load()
' 创建一个新的 NamesData 对象
Set datNames = New NamesData
' 将这个 DataGrid 绑定到新的数据源 datNames
Set DataGrid1.DataSource = datNames
End Sub
按 F5 键运行该工程。
结果集事件的编程
也可以对这个 Recordset 对象的事件进行编程。在该类模块中，单击“对象”框（在位于左上角），然后单击“rsNames”。在“过程/事件”框（在右上角）中，下拉列表将显示这个 Recordset 对象的所有事件。
给类添加一个属性
类模块也可以进行修改，来响应事件或函数调用。下面的代码演示了如何先给类添加属性。当从其它对象调用该对象时，这一属性将返回该类的 RecordCount。
Public Property Get RecordCount() As Long
RecordCount = rsNames.RecordCount
End Sub
使用 DataMember 属性
GetDataMember 事件也包括 DataMember 参数。使用这个参数，可 上一页 [1] [2] [3] [4] 下一页
|
