本地使用RecordSet 对象_.NET教程_编程技术--HTML5中文学习网

本地使用RecordSet 对象_.NET教程_编程技术

2013-12-20 14:21:12 [小大] 已经帮助：人解决问题

对象

Dim i As Integer
Dim rsConstruct As ADODB.Recordset
Set rsConstruct = New ADODB.Recordset

'构造Recordset 的字段名和类型
    rsConstruct.Fields.Append "Field1", adInteger
    rsConstruct.Fields.Append "Field2", adVarWChar, 128
    rsConstruct.Fields.Append "Field3", adVarWChar, 128
    rsConstruct.Fields.Append "Field4", adVarWChar, 128
    rsConstruct.Open
    '增加记录至Reocrdset
    If colTemp.count > 0 Then
        For i = 1 To colTemp.count
            rsConstruct.AddNew
                   rsConstruct.Fields("Field1") = 0
                 rsConstruct.Fields("Field2") = colTemp.Item(i).Subject
                   rsConstruct.Fields("Field3") = colTemp.Item(i).Description
                   rsConstruct.Fields("Field4") = colTemp.Item(i).RefURL
            rsConstruct.Update
        Next

（责任编辑：）