如何捕捉事务处理中的错误信息？

Question

在对数据库操作时如果出错是会引发时实错误的。只要在函数内判断错误内容就可以了。
dim StartTrans as boolean
On error goto err_handle
con.BeginTrans
starttrans=true
...
cnn.committrans
starttrans=false
exit sub
err_handle:
if starttrans=true then
  cnn.rollback
endif

Answer 1

其实不大影响程序运行的错误可以用以下方法;
on error resume next 
...
on error goto err_handle
在可能出错的语句...
on error goto  0
...