Llamada a function de un package de Oracle desde VB6

JMAV
24 de Junio del 2005
Hola a [email protected]
Necesito llamar a una function de un package que recibe un texto y devuelve un número, utilizo adodb.connection y adodb.command, pero no sé ejecutar esa llamada y capturar el resultado.
Gracias

Adrian
24 de Junio del 2005
Pues sería más o menos así (lo estoy escribiendo de memoria, así que puede que la sintaxis no esté bien al 100%)

Supón que llamas a una función que se llama FU_Prueba, está en un package llamado MI_PACKAGE, pertenece al usuario Scott y tiene dos parámetros, uno de entrada (ID) y uno de salida(RESULTADO)

dim cm as command
set cm = new command
set cm.activeconnection = mi_conexion
cm.commandtext = "scott.mi_package.fu_prueba"
cm.Parameters.Append cm.CreateParameter("id", adNumeric, adParamInput)
cm.Parameters.Append cm.CreateParameter("resultado", adNumeric, adParamOutput)

cm.parameters("id").value = 1
cm.execute
msgbox "El comando devolvió " & cm.parameters("resultado").value

Saludos