ccris
26 de Enero del 2004

Hola, necesito saber como puedo recuperar el valor devuelto por una funcion de Oracle desde visual basic.

Muchas gracias

Adrian
26 de Enero del 2004

Suponiendo que tengas una funcion llamada MI_FUNCION, y que sus parámetros sean PARAM1 (entrada) y RESULTADO (el valor de retorno), ambos de tipo VARCHAR2:

Dim cm As Command
Set cm = New Command
cm.CommandType = adCmdStoredProc
cm.CommandText = "MI_FUNCION"
cm.Parameters.Append cm.CreateParameter("PARAM1", adBSTR, adParamInput)
cm.Parameters.Append cm.CreateParameter("RESULTADO", adBSTR, adParamReturnValue)
cm.Parameters("PARAM1").Value = "ABC"
cm.Execute
MsgBox cm.Parameters("RESULTADO").Value

Saludos