VB中的事务处理.docVIP

?? VB中的事务处理有一下两种方式：1. ?? conn.BeginTrans 开始??? 执行语句??? conn.Execute sql??? If Err.Number = 0 Then??????? conn.CommitTrans ---提交事務??? Else????? conn.RollbackTransaction??????? MsgBox 失败??? End If??? ?? 2.?? On Error GoTo err_trans??? intTrans = newConn.BeginTrans?? 开始事务??? newConn.Execute sql??? newConn.CommitTrans???????????? 提交事务??? intTrans = 0??? newConn.Close?????????? 关闭连接??? MsgBox OKexit_trans:??? Set newConn = Nothing??? 释放对象??? Exit Sub?????????????? 退出过程err_trans:???? 错误跳到这儿处理???? 如果是事务处理中出错，则事务回滚??? If intTrans = 1 Then?????? newConn.RollbackTrans??? End If??? Resume exit_trans??? ??? 看起来两种方式都没什么问题，但是在我的项目里使用第一种方式却遇到了一个很奇怪的错误，大家见 下图： ??? 很明显我使用的是sql，不是存储过程，而且我的sql在查询分析器里运行的完全正常，它却说我有误，真是让我百思不得其解。??? 更加奇怪的是，这个错误只在项目生成exe以后才会冒出来，也就是说在开发阶段，在VB工程里面运行的是好好的，一旦到开发 的差不多了，打包生成exe文件，生成的过程不会出错，运行到特定代码调用这里的时候才会出错！这实在是个郁闷的问题，因为 在项目刚开始的时候一般不会生成exe文件来测试运行，而是直接在VB开发环境下运行，在这种情况下是运行的好好的， 所以到了项目后期可着实让我忙乱了好久，一直找不到原因，，，，不知道大家有没有遇到过??? ??? 后来我使用了2方法，这个就没出问题了，不过还是有些地方要注意的，我在这里提醒一下大家吧，也算是对自己研究的总结：??? 首先看如下代码：??? On Error GoTo err_trans??? intTrans = newConn.BeginTrans?? 开始事务??? sql = insert into Sales(dish_id,uid) values (8,2);???????????? insert into Sales(dish_id,uid) values (8,2); ???? 这里面有两句sql，在查询分析器里执行都是没有问题的??? newConn.Execute sql??? newConn.CommitTrans???????????? 提交事务??? intTrans = 0??? newConn.Close?????????? 关闭连接??? MsgBox OKexit_trans:??? Set newConn = Nothing??? 释放对象??? Exit Sub?????????????? 退出过程err_trans:???? 错误跳到这儿处理???? 如果是事务处理中出错，则事务回滚??? If intTrans = 1 Then?????? newConn.RollbackTrans?????? MsgBox false??? End If??? Resume exit_trans ??? 执行的过程中没遇到任何问题，弹出OK，下面我们改一下sql，将第一句的id值插入字符串aaaa??? sql = insert into Sales(dish_id,uid) values (aaaa,2);???????????? insert into Sales(dish_id,uid) values (8,2); ??? 意料之中，弹出了false，事务回滚了，而且数据库中的数据也没有增加，下面再做另外一个实验：??? 将第二句的id值插入字符串aaaa??? sql = insert into Sales(dish_id,uid) values (8,2);????????????? insert into Sales(dish_id,uid) values (aaaa,2);??? 再次执行，让我惊讶的是居然弹