原创 ASP事务处理 for access-zt 最后一段为准确的

所谓事务处理，简单地说，就是所有的数据库操作都可以看做事务处理。当开始一个事务处理后，就打开Web页面与数据库的事务处理通道，此时可以从Web页面上直接更新数据库内容，但是更新结果并不马上真正反映到数据库中。只有在提交事务处理结果后，数据库内容才能被真正更新，否则，所有的操作都无效。

用法举例(db1.mdb中有一个test表，只包含一个name文本字段)：

<%
Dim conn,sqlstr,sqlstr2,sqlstr3
Set conn=server.createobject("ADODB.connection")
Conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
Conn.open
sqlstr="insert into test(name) values('aaa')"   '正确的SQL语句
sqlstr2="insert into test(name2) values('bbb')"   '错误的SQL语句
sqlstr3="insert into test(name) values('ccc')"   '正确的SQL语句
Conn.BeginTrans
conn.execute(sqlstr)
conn.execute(sqlstr2)
conn.execute(sqlstr3)
If conn.Errors.Count=0 then
     Conn.CommitTrans
     Response.write ""
Else
     Conn.RollbackTrans
     Response.write ""
End if
Conn.close
Set conn=nothing
%>

这样当执行到错误的SQL语句时程序抛出错误信息，不再理会后面第三条SQL语句正确与否，事务处理机制生效，整个提交过程无效。实现运用中我们并不希望将错误信息展示在用户面前，于是我们加了On error resume next语句，如下：

<%
Dim conn,sqlstr,sqlstr2,sqlstr3
Set conn=server.createobject("ADODB.connection")
Conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
Conn.open
sqlstr="insert into test(name) values('aaa')"
sqlstr2="insert into test(name2) values('bbb')"
sqlstr3="insert into test(name) values('ccc')"
On error resume next
Conn.BeginTrans
conn.execute(sqlstr)
conn.execute(sqlstr2)
conn.execute(sqlstr3)
If conn.Errors.Count =0 then
     Conn.CommitTrans
     Response.write ""
Else
     Conn.RollbackTrans
     Response.write ""
End if
On Error GoTo 0
Conn.close
Set conn=nothing
%>

这样出现的问题是只要最后一条SQL语句是正确的，那么conn.Errors.Count的值就必定为0,这样的结果是先前错误的SQL语句不会执行，正确的SQL语句会被正确执行，整个事务处理机制基本上等于失效，解决的办法是将conn.Errors.Count改为err.number，代码如下：

<%
Dim conn,sqlstr,sqlstr2,sqlstr3
Set conn=server.createobject("ADODB.connection")
Conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
Conn.open
sqlstr="insert into test(name) values('aaa')"
sqlstr2="insert into test(name2) values('bbb')"
sqlstr3="insert into test(name) values('ccc')"
On error resume next
Conn.BeginTrans
conn.execute(sqlstr)
conn.execute(sqlstr2)
conn.execute(sqlstr3)
If err.number = 0 then
     Conn.CommitTrans
     Response.write ""
Else
     Conn.RollbackTrans
     Response.write ""
End if
On Error GoTo 0
Conn.close
Set conn=nothing
%>