DataMembers.Add "Names"
Set rsNames = New ADODB.RecordSet ' 设置对象变量。
' 创建一个具有两个字段的 recordset，并打开该 recordset。
' 第一个记录具有一个整数的数据类型，第二个记录是一个最大可
' 达 256 个字符的字符串。CursorType 被设置为 OpenStatic
' -- 一个可更新的对一组记录的快照。LockType 被设置为
' LockOptimistic，以允许对该 recordset 进行更新。
With rsNames
.Fields.Append "ID", adInteger
.Fields.Append "Name", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
Dim i As Integer
For i = 1 to 10 ' 添加十条记录。
rsNames.AddNew
rsNames!ID = i
rsNames!Name = "Name " & i
rsNames.Update
Next i
rsNames.MoveFirst ' 移到该记录集的开始。
End Sub
这部分代码首先创建 recordset 对象，然后给该对象添加两个字段。代码接着给 recordset 添加十条记录。
在该类的 GetDataMember 事件中，添加下述代码：
Private Sub Class_GetDataMember(ByVal DataMember As String, _
Data As Object)
Set Data = rsNames
End Sub
只要发生该事件—即当该类对象被绑定到一个数据使用者，如 DataGrid 控件时，代码将返回该 recordset 对象。
责任编辑：cyth
