|
”窗口中，单击并选定“类”图标，并按 F4 键显示“属性”窗口。
在“属性”窗口中，将类的名称更改为NamesData。
在“属性”窗口中，单击“DataBehavior”并将该属性更改为vbDataSource。
在该类模块的 Declarations 部分，创建一个 ADODB Recordset变量，如下所示：
Option Explicit
Private WithEvents rsNames As ADODB.RecordSet
使用 WithEvents 关键词来声明该变量，使用户可以对 RecordSet 对象的事件编程。
在该类的 Initialize 事件中，添加下述代码：
Private Sub Class_Initialize()
' 将新的数据成员的名称添加到 DataMember 集合
' 这使其它对象可以看见这些可用的 DataMembers
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. 上一页 [1] [2] [3] [4] 下一页
|
