本地使用RecordSet 对象

endstar

于 2005-07-18 10:12:00 发布

阅读量691

点赞数

CC 4.0 BY-SA版权

文章标签： integer

本文链接：https://blog.youkuaiyun.com/endstar/article/details/427773

博客展示了使用ADODB.Recordset的代码示例。定义了整数变量i和Recordset对象rsConstruct，构造其字段名和类型后打开，接着在colTemp有元素时，通过循环向Recordset中添加记录并更新。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    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