<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={sql server};server=localhost;uid=sa;pwd=sa;database=pubs"
on error resume next
set rs=server.CreateObject("adodb.recordset")
sql="select * from jobs order by job_id asc"
conn.begintrans'开始事务
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
sqlupdate="update jobs set paixu="&rs("job_id")&" where job_id="&rs("job_id")
conn.execute(sqlupdate)
%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
if err.number=0 then
conn.committrans'执行事务
Response.Write("执行成功")
else
conn.rollbacktrans'回滚事务
Response.Write(err.description)
end if
%>
set conn=server.CreateObject("adodb.connection")
conn.open "driver={sql server};server=localhost;uid=sa;pwd=sa;database=pubs"
on error resume next
set rs=server.CreateObject("adodb.recordset")
sql="select * from jobs order by job_id asc"
conn.begintrans'开始事务
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
sqlupdate="update jobs set paixu="&rs("job_id")&" where job_id="&rs("job_id")
conn.execute(sqlupdate)
%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
if err.number=0 then
conn.committrans'执行事务
Response.Write("执行成功")
else
conn.rollbacktrans'回滚事务
Response.Write(err.description)
end if
%>
本文通过一个具体的ADO示例展示了如何使用SQL Server进行事务处理,包括事务的开启、执行更新操作及最终的提交或回滚。
1379

被折叠的 条评论
为什么被折叠?



