VB.NET還是比較常用的，于是我研究了一下VB.NET使用OracleTransaction對象，在這里拿出來和大家分享一下，希望對大家有用。

VB.NET使用OracleTransaction對象需要注意的幾點：

1)你需要在你整個事務執行中只能有***OracleConnection，也就是說如果你事務處理過程中如果需要與數據庫的操作都只能在這***的Command中執行,類似于:

imgCommand.CommandText = sSQL 
imgCommand.ExecuteNonQuery()或其他操作 

若你新建一個連接執行其他數據庫操作的話，整個事務過程就會拋出異常

2)如果你需要在你SQL語句中加入參數，則你必須在你執行完提交或相關數據庫操作之后將其Command的參數清空,下邊舉一個實際的項目里的事務函數：

''' <summary> 
''' 保存熱點文本文件信息到數據庫  
''' </summary> 
Private Function SaveTextFile()Function SaveTextFile() As Boolean  
Dim sSQl As String  
sSQl = "select type_id from sys_file_type where file_extname='TXT'" 
Try  
imgCommand.CommandText = sSQl 
Dim typeID As Int32 = Convert.ToInt32(imgCommand.ExecuteScalar()) '文件類型  
'讀取文本信息  
Dim Textblob() As Byte = GetText()  
 
sSQl = "insert into t_watch_textcontent(image_id,text_content,type_id) 
values(:imageid,:textcontent,:typeid)" 
'增添SQL參數  
Dim Param As OracleClient.OracleParameter  
Param = New OracleClient.OracleParameter("imageid", sNewImageID)  
imgCommand.Parameters.Add(Param)  
Param = New OracleClient.OracleParameter("textcontent", Textblob)  
imgCommand.Parameters.Add(Param)  
Param = New OracleClient.OracleParameter("typeid", typeID)  
imgCommand.Parameters.Add(Param)  
 
'提交信息  
imgCommand.CommandText = sSQl 
If imgCommand.ExecuteNonQuery() > 0 Then  
bResult = True 
'關鍵是這里，需要你手動清除參數  
imgCommand.Parameters.Clear()  
End If  
Catch ex As Exception  
Me.ExceptionMessage = ex 
bResult = False 
End Try  
 
Return bResult  
End Function 

以上介紹VB.NET使用OracleTransaction對象。

【編輯推薦】

1. 淺談VB.NET線程構造器
2. 簡單分析VB.NET使用線程
3. VB.NET List(T)編寫框架方法
4. 簡單介紹VB.NET線程同步
5. VB.NET聲明API詳細描述