ASP编程中关于ACCESS数据库使用事务

　　通常我们在处理某些数据任务的时候，往往一条SQL语句无法实现所有的数据操作，而需要使用多条语句，这时候，我们就需要用到数据库事务，使用事务可以有效的保证数据的完整性。大多数人对于ＳＱＬ　ＳＥＲＶＥＲ等大型数据库的事务使用比较熟练，而对于ＡＣＣＥＳＳ数据库就不是那么明白了，这里我就针对ＡＣＣＥＳＳ数据库如何使用事务做下说明。

１、定义数据联接，注意：此处必须使用oledb4.0以上的驱动程序联接数据库。
 ConnStr = "provider=microsoft.jet.oledb.4.0; data source=" & Server.MapPath("DataBase/cy#7812&zy.mdb")
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.open ConnStr

２、使用事务
conn.BeginTrans '事务开始
Sql="update a set num=1000 where id=24" '第一个sql语句为update。（语法正确）
conn.execute(Sql) 
Sql="insert into a(num) values('a')" '第二个sql语句为错误的sql语句
conn.execute(Sql) 
Sql="insert into a(num) values(33333)" '第三个sql语句为正确的sql语句
conn.execute(Sql)  
if conn.Errors.Count=0 then 
      conn.CommitTrans  '如果没有conn错误，则执行事务提交
else
      conn.RollbackTrans '否则回滚
end if
　　以上代码经调试，可以正常的进行事务处理。但是有时候，我们并不想将编译错误显示给用户。则我们需要在conn.BeginTrans后面加上On error resume next。但是因为用到了On error resume next。conn.Errors.Count只能获得最后一个数据库操作的conn返回的结果 。上面的三个sql语句，因为最后一个sql语句是正确的，则此事务处理就无效了。那我们需要对出错处理作出相对应的修改。
　　if conn.Errors.Count=0 then应该改为if err.number=0 then
　　这样，我们可以在数据库回滚后同时做出其他相对应的操作或者提示。修改后的代码如下：

conn.BeginTrans '事务开始
on error resume next
Sql="update a set num=1000 where id=24" '第一个sql语句为update。（语法正确）
conn.execute(Sql) 
Sql="insert into a(num) values('a')" '第二个sql语句为错误的sql语句
conn.execute(Sql) 
Sql="insert into a(num) values(33333)" '第三个sql语句为正确的sql语句
conn.execute(Sql)  
if conn.Errors.Count=0 then 
      conn.CommitTrans  '如果没有conn错误，则执行事务提交
else
      conn.RollbackTrans '否则回滚
end if

if err.number =0 then 
    conn.CommitTrans  '如果没有conn错误，则执行事务提交
else
    conn.RollbackTrans '否则回滚
    '回滚后的其他操作
    strerr=err.Description
    Response.Write "数据库错误！错误日志：<font color=red>"&strerr &"</font>"
    Response.End
end if