订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

ASP事务处理 for access

网络 2009/5/6 20:57:19 深山行者 字体: 浏览 10115

所谓事务处理,简单地说,就是所有的数据库操作都可以看做事务处理。当开始一个事务处理后,就打开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
%>

相关阅读
asp模拟动态加载include file
通过设置iis的进程池让网站的并发数,性能提升几个档次
python错误yntaxError: Non-UTF-8 code starting with '\xd3' in file 文件.py but no encoding declared
超级酷的滚动条颜色代码生成器
asp利用函数生成指定位数的随机数字符串
标准版下拉菜单
网站站长:提高页面浏览速度的办法
window.location.href和setTimeout结合时间错误
共有0条关于《ASP事务处理 for access》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
uni-app开发表单input组件的一些规则说明自己预留使用
另外一种符合web2.0的链接打开方式--利用base打开链接
深山留言板过年回家效果
大红袍形象设计暨旅游商品设计大赛在线投票评选
给个photoshopcs下载地址,大家可能用到
一次自动化批量处理服务器上几万张图片