欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbs中trans的有关问题

更新时间: 2014-01-05 01:52:58 责任编辑: Author_N1

 

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
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:58
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2482/
本文WWW.DOC100.NET DOC100.NET版权所有。