URGENTE o me corren !!!
Publicado por Marcelo Salinas (1 intervención) el 10/06/2004 22:03:09
TENGO EL SIGUIENTE PROCEDIMIENTO
***********************************************************
PROCEDURE GETPERSONA
(
MINIMO IN NUMBER,
MAXIMO IN NUMBER,
p_cursor IN OUT types.cursorType,
p_cursor2 IN OUT types.cursorType
)
AS
BEGIN
OPEN p_cursor2 FOR SELECT persona.NOMBRE
FROM persona
WHERE EDAD<MINIMO;
OPEN p_cursor FOR SELECT *
FROM persona
WHERE EDAD>=MINIMO AND EDAD<=MAXIMO;
END;
***********************************************************
Como se vé, tiene 2 cursores, y por medio de este código, obtengo las columnas de salida:
Set CPw1 = New ADODB.Command
With CPw1
Set .ActiveConnection = Cn
.CommandText = "{call getpersona(0,0,0,0)}"
.CommandType = adCmdText
End With
Set Rs = New ADODB.Recordset
With Rs
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
Set Rs.Source = CPw1
Rs.Open <-- Al ejecutar esto, obtengo en rs.fields, los campos de salida.
***********************************************************
Lamentablemente obtengo los campos de salida de un CURSOR, como lo debo hacer para obtener el CURSOR restante ????
Gracias.
***********************************************************
PROCEDURE GETPERSONA
(
MINIMO IN NUMBER,
MAXIMO IN NUMBER,
p_cursor IN OUT types.cursorType,
p_cursor2 IN OUT types.cursorType
)
AS
BEGIN
OPEN p_cursor2 FOR SELECT persona.NOMBRE
FROM persona
WHERE EDAD<MINIMO;
OPEN p_cursor FOR SELECT *
FROM persona
WHERE EDAD>=MINIMO AND EDAD<=MAXIMO;
END;
***********************************************************
Como se vé, tiene 2 cursores, y por medio de este código, obtengo las columnas de salida:
Set CPw1 = New ADODB.Command
With CPw1
Set .ActiveConnection = Cn
.CommandText = "{call getpersona(0,0,0,0)}"
.CommandType = adCmdText
End With
Set Rs = New ADODB.Recordset
With Rs
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
Set Rs.Source = CPw1
Rs.Open <-- Al ejecutar esto, obtengo en rs.fields, los campos de salida.
***********************************************************
Lamentablemente obtengo los campos de salida de un CURSOR, como lo debo hacer para obtener el CURSOR restante ????
Gracias.
Valora esta pregunta


0