Procedimiento almacenado devuelve valor, como recuperar el valor?

[Jamsito]

Que tal a todos, tengo el siguiente StoreProcedure llamado
inve_obtiene_total_compra , el cual se le pasan 2 parametros que es el tipo de compra y el codigo de la compra, y se utiliza para calcular el total de la compra, (estilo Facturacion con Encabezado/Detalle), y devuelve lo que es el total de la compra realizada, pero mi duda es como lo llamo desde VB NET 2010 con ODBC y que el valor del total lo despliegue en un textbox

Código:

create proc inve_obtiene_total_compra
  @codigo_tipo_compra  int = 0 ,
 @codigo_de_compra    int = 0 ,
 @total_calculado     float = 0 output
 
  as
 select @total_calculado = sum(A.CANTIDAD_A_INGRESAR * A.COST_UNIT_COMPRAS)
 from COMPRAS_DET A
 where (@codigo_tipo_compra = A.CODIGO_TIPO_COMPRA AND
        @codigo_de_compra   = A.CODIGO_DE_COMPRA)
 return

usualmente llamo los procedimientos almacenados que no devuelven valores asi:

Código:

Dim comandoODBC As OdbcCommand = New OdbcCommand("{call zzz_CrearAlumno (?,?)}", conexionODBC)

comandoODBC.Parameters.AddWithValue("@ID", txtID.Text)
comandoODBC.Parameters.AddWithValue("@NOMBRE", txtNombre.Text)
	
conexionODBC.Open()
comandoODBC.ExecuteNonQuery()
conexionODBC.Close()

Saludos y gracias por la futura ayuda

[Aquaventus]

Hola Jamsito.
Pues solamente es 1 linea que tienes que modificar, la funcion se llama ExecuteScalar, pero ojo esto devuelve una cadena(String), asi que si es un numero lo que traes, tienes que hacerle su conversion previa :

Código vb:

Dim numero As Integer
numero = Convert.ToInt32(comandoODBC.ExecuteScalar())
 

Saludos!.

[Jamsito]

Iniciado por Aquaventus

Hola Jamsito.
Pues solamente es 1 linea que tienes que modificar, la funcion se llama ExecuteScalar, pero ojo esto devuelve una cadena(String), asi que si es un numero lo que traes, tienes que hacerle su conversion previa :

Código vb:

Dim numero As Integer
numero = Convert.ToInt32(comandoODBC.ExecuteScalar())
 

Saludos!.

Ok Gracias voy a probar

[Dradi7]

Iniciado por Aquaventus

Hola Jamsito.
Pues solamente es 1 linea que tienes que modificar, la funcion se llama ExecuteScalar, pero ojo esto devuelve una cadena(String), asi que si es un numero lo que traes, tienes que hacerle su conversion previa :

Código vb:

Dim numero As Integer
numero = Convert.ToInt32(comandoODBC.ExecuteScalar())
 

Saludos!.

Solo para aclarar algunas cosas para que el error no se pasa de una a otra persona, primero el ExecuteScalar no devuelve un String sino un tipo Object.

Segundo si en caso tu ExecuteScalar no devuelve nada generara error al tratar de convertir un null a integer, siempre cuando uno recibe un tipo de variable Object debe validar que este no sea null o nothing ya que si trabajamos con casting estariamos generando errores fatales

[Aquaventus]

Iniciado por Dradi7

Solo para aclarar algunas cosas para que el error no se pasa de una a otra persona, primero el ExecuteScalar no devuelve un String sino un tipo Object.

Segundo si en caso tu ExecuteScalar no devuelve nada generara error al tratar de convertir un null a integer, siempre cuando uno recibe un tipo de variable Object debe validar que este no sea null o nothing ya que si trabajamos con casting estariamos generando errores fatales

A tener en cuenta Gracias Dradi, lo de las validaciones en caso no genere no lo tome en cuenta a mencionarlo. Saludos!.

[Jamsito]

Ok gracias Dradi7 voy a validar antes de convertirlo

Saludos