|
Filter与updatebatch混合使用实现批量更新 |
| 来源：网站维护 |
作者：www.weihula.com |
人气： |
2015-8-18 |
|
|
|
|
|
|
|
|
内容提示：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) :当前所有数据***************/ |
| 【声明】本文章系本站编辑转载，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题，请在30日内与本站联系，我们将在第一时间删除内容！ |
|
|
|
|
|
