|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'asp事务处理。 \\\'测试数据库为sql server,服务器为本机,数据库名为test,表名为a,两个字段id(int)主键标识,num(int) set conn=server.CreateObject("adodb.connection") strConn="provider=sqloledb.1;persist security info=false;uid=sa;pwd=sa;Initial Catalog=test;Data Source=." conn.Open strConn \\\'以上代码建立数据库连接 conn.BeginTrans \\\'事务开始 strSql1="update a set num=1000 where id=24" \\\'第一个sql语句为update。(语法准确) strSql2="insert into a(num) values(\\\'a\\\')" \\\'第二个sql语句为错误的sql语句 strSql3="insert into a(num) values(33333)" \\\'第三个sql语句为准确的sql语句 call conn.execute(strSql1) call conn.execute(strSql2) call conn.execute(strSql3) 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 这样,我们可以在数据库回滚后同时做出其他相对应的操作或者提示。修改后的代码如下: <% set conn=server.CreateObject("adodb.connection") strConn="provider=sqloledb.1;persist security info=false;uid=sa;pwd=sa;Initial Catalog=test;Data Source=." conn.Open strConn \\\'以上代码建立数据库连接 conn.BeginTrans \\\'事务开始 on error resume next \\\'增加的代码 strSql1="update a set num=1000 where id=24" \\\'第一个sql语句为update。(语法准确) strSql2="insert into a(num) values(\\\'a\\\')" \\\'第二个sql语句为错误的sql语句 strSql3="insert into a(num) values(33333)" \\\'第三个sql语句为准确的sql语句 call conn.execute(strSql1) call conn.execute(strSql2) call conn.execute(strSql3) 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 %> 返回类别: 教程 上一教程: 利用XMLHTTP实现的二级连动SELECT 下一教程: 使用组件搜索 您可以阅读与"ASP事务处理的另外一个方式"相关的教程: · 利用ASP实现事务处理的方式 · ASP中对数据库表的操作,可使用事务处理,并支持多事务处理 · ASP事务处理 · 一个功能完善的专栏治理的程序->这是asp.net的第二个应用(一) · 一个功能完善的专栏治理的程序->这是asp.net的第二个应用(三) |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |