Hola cristian, me faltó aclarar que uso BD oracle y bueno la estructura que me das me sirve mucho; e encontrado algo de codigo relacionado con lo que comente arriba pero no entiendo muy bien, me puedes ayudar a entenderlo porfavor ? quiza un poco de documentacion de tu parte.
Código vb:
Ver originalDim cmdCommand As OracleCommand = New OracleCommand
' agregar parámetros
With cmdCommand.Parameters
.Add(New OracleParameter("VI_CH_COD_EMPR", OracleDbType.Char, pstrCOD_SOCIEDAD.Length, pstrCOD_SOCIEDAD, ParameterDirection.Input))
.Add(New OracleParameter("VI_CH_COD_USUARIO", OracleDbType.Char, pstrCOD_USUARIO.Length, pstrCOD_USUARIO, ParameterDirection.Input))
.Add(New OracleParameter("VO_NU_COD_ERR", OracleDbType.Int32, 0, pstrCOD_EST_EVE, ParameterDirection.Output))
.Add(New OracleParameter("VO_VA_MSJ_ERR", OracleDbType.Varchar2, 2000, pstrCOD_USUARIO, System.Data.ParameterDirection.Output))
' configurar command
.CommandText = Me.ObtenerCommandText(lsNombreStore)
.CommandType = CommandType.StoredProcedure
.Connection = objCNX -- varoable Oracleconnection
Try
' ejecuta comando
.ExecuteNonQuery()
If Not CType(.Parameters.Item("VO_NU_COD_ERR").Value, Integer).Equals(0) Then
If Not Microsoft.VisualBasic.IsDBNull(.Parameters.Item("VO_VA_MSJ_ERR").Value) Then
' disparar exception con texto desde la bd
pstrMSG_ERR = CType(.Parameters.Item("VO_VA_MSJ_ERR").Value, Oracle.DataAccess.Types.OracleString).Value
Else
pstrMSG_ERR = "Ocurrio un error al ejecutar el procedimiento. ErrNumber:=" + .Parameters.Item("VO_NU_COD_ERR").Value.ToString
End If
Else
'// caso ejecucion exitosa
lbRet = True
End If
Catch ex As Exception
' capturar mensaje de error
pstrMSG_ERR = ex.Message
Finally
'//
End Try
End With