Lista, a ver si me pueden ayudar con lo siguiente:

Tengo el siguiente procedimiento 

CREATE PROCEDURE DEVSTOCKTMP1CODIGO 

@CODIGO CHAR(6) ,

@TOTAL MONEY OUTPUT

 AS

SELECT @TOTAL=TOTAL FROM STOCKTMP WHERE [EMAIL PROTECTED]

GO

 

Luego en vb, trato de usarlo con lo siguiente

With comando

  .ActiveConnection = conexion

  .CommandType = adCmdStoredProc

  .CommandText = "devstocktmp1codigo" 

  Set para = .CreateParameter("@codigo", adChar, adParamInput, 6, Codigo)

  .Parameters.Append para

  Set para = .CreateParameter("@total", adCurrency, adParamOutput)

  .Parameters.Append para

  .Execute

  If Not IsNull(comando.Parameters("@total").value) Then

   DevStocktmp1codigo = comando.Parameters("@total").value

  Else

   DevStocktmp1codigo = 0

  End If

 

Resulta que siempre me devuelve el total null, como si no encontrara el
codigo.

Muchas gracias.

 

Responder a