使用存储过程的一个小例子

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

共3页  1 2 3