Llamada a function de un package de Oracle desde VB6
JMAV
24 de Junio del 2005
Hola a tod@s.
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
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
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