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

2008-02-23 05:26:48来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP中巧用Split()函数生成SQL查询语句

下一篇:用XMLHTTP Post/Get HTML页面时的中文乱码之完全Script解决方案