Cómo llamar a la función de Oracle en vb

El código es el siguiente:

Código PL/SQL:

CREAR O REEMPLAZAR EL PAQUETE "SCOTT"."PKG_TEST" AS

TIPO

myrcType ES CURSOR DE REF;

FUNCIÓN get(strbarcode VARCHAR) RETURN

myrcType;

END pkg_test;

CREAR O REEMPLAZAR CUERPO DEL PAQUETE

"SCOTT"."PKG_TEST" AS

FUNCIÓN get(strbarcode IN VARCHAR) RETURN myrcType

IS

rc myrcType;

COMENZAR

ABRIR rc PARA strbarcode;

VOLVER rc;

FINALIZAR obtener;

END

pkg_test;

---------------------- ------ -------------------------------------------- ------ -----------------------

VB

Código:

Subcomando privado1_Click ()

En caso de error, Ir al cursorErr:

Atenuar cnn

Como nueva conexión ADODB

Atenuar primero Como nuevo ADODB.Recordset

Dim cmd Como

Nuevo ADODB.Command

cnn.ConnectionString =

"Provider=OraOLEDB.Oracle .1;Contraseña=tigre ;Persistir información de seguridad=True;Usuario

ID=scott;Fuente de datos=oraAny;Propiedades extendidas=PLSQLRSet=1"

cnn.Open

Con cmd

.ActiveConnection = cnn

.CommandType = adCmdText

.CommandText = "{CALL

scott. pkg_test.get(?) }"

.Parameters.Append

.CreateParameter("strBarCode", adVarChar, adParamInput, 100, "SELECT * FROM

TAB")

Terminar con

rst.CursorType = adOpenStatic

rst.LockType = adLockReadOnly

Establecer rst.Source = cmd

primero.Abrir

MsgBox rs

t.RecordCount

Establecer primero = Nada

Establecer cmd =

Nada

Salir de Sub

cursorErr:

Establecer cmd = Nada

Establecer

rst1 = Nada

MsgBox Err.Description

End Sub