关于SQL的事务回滚机制

        程序员在编写应用程序的过程中大都会用到SQL执行语句，最基本的是增、删、改、查。试想一下当终端正在使用应用程序执行插入数据的动作时，遇到操作系统突然卡死、突然当机使有些数据插入了一半，或者是插入了错误的数据时该怎么办？作为程序编写人员应该怎样捕捉到这类异常，或者是为了保证数据表中的数据不会因为突发事件变得不可控制。这就需要用到SQL相关的事务处理机制。下面我就谈谈自己在工作中用到的SQL事务的回滚机制。

        SQL事务的回滚机制对于程序编写人员来说是个很好的Debug工具，因为有了这种机制对数据表中的数据就多了一份可控性。SQL中的三种事务：BeginTrans(开始事务)、CommitTrans(提交事务)和RollbackTrans(回滚事务) ，在程序中三者组合使用缺一不可。当SQL语句执行到中途出现异常时，直接跳出程序（例如：Sub  Function）传出异常讯息，也就是说在CommitTrans(提交事务)前跳出程序不再执行下面的程序，可以很方便的找到异常。下面就用一个例子（使用的是VB程序设计语言）来说明：

       Private Sub Test()

                 

                  On Error GoTo ErrProc

                         Dim pstrTest  As String

                         Dim pconSQL_Connection As ADODB.Connection
                         Dim pbooConnectionState As Boolean
                         Dim pstrConnectString As String

                         Dim pstrSQL_Command As String                   

                         pstrTest  = " Test "

                         pstrTest = Trim(pstrTest)

                         pstrConnectString = Astr_Conn
    
                         '---Connect DB---
                         Set pconSQL_Connection = New ADODB.Connection
                         pconSQL_Connection.Open pstrConnectString
                         pbooConnectionState = True

                           '---Connect DB---                                       //连接数据库并打开数据表

                         On Error GoTo SQLDB_Error                  //如果发现异常就跳转至旗标SQLDB_Error :

                          pconSQL_Connection.BeginTrans       //开始事务，开始执行SQL语句

                                         pstrSQL_Command = " "

                                         pstrSQL_Command = " INSERT INTO TestTable(A,B,C……)  Values(A1,B1,C1……) "

                                         pconSQL_Connection.Execute  pstrSQL_Command 

                           pconSQL_Connection.commitTrans   //如果SQL语句执行当中没有异常，则提交数据插入数据表中

                          On Error GoTo ErrProc                            //这一行很关键，是一个权责问题，如果SQL语句没有问题继续执行剩下的程序则要继续由前面的处理机制来捕捉异常。 

                            ………………

                            ………………

                           ………………

                           Exit Sub                                                    //这一行也很关键，特别注意。这一行的作用是：如果整个Sub中的程序都没有出现异常时，应当在异常处理语句前跳出，                                                                                                 否则，继续执行下面的异常处理语句，本来程序没有异常也会报出异常。

       SQLDB_Error:

                            pconSQL_Connection.RollbackTrans    //这一行至关重要，因为当前面的SQL语句产生异常时，SQL调用回滚事务把插入到一半或者是错误的数据挡回数据表                                                                                                         外，确保了数据的准确性。

                            If pbooConnectionState = True Then
                                   pconSQL_Connection.Close
                                   Set pconSQL_Connection = Nothing
                            End If
   
                            MsgBox "Error Code : " & err.Number & vbCrLf & vbCrLf & "Message : " & err.Description, , pstrThisProcedureName

                            Exit Sub                                                      //这一行是重点，特别注意。这一行的作用是：如果整个Sub中的程序都没有出现异常时，应当在异常处理语句前跳                                                                                                             出， 否则，在没有处理好异常之前还会继续执行下面的异常处程序。

       ErrProc: 

                            If pbooConnectionState = True Then
                                   pconSQL_Connection.Close
                                   Set pconSQL_Connection = Nothing
                            End If
   
                            MsgBox "Error Code : " & err.Number & vbCrLf & vbCrLf & "Message : " & err.Description, , pstrThisProcedureName

       End Sub