|
”窗口中,单击并选定“类”图标,并按 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] 下一页
|