为什么不能删除数据库中的记录?
代码:
With moveRs
.Open "select * from " & tablemove & "", conser, adOpenDynamic, adLockOptimistic
.AddNew
!empid = strempid
!datetime = datetime
!machineno = lvcon.ListItems(i).SubItems(2)
.Update
.Close
.Open "select * from " & table & " where empid = " & strempid & " and DateTime = datetime and machineno = " & strmachineno & "", conser, adOpenDynamic, adLockOptimistic
.Delete
.UpdateBatch adAffectAllChapters
End With
moveRs.Close
在一个数据库中添加成功,但却不能在另一个数据库中删除记录,什么原因?