<%
'asp事務(wù)處理。
'測試數(shù)據(jù)庫為sql server，服務(wù)器為本機(jī)，數(shù)據(jù)庫名為test，表名為a，兩個字段id(int)主鍵標(biāo)識,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
'以上代碼建立數(shù)據(jù)庫連接
conn.BeginTrans '事務(wù)開始
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錯誤，則執(zhí)行事務(wù)提交
else
conn.RollbackTrans '否則回滾
end if
%>
以上代碼經(jīng)調(diào)試，可以正常的進(jìn)行事務(wù)處理。但是有時候，我們并不想將編譯錯誤顯示給用戶。
則我們需要在conn.BeginTrans后面加上On error resume next
但是因為用到了On error resume next。conn.Errors.Count只能獲得最后一個數(shù)據(jù)庫操作的conn返回的結(jié)果 。上面的三個sql語句，因為最后一個sql語句是正確的，則此事務(wù)處理就無效了。那我們需要對出錯處理作出相對應(yīng)的修改。
if conn.Errors.Count=0 then應(yīng)該改為if err.number=0 then
這樣，我們可以在數(shù)據(jù)庫回滾后同時做出其他相對應(yīng)的操作或者提示。修改后的代碼如下：
<%
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
'以上代碼建立數(shù)據(jù)庫連接
conn.BeginTrans '事務(wù)開始
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錯誤，則執(zhí)行事務(wù)提交
else
conn.RollbackTrans '否則回滾
'回滾后的其他操作
strerr=err.Description
Response.Write "數(shù)據(jù)庫錯誤！錯誤日志：<font color=red>"&strerr &"</font>"
Response.End
end if
%>
您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對自己在本站的言論和行為負(fù)責(zé);
三、本站對您所發(fā)布內(nèi)容擁有處置權(quán)。
蘇公網(wǎng)安備 32070502010230號