VB.NET还是比较常用的，于是我研究了一下VB.NET使用OracleTransaction对象，在这里拿出来和大家分享一下，希望对大家有用。

VB.NET使用OracleTransaction对象需要注意的几点：

1)你需要在你整个事务执行中只能有***OracleConnection，也就是说如果你事务处理过程中如果需要与数据库的操作都只能在这***的Command中执行,类似于:

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

若你新建一个连接执行其他数据库操作的话，整个事务过程就会抛出异常

2)如果你需要在你SQL语句中加入参数，则你必须在你执行完提交或相关数据库操作之后将其Command的参数清空,下边举一个实际的项目里的事务函数：

''' 
 
''' 保存热点文本文件信息到数据库  
''' 
 
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详细描述