在最后加cnDB.execute "commit" 试试!

解决方案 »

  1.   

    rsDB.Open  cmdDB,  , ,  adLockPessimistic
      

  2.   

    rsDB.Open  cmdDB,  , ,adLockPessimistic
      

  3.   

    rsDB.Open  cmdDB,  , ,adLockPessimistic
      

  4.   

    rsDB.Open  cmdDB,  ,  adOpenStatic,  adLockBatchOptimistic
    你用的是批次更新锁定方式          
              rsDB.AddNew
              rsDB.Fields("field")  =  "dddd"
              rsDB.Update
    所以在你要提交的时候
              rsdb.updatebatch
    或者用乐观锁定
              rsDB.Close
      

  5.   

    rsDB.Open    cmdDB,    ,    adOpenStatic,    adLockBatchOptimistic
    rsDB.AddNew
    rsDB.Fields("field")    =    "dddd"
    rsDB.Update
    rsdb.updatebatch
    rsDB.Close
    上面用批次更新
    =========================================
    rsDB.Open    cmdDB,    ,    adOpenStatic,    adLockOptimistic
    rsDB.AddNew
    rsDB.Fields("field")    =    "dddd"
    rsDB.Update
    rsDB.Close
    用乐观锁定
    =========================