VB.NET使用OracleTransaction处理事务

       æ•°æ®åº“事务简介

       æ•°æ®åº“事务是由一组 SQL 语句组成的一个逻辑工作单元。您可以把事务看作是一组不可分的 SQL 语句，这些语句作为一个整体永久记录在数据库中或一并撤销。比如在银行帐户之间转移资金：一条 UPDATE语句将从一个帐户的资金总数中减去一部分，另一条 UPDATE语句将把资金加到另一个帐户中。减操作和加操作必须永久记录在数据库中，或者必须一并撤销 — 否则将损失资金。这个简单的示例仅使用了两条 UPDATE 语句，但一个更实际的事务可能包含许多 INSERT、UPDATE和 DELETE 语句。

       è¦æ°¸ä¹…记录一个事务中的 SQL 语句的结果，您可以通过 COMMIT 语句来执行提交。要撤销 SQL 语句的结果，您可以使用 ROLLBACK 语句来执行回滚，这会把所有的行重设为它们原来的状态。只要您事先没有与数据库断开，则您在执行回滚之前所做的任何修改都将被撤销。您还可以设置一个保存点，以便将事务回滚至该特定的点，同时保持事务中的其他语句原封不动。

       ä½¿ç”¨æ•°æ®åº“事务(主要针对)

       æ‚¨å¯ä»¥ä½¿ç”¨ OracleTransaction 类的一个对象来表示一个事务。OracleTransaction 类包含多个属性，其中的两个为 Connection（指定与事务关联的数据库连接）和 IsolationLevel（指定事务隔离级别）

       Connection，指定与该事务关联的OracleConnection对象；

       IsolationLevel，指定该事务的IsolationLevel；枚举类型，用于对事物的锁定，取值有Chaos、ReadCommited、ReadUncommited、RepeatableRead、Serializable、Unspecified。

       åº”用程序通过针对OracleConnection对象调用 BeginTransaction 来创建OracleTransaction对象。对OracleTransaction对象执行与该事务关联的所有后续操作（例如提交或中止该事务）。

       Commit:提交SQL数据库事务；

       Rollback :从挂起状态回滚事务；

       æ‚¨è¿˜å¯ä»¥ä½¿ç”¨ Save() 在事务中设置一个保存点。

       ä¸‹é¢çš„示例创建一个 OracleConnection 和一个 OracleTransaction。它还演示了如何使用 BeginTransaction、Commit 和 Rollback 方法。（这是MSDN里的范例）

       éœ€è¦æ³¨æ„çš„是，这些操作需要引入命名空间: Oracle.DataAcess.Client

       Oracle.DataAccess.Client 命名空间是

       çš„一部分，它包含许多类，其中有 OracleConnection、OracleCommand 和 OracleTransaction。示例程序就用到了这些类。

       äº‹åŠ¡æ“ä½œ

       1Public Sub RunOracleTransaction()Sub RunOracleTransaction(myConnString As String)

       2 Dim myConnection As New OracleConnection(myConnString)

       3 myConnection.Open()

       4

       5 Dim myCommand As OracleCommand = myConnection.CreateCommand()

       6 Dim myTrans As OracleTransaction

       7

       8 ' Start a local transaction

       9 myTrans = myConnection.BeginTransaction(IsolationLevel.ReadCommitted)

        ' Assign transaction object for a pending local transaction

        myCommand.Transaction = myTrans

        Try

        myCommand.CommandText = "INSERT INTO Dept (DeptNo,信鸽推送源码 Dname, Loc) values (, 'TECHNOLOGY', 'DENVER')"

        myCommand.ExecuteNonQuery()

        myCommand.CommandText = "INSERT INTO Dept (DeptNo, Dname, Loc) values (, 'ENGINEERING', 'KANSAS CITY')"

        myCommand.ExecuteNonQuery()

        myTrans.Commit()

        Console.WriteLine("Both records are written to database.")

        Catch e As Exception

        myTrans.Rollback()

        Console.WriteLine(e.ToString())

        Console.WriteLine("Neither record was written to database.")

        Finally

        myConnection.Close()

        End Try

       End Sub

       åœ¨ .NET 程序中设置事务保存点

       æ­£å¦‚本文前面所提到的那样，您可以设置一个保存点，以便将事务回滚至该特定的点，同时保持事务中的其他语句原封不动。您可以使用 OracleTransaction 类的 Save() 方法在事务中设置保存点。

       å¦‚果您有一个非常长的事务并且希望能够仅回滚到某个特定的时间点，那么您可能要使用保存点。例如，您可能想对 个产品做一些更改，然后设置一个保存点，然后再对另 个产品做更改；如果您在进行第二批更改时出现了错误，那么您可以回滚至保存点，使您的第一批更改原封不动。

       ä½¿ç”¨OracleTransaction对象需要注意的几点：

       1)你需要在你整个事务执行中只能有唯一OracleConnection ，OracleCommand，

       OracleTransaction，也就是说如果你事务处理过程中如果需要与数据库的操作都只能在这唯一的Command中执行,类似于:

       imgCommand.CommandText = sSQL

       imgCommand.ExecuteNonQuery()或其他操作

       è‹¥ä½ æ–°å»ºä¸€ä¸ªè¿žæŽ¥æ‰§è¡Œå…¶ä»–数据库操作的话，整个事务过程就会抛出异常

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

       äº‹åŠ¡å‡½æ•°

       1 ''' summary

       2 ''' 保存热点文本文件信息到数据库

       3 ''' /summary

       4 Private Function SaveTextFile()Function SaveTextFile() As Boolean

       5 Dim sSQl As String

       6 sSQl = "select type_id from sys_file_type where file_extname='TXT'"

       7 Try

       8 imgCommand.CommandText = sSQl

       9 Dim typeID As Int = Convert.ToInt(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