return multiple cursor to VB and rowcount

From: artxe <ji_mminm_at_hotmail.com>
Date: 23 Apr 2002 07:52:11 -0700
Message-ID: <9309cb1f.0204230652.3c0417b6@posting.google.com>

I have 3 sentences SELECT in 3 cursors ina Stored procedure, but the third sentence only is necessary if the second have row...

StoredProcedure:
CREATE OR REPLACE PROCEDURE
Getprueba(

  SpParam1 IN VARCHAR2,
  SpParam2 IN VARCHAR2,
  SpParam3 IN VARCHAR2,
  p_uptoCur OUT Pkg_Cursor.refcursor,
  p_middleCur OUT  Pkg_Cursor.refcursor,

p_middleCur2 OUT Pkg_Cursor.refcursor, p_aboveCur OUT Pkg_Cursor.refcursor)
IS

BEGIN
OPEN p_uptocur FOR SELECT TIPOUSUARIO, DESCRIPCION FROM TIPOUSUARIO;

OPEN p_middleCur FOR SELECT USUARIO, PASSWORD FROM ADMINISTRADOR;

OPEN p_middleCur2 FOR

'SELECT MUNICIPIO, PROVINCIA FROM LIBRES WHERE MUNICIPIO = :1 AND PROVINCIA = :2' USING spParam1, spParam2;

OPEN p_abovecur FOR

'SELECT NIF, NOMBRE FROM USUARIO WHERE CODUSUARIO = :2' USING spParam3;

END Getprueba;
/

I have to execute p_abovecursor only if p_middlecur2 has rows, but I need to know it without FETCH!!, because I need return the cursor to Object Visual Basic with all rows in selects...

Can I do it?

Thanks

ji_mminm_at_hotmail.com Received on Tue Apr 23 2002 - 09:52:11 CDT