VB中的事务处理[总结].pdfVIP

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 OK exit_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 OK exit_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