Filter与updatebatch混合使用实现批量更新

核心提示：/***部分代码***//***idArr()和codeArr()为两个数组，其中，Filter与updatebatch混合使用实现批量更新，idArr()为filter数据过滤条件，codeArr()作为更新数据**/.......dim CRs,sql,FStrsql=""conn.begint

/*******部分代码*******/
/*******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)　　:当前所有数据***************/