作者：未知 来源：月光软件站 加入时间：2005-5-13　月光软件站

Public Overloads Sub Update(ByVal authorityArr As IList)
            log.Debug("Update a record in table TBL_M_AUTHORITY")

            Dim connection As OracleConnection = New OracleConnection(OraHelper.CONN_STRING_LOCAL)
            Dim command As OracleCommand = New OracleCommand(PLSQL_UPDATE, connection)
            command.CommandType = CommandType.StoredProcedure
            Dim txn As OracleTransaction

            Dim updateParms() As OracleParameter = {New OracleParameter(PARM_AUTH_CD, OracleDbType.Varchar2) _
                                                  , New OracleParameter(PARM_AUTH_NAME, OracleDbType.Varchar2) _
                                                  , New OracleParameter(PARM_SHORI_STAFF_CD, OracleDbType.Decimal) _
                                                  , New OracleParameter(PARM_VOID_FLG, OracleDbType.Varchar2) _
                                                  , New OracleParameter(PARM_DISP_ORDER, OracleDbType.Decimal)}
            Dim authInfo As AuthorityInfo

            Try
                connection.Open()

                txn = connection.BeginTransaction(IsolationLevel.ReadCommitted)

                For Each authInfo In authorityArr
                    updateParms(0).Value = authInfo.auth_cd
                    updateParms(1).Value = authInfo.auth_name
                    updateParms(2).Value = authInfo.shori_staff_cd
                    updateParms(3).Value = authInfo.void_flg
                    If authInfo.disp_order_str Is Nothing Or authInfo.disp_order_str.Trim = "" Then
                        updateParms(4).Value = DBNull.Value
                    Else
                        updateParms(4).Value = Decimal.Parse(authInfo.disp_order_str)
                    End If

                    Dim params As OracleParameter
                    command.Parameters.Clear()

                    For Each params In updateParms
                        command.Parameters.Add(params)
                    Next
                    command.ExecuteNonQuery()
                Next
                txn.Commit()
            Catch ex As Exception
                txn.Rollback()
                log.Debug(ex.Message)
                log.Debug(ex.StackTrace)
                Throw ex
            Finally
                If Not connection Is Nothing Then
                    connection.Close()
                    connection.Dispose()
                End If
                If Not command Is Nothing Then
                    command.Dispose()
                End If
            End Try
        End Sub

相关软件：