Filter與updatebatch混合使用完成大局部更新
發(fā)表時間：2023-08-11 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]/*******部分代碼*******//*******idArr()和codeArr()為兩個數(shù)組，其中，idArr()為filter數(shù)據(jù)過濾條件，codeArr()作為更新數(shù)據(jù)*********...
/*******部分代碼*******/
/*******idArr()和codeArr()為兩個數(shù)組，其中，idArr()為filter數(shù)據(jù)過濾條件，codeArr()作為更新數(shù)據(jù)**********/
.......
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) '定義數(shù)據(jù)過濾
CRs.Filter=FStr
CRs("DCM_Code")=codeArr(i)
next
CRs.UpdateBatch(3) '批量更新
........
/***********避免重復(fù)的進行open操作，但是filter本身也有效率問題；應(yīng)該結(jié)合事務(wù)處理；filter可進行多條件選擇；updateBatch各參數(shù)-----adAffectCurrent(1):當(dāng)前位置；
adAffectGroup(2) :符合filter的數(shù)據(jù)
adAffterAll(3) :當(dāng)前所有數(shù)據(jù)***************/
