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) :當前所有數據***************/

原文轉自：http://www.kjueaiud.com