一聚教程网:一个值得你收藏的教程网站

热门教程

Filter与updatebatch混合使用实现批量更新(原创)

时间:2022-06-30 10:34:11 编辑:袖梨 来源:一聚教程网

/*******部分代码*******/
/*******idArr()和codeArr()为两个数组,其中,idArr()为filter数据过滤条件,codeArr()作为更新数据**********/
.......
    dim CRs,sql,FStr
    sql=""
    
    conn.begintrans
    set CRs=server.CreateObject("adodb.recordset")
    CRs.ActiveConnection=conn
    CRs.CursorType=1
    CRs.LockType=3
    CRs.Source="select * from MB_DCManage"
    CRs.Open
    for i=0 to ubound(codeArr)-1
    FStr="DCM_ID="&idArr(i)    '定义数据过滤
    CRs.Filter=FStr       
    CRs("DCM_Code")=codeArr(i)
    next
    CRs.UpdateBatch(3)        '批量更新
........
/***********避免重复的进行open操作,但是filter本身也有效率问题;应该结合事务处理;filter可进行多条件选择;updateBatch各参数-----adAffectCurrent(1):当前位置;
    adAffectGroup(2)    :符合filter的数据
    adAffterAll(3)    :当前所有数据***************/

热门栏目