Filter与updatebatch混合使用实现批量更新
/*******部分代码*******/
/*******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) :当前所有数据***************/ 上一篇:用XMLHTTP Post/Get HTML页面时的中文乱码之完全Script解决方案 下一篇:XMLHTTP ActiveX对象的访问ASP区段变量的其他方法 更多相关文章
|
推荐文章
精彩文章
|