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