Mostrar relacion muchos a muchos

[rocka8613]

Hola amigos, mi duda es la siguiente, tengo una relación muchos a muchos con las siguientes tablas: AUTOR, OBJETO y AUTOR_OBJETO.

estoy intentando hacer una consulta donde me muestre unos campos k necesito, uno de estos campos es el nombre del autor de la tabla autor, en caso de k un objeto tuviese un autor bien , pero cuando tiene dos o mas autores, me muestra varias filas solo con la diferencia de k en cada fila tiene un autor diferente.

si yo kisiera k solo me mostrara un fila (pork solo consulto un objeto), pero k en el campo autor me mostrara los autores k estna relacionados, sean uno o mas, como seria?

mi consulta aes la siguiente

Código:

SELECT o.idobjeto, o.nombre, i.nombre, a.nombre, ao.fecha, f.nombre || ', ' || f.extencion "Formato"
FROM objeto o
JOIN autor_objeto ao ON (o.idobjeto=ao.objetoid)
JOIN autor a ON (a.idautor=ao.autorid)
JOIN formato f ON (o.formato_id=f.idformato)
JOIN idioma i ON (o.idioma_id=i.ididioma) where o.idobjeto=5001;

gracias de antemanos

[leonardo_josue]

Buenos días rocka8613:

Hasta ahora no encontrado otra forma de hacer esto más que con cursores. Supongamos que tenemos una consulta

Código SQL:

SELECT Nombre FROM Autor WHERE idautor = 1
 

y esta consulta te regresa lo siguiente:

Código:

Nombre
-----------------
Octavio Paz
Mario Vargas Llosa
Gabriel García Márquez

Puedes hacer esto:

Código SQL:

SELECT ConcatenarRegistros('Select Nombre from Autor where idautor = 1') AS Autor FROM dual;
 

Y la función te regresa lo siguiente:

Código:

Autor
-----------------
Octavio Paz, Mario Vargas Llosa, Gabriel García Márquez

Es decir, los tres registros unidos en un solo renglón separados por comas.

La función para hacer esto es la siguiente:

Código SQL:

FUNCTION ConcatenarRegistros(consulta IN VARCHAR2) RETURN VARCHAR2 IS
  v_regreso  VARCHAR2(4000);
  v_elemento VARCHAR2(4000);
  v_cursor  sys_refcursor;
BEGIN
  OPEN v_cursor FOR consulta;
  LOOP
    FETCH v_cursor INTO v_elemento;
    EXIT WHEN v_cursor%NOTFOUND;
    IF v_regreso IS NULL THEN
      v_regreso := v_elemento;
    ELSE
      v_regreso := v_regreso || ', ' || v_elemento;
    END IF;
  END LOOP;
  RETURN v_regreso;
END;
 

La función es muy sencilla y no tiene validaciones, así es que puede ser que tengas que hacer alguna adecuación adicional, pero espero que te pueda servir de algo.

Saludos.
Leo.