资讯文章
应用
游戏
首页 应用 游戏 资讯

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

来源:佚名 2004/6/17 12:08:00
/*******部分代码*******/
/*******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) :当前所有数据***************/


网友留言

跟帖评论

查看更多评论
最新精选推荐

推荐


植物大战僵尸2高清版

全民飞机大战手游

捕鱼达人3手游

捕鱼达人4正版

虫虫助手最新版本

百词斩app

学霸君手机版

有道翻译官app

360手机卫士最新版

2345阅读王软件