vbs中Trans的问题
一个vbs文件，将文件中的数据导入数据库
如果有一行数据错误，则回滚
为了出现错误不出现提示框 在开头用了On Error Resume Next
大体是这样的
On Error Resume Next
oConn.BeginTrans
If oConn.Errors.Count>0 Then
oConn.RollBackTrans
MoveFile fileName, "ERROR"
Else
oConn.CommitTrans
MoveFile fileName, "Success"
End If
现在的问题是 当出现错误的时候
也回滚 但是不执行MoveFile fileName, "ERROR"
而导入成功的时候 MoveFile fileName, "Success" 回执行
这是什么原因呢？
我开始以为是 On Error Resume Next 的原因，但是如果是这个原因的话 那么为什么还会执行回滚呢
请大虾们帮忙解决一下！！！！
[解决办法]
去掉On Error Resume Next 再试
[解决办法]
On Error Resume Next
oConn.BeginTrans
If oConn.Errors.Count>0 Then
On Error Goto 0
oConn.RollBackTrans
MoveFile fileName, "ERROR"
Else
oConn.CommitTrans
MoveFile fileName, "Success"
End If
