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

发表于 @ 2005年03月15日　10:59:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:在数据库中开始一个事务。 | 新一篇:按回车，光标到下一个控件，遇到按钮打住