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 p>
rc myrcType;
COMENZAR
ABRIR rc PARA strbarcode;
VOLVER rc;
FINALIZAR obtener; p>
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