国产探花免费观看_亚洲丰满少妇自慰呻吟_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)    :當前所有數據***************/

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 安新县| 方正县| 雅安市| 武宁县| 筠连县| 隆德县| 庄浪县| 亚东县| 托里县| 台东县| 彭州市| 永昌县| 女性| 精河县| 依安县| 靖州| 呼伦贝尔市| 姚安县| 灵山县| 泰来县| 天气| 白水县| 马尔康县| 弥渡县| 曲周县| 和龙市| 宜城市| 留坝县| 大冶市| 蕲春县| 集贤县| 水城县| 武强县| 平顶山市| 察哈| 白银市| 嘉黎县| 荣昌县| 富锦市| 渝北区| 瓮安县|