本地使用RecordSet 对象-.NET教程,数据库应用

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