ADO如何提供异动功能?(BIG5)

BeginTrans/CommitTrans/Rollback方法

當您必須更新多個資料表中的資料欄位時,並確保在所有的資料表中所作的改變都被完成(確認Commit)、或者不變(撤銷復原Rollback)時,您可以使用異動(transaction)來維護資料的完整性。

例如,當您將錢從甲帳戶匯到另一個乙帳戶時,需要從甲帳戶上減去一個數並加到另一個乙帳戶上。如果其中有一個更新失敗,帳戶就不會平衡。

使用異動(transaction)功能時,對資料所做的任何改變都可撤銷復原(Rollback),或者可以確認(Commit)儲存所有對資料庫的改變。

加上異動(transaction)功能的方法,為在更新第一筆資料欄位前,先使用BeginTrans 方法,然後,只要有任何更新失敗,就可以使用RollbackTrans方法撤銷所有的更新。當您成功地更新最後一筆資料欄位之後,就可使用CommitTrans方法確認(Commit)儲存到資料庫。

ADO有三種支援異動處理的方法:BeginTrans、CommitTrans、與Rollback。但是,資料庫本身也必須支援異動處理的功能,譬如SQL Server提供異動(transaction)處理的功能,但是Access則未提供。

BeginTrans:開始一個異動處理,一旦開始一個異動處理,就必須在關閉資料庫或應用程式之前使用CommitTrans或Rollback。當應用程式結束時,沒有交付確認(Commit)的異動要自動復原。
CommitTrans:將改變儲存到資料庫中。用BeginTrans方法開啟異動處理以後,CommitTrans方法將RecordSet所有的改變儲存到資料庫。執行CommitTrans時,所有改變成為永久性的改變。
Rollback:撤銷復原,倒退或者撤銷目前異動處理中所有已改變的資料。它同時終止異動處理。
異動(transaction)例子

讓我們看一個於ASP程式碼當中使用BeginTrans/ CommitTrans/RollbackTrans提供異動(transaction)功能的例子。

本例子,使用RecordSet 的Requery方法,重新執行SELECT指令載入資料到RecordSet。

執行本例子的資料庫必須支援異動處理的功能,譬如SQL Server提供異動(transaction)處理的功能,但是Access則未提供。

若要執行本例子,請先安裝「企業網站熱門應用精選」,以便自動於SQL Server建立comPak資料庫。

譬如ASP程式碼rs4.asp如下,使用BeginTrans方法開始一個異動處理,將 [檔案下載] 資料表每一筆記錄的 [檔案下載次數] 欄位加上100,再使用CommitTrans方法將RecordSet所有的改變儲存到資料庫。或者使用Rollback方法,撤銷目前異動處理中所有已改變的資料:

 1   
 2  
 3Set conn1 = Server.CreateObject("ADODB.Connection")   
 4  
 5conn1.Open "driver={SQL Server};server=(Local);uid=sa;pwd=;database=comPak"   
 6  
 7Set rs2 = Server.CreateObject("ADODB.Recordset")   
 8  
 9sql = "SELECT * FROM 檔案下載"   
10  
11rs2.Open sql,conn1,1,2,1   
12  
13conn1.BeginTrans   
14  
15Do while not rs2.EOF   
16  
17if IsNull(rs2("檔案下載次數")) then rs2("檔案下載次數") = 100   
18  
19rs2("檔案下載次數") = rs2("檔案下載次數") + 100   
20  
21rs2.MoveNext   
22  
23Loop   
24  
25conn1.CommitTrans   
26  
27'conn1.RollbackTrans   
28  
29rs2.Requery   
30  
31'rs2.Close   
32  
33'Set rs2 = Server.CreateObject("ADODB.Recordset")   
34  
35'sql = "SELECT * FROM 檔案下載"   
36  
37'rs2.Open sql,conn1,1,2,1   
38  
1<table border="0" cellpadding="5" colspan="8">
2<tr>
3<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">名稱</font></td>
4<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">檔案下載檔案</font></td>
5<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">檔案下載次數</font></td>
6</tr>   
7  

Do while not rs2.EOF

 1  
 2<tr>
 3<td align="CENTER" bgcolor="f7efde">```
 4= rs2("名稱")
 5```</td>
 6<td align="CENTER" bgcolor="f7efde">```
 7= rs2("檔案下載檔案")
 8```</td>
 9<td align="CENTER" bgcolor="f7efde">```
10= rs2("檔案下載次數")
11```</td>
12</tr>   
13  

rs2.MoveNext

Loop

 1  
 2以上的 ASP程式碼rs4.asp,於用戶端使用瀏覽器,瀏覽執行的結果,使用rs2.Requery方法重新執行SELECT指令載入資料到RecordSet,顯示異動處理後的記錄。   
 3  
 4每執行一次,會將 [檔案下載] 資料表每一筆記錄的 [檔案下載次數] 欄位加上100。   
 5  
 6UpdateBatch/CancelBatch (SQL Server)   
 7  
 8您可以使用UpdateBatch方法,將多筆變更的記錄,批次寫回到資料庫。   
 9  
10使用UpdateBatch方法時,不必每一筆變更記錄都下一個Update方法,多筆記錄一起變更,最後再使用UpdateBatch方法,寫回到資料庫。或是使用CancelBatch方法,放棄所有的變更。   
11  
12執行本例子的資料庫必須支援UpdateBatch批次變更處理的功能,譬如SQL Server提供UpdateBatch的功能,但是Access則未提供。   
13  
14若要執行本例子,請先安裝「企業網站熱門應用精選」,以便自動於SQL Server建立comPak資料庫。   
15  
16譬如ASP程式碼rs3.asp如下,將 [檔案下載] 資料表每一筆記錄的 [檔案下載次數] 欄位加上10,再使用UpdateBatch方法將RecordSet所有的改變儲存到資料庫。或者使用CancelBatch方法,放棄所有的變更:   
17  

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "driver={SQL Server};server=(Local);uid=sa;pwd=;database=comPak"

Set rs3 = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM 檔案下載"

rs3.Open sql,conn1,1,4

Do while not rs3.EOF

if IsNull(rs3("檔案下載次數")) then rs3("檔案下載次數") = 10

rs3("檔案下載次數") = rs3("檔案下載次數") + 10

rs3.MoveNext

Loop

rs3.UpdateBatch

'rs3.CancelBatch

rs3.Requery

1  
2<table border="0" cellpadding="5" colspan="8">
3<tr>
4<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">名稱</font></td>
5<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">檔案下載檔案</font></td>
6<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">檔案下載次數</font></td>
7</tr>   
8  

Do while not rs3.EOF

 1  
 2<tr>
 3<td align="CENTER" bgcolor="f7efde">```
 4= rs3("名稱")
 5```</td>
 6<td align="CENTER" bgcolor="f7efde">```
 7= rs3("檔案下載檔案")
 8```</td>
 9<td align="CENTER" bgcolor="f7efde">```
10= rs3("檔案下載次數")
11```</td>
12</tr>   
13  

rs3.MoveNext

Loop

1  
2</table>   
3  

rs3.Close

conn1.Close

1  
2以上的 ASP程式碼rs3.asp,於用戶端使用瀏覽器,瀏覽執行的結果,顯示代號重覆的記錄。   
3  
4其中rs3.Open sql,conn1,1,4的4表示為批次樂觀鎖定(Batch Optimistic lock),使用UpdateBatch方法將多筆變更的記錄批次寫回到資料庫時,才鎖定此批資料記錄。   
5  
6每執行一次,會將 [檔案下載] 資料表每一筆記錄的 [檔案下載次數] 欄位加上10。</table>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus