Stored procedure con Visual Basic

voutesfolar
07 de Marzo del 2005
Hola,
estoy intentando acceder a los valores que me devuelve un stored procedure desde visual basic y la aplicacion me esta dando un error.
El procedure es como sigue:
CREATE OR REPLACE PROCEDURE ESTADOSPOSIBLES(
exp_IN CHAR,
OMWB_ret_cv IN OUT globalPkg.RCT1)
.....
INSERT INTO OMWB_estadosposibles Values (....)
.....
OPEN OMWB_ret_cv FOR
SELECT col01
FROM OMWB_estadosposibles
ORDER BY col00;
END estadosposibles;

Es decir, va haciendo una serie de consultas y los resultados los mete en una tabla de la que luego consulta los valores a devolver por el procedimiento.
En Visual Basic el codigo que estoy empleando es el siguiente:
params = "Data Source=xxx;User Id=xxx;Password=xxx"
Set NovaBD_OR = New ADODB.Connection
NovaBD_OR.Open "Provider=OraOLEDB.Oracle;" & params
NovaBD_OR.Execute "alter session set nls_numeric_characters=',.'"
NovaBD_OR.Execute "alter session set nls_date_format ='dd-mm-yyyy'"

Cmd.Parameters.Append Cmd.CreateParameter("prm1", adChar, adParamInput, 255, "C-AR-0006/03")
Cmd.Parameters.Append Cmd.CreateParameter("prm2", adVarChar, adParamOutput, 255, Null)
Cmd.CommandText = "estadosposibles"
Cmd.CommandType = adCmdStoredProc
Set Cmd.ActiveConnection = NovaBD_OR
Cmd.Execute

Eso me da el error "Se requiere un objeto". ¿Qué estoy haciendo mal? ¿ Como podria recorrer el recordset devuelto?
Gracias de antemano

DER FUHRER
07 de Marzo del 2005
NovaBD_OR es tu objeto conexion no??? intenta esto..
Dim rs as new recordset
set rs= NovaBD_OR.execute( "estadosPosibles '" + prm1 + "','" + prm2 + "'")

asi si podras recorrer el recordset.




DER FUHRER HAT IMMER RECHT