llamar stored procedure

[dorer]

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:

Dim 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