[SOLUCIONADO] Procedimiento con cursor pl/ sql

[cocode]

Hola a todos tengo un problema con este procedimiento,

Código SQL:

CREATE OR REPLACE PROCEDURE consultar_asistentes(tema1 VARCHAR2)
AS CURSOR consulta IS SELECT Asistente.nombre FROM Asistente,Asistir,Conferencia WHERE Asistente.codigo=Asistir.codAsistente AND Conferencia.referencia=Asistir.refConferencia AND Conferencia.tema=tema1;
asistentes_nombres VARCHAR2(20);
BEGIN
OPEN consulta;
while consulta%found loop
FETCH consulta INTO asistentes_nombres;
CLOSE consulta;
DBMS_OUTPUT.PUT_LINE(Asistentes_nombres);
END LOOP;
END;
 

Me tira error cursor inválido, pero si le quito while ....loop me da el primer nombre de los asistentes qué estoy haciendo mal?

[jc3000]

pon el CLOSE CONSULTA depsues del END LOOP

[cocode]

No funciona, me sigue diciendo cursor inválido

[gnzsoloyo]

Código SQL:

CREATE OR REPLACE PROCEDURE consultar_asistentes (tema1 VARCHAR2)
AS
    CURSOR consulta
    IS
        SELECT Asistente.nombre
          FROM Asistente, Asistir, Conferencia
         WHERE Asistente.codigo = Asistir.codAsistente
           AND Conferencia.referencia = Asistir.refConferencia
           AND Conferencia.tema = tema1;
 
    asistentes_nombres   VARCHAR2 (20);
    encontrado           NUMBER;
BEGIN
    OPEN consulta;
 
    encontrado    := 0;
 
    LOOP
        EXIT WHEN consulta%NOTFOUND;
 
        FETCH consulta
         INTO asistentes_nombres;
 
        encontrado    := 1;
    END LOOP;
 
    CLOSE consulta;
 
    IF encontrado <> 0
    THEN
        DBMS_OUTPUT.PUT_LINE (Asistentes_nombres);
    END IF;
EXCEPTION
    WHEN OTHERS
    THEN
        DBMS_OUTPUT.put_line (SUBSTR ('Error ' || TO_CHAR (SQLCODE) || ': ' || SQLERRM,
                                      1,
                                      255
                                     ));
END;
 

[cocode]

sigue sin funcionar solo me da una fila y deberían de salir 13 nombres, cómo puede ser tan difícil?

[gnzsoloyo]

TE devuelve un solo registro, porque eso es lo que planteaste en la lógica de tu codigo, y por tanto es lo que hicimos.
Si quiweres algo diferente, eso es lo que tienes que hacer.
Lo que te di debería alcanzar para que sepas lo que tienes que escribir en ese código. Trata de razonarlo y hazlo.

[cocode]

gracias lo intentaré, voy con ello, al ver el tuyo me has dado una idea, voy a ponerla en práctica y te comento, gracias de nuevo

[gnzsoloyo]

[huesos52]

Cocode... para aclarar un poco.. el hecho que el codigo que te brinda gnzsoloyo solo imprima un solo nombre, no precisamente indica que no los esté recorriendo todos.

La pregunta es: Que quieres hacer con los 13 nombres?
Si solo los quieres visualizar, unicamente tendrías que pasar el DBMS_OUTPUT.PUT_LINE dentro del LOOP para que veas como se imprimen los 13 nombres que esperas.

Saludos

[cocode]

Nada que no me sale, he intentado hacer un if con distinto de cero pero se queda infinitamente procesando y no muestra nada en pantalla, y lo me meter DBMS_OUTPUT.PUT_LINE dentro del LOOP, lo meto pero se me invalida el cursor.

[gnzsoloyo]

Vamos a volver a probar:

Código SQL:

CREATE OR REPLACE PROCEDURE consultar_asistentes (tema1 VARCHAR2)
AS
    CURSOR consulta
    IS
        SELECT Asistente.nombre
          FROM Asistente, Asistir, Conferencia
         WHERE Asistente.codigo = Asistir.codAsistente
           AND Conferencia.referencia = Asistir.refConferencia
           AND Conferencia.tema = tema1;
 
    asistentes_nombres   VARCHAR2 (20);
    encontrado           NUMBER;
BEGIN
    OPEN consulta;
    encontrado    := 0;
    LOOP
        EXIT WHEN consulta%NOTFOUND;
        FETCH consulta INTO asistentes_nombres;
        DBMS_OUTPUT.PUT_LINE (Asistentes_nombres);
        encontrado    := encontrado + 1;
    END LOOP;
    CLOSE consulta;
    IF encontrado <> 0 THEN
        DBMS_OUTPUT.PUT_LINE ('Ttoal de assitentes: '||TO_CHAR(encontrado));
    END IF;
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.put_line (SUBSTR ('Error ' || TO_CHAR (SQLCODE) || ': ' || SQLERRM, 1, 255));
END;
 

[cocode]

MUchas gracias, solucionado, lo tenía igual que tú pero yo metía el último IF en el LOOP