国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

Filter與updatebatch混合使用實現批量更新

2019-11-18 20:15:04
字體：大 中 小
來源：轉載
供稿：網友
/*******部分代碼*******/
/*******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)    :當前所有數據***************/

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 金坛市| 德保县| 项城市| 龙南县| 富裕县| 太原市| 光山县| 无棣县| 上饶市| 武强县| 合山市| 鲁山县| 遂昌县| 临沂市| 星子县| 德兴市| 潍坊市| 游戏| 鄂州市| 广灵县| 连江县| 鸡东县| 靖州| 邳州市| 万盛区| 奇台县| 施秉县| 开化县| 柘荣县| 疏附县| 西丰县| 宁武县| 陆良县| 长泰县| 读书| 灵山县| 岳阳县| 彭水| 五原县| 珲春市| 新龙县|