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