Вывод varray в консоль

@fR3W · Регистрация: 07.11.2014

Author24 — интернет-сервис помощи студентам

Итак, есть объект "прививки", который хранит в себе имя и дату:

Oracle 11 SQL

CREATE OR REPLACE 
TYPE a_graft AS object(
  g_name VARCHAR2(20),
  g_date DATE
);

Есть varray этих объектов:

Oracle 11 SQL

1 2	CREATE OR REPLACE TYPE a_graftlist IS varray(100) OF a_graft

Я создаю таблицу и заполняю ее данными.

Oracle 11 SQL

CREATE TABLE a_grafts(
  id NUMBER(4),
  last_name VARCHAR2(20),
  grafts a_graftlist
  );

Oracle 11 SQL

CREATE OR REPLACE 
PROCEDURE     A_LAB6_1 AS
BEGIN
  INSERT INTO a_grafts
  VALUES(0001, 'Name1', a_graftlist(
    a_graft('Грипп', '25/04/17'),
    a_graft('Гепатит В', '26/05/17'))
  );
  INSERT INTO a_grafts
  VALUES(0002, 'Name2', a_graftlist(
    a_graft('Грипп', '28/05/17'),
    a_graft('Гепатит В', '29/05/17'),
    a_graft('Ветряная оспа', '30/05/17'))
  );
  INSERT INTO a_grafts
  VALUES(0003, 'Name3', a_graftlist(
    a_graft('Грипп', '25/04/17'))
  );
END A_LAB6_1;

Нужно вывести в консоль ид, фамилию и все данные с varray. Как это реализовать?

Oracle 11 SQL

CREATE OR REPLACE 
PROCEDURE     A_LAB6_2 AS
  TYPE a_graftlist IS varray (100) OF DATE;
  a_graft a_graftlist := a_graftlist();
BEGIN
  FOR g IN (SELECT * FROM a_grafts) LOOP
    dbms_output.put_line(g.id || ' / ' || g.last_name/* || ' / ' || g.a_graftlist(10)*/);
  END LOOP;
  
END A_LAB6_2;

@Anvano · 22.05.2017, 00:53

Ну если не принимать во внимание, что вы используете РЕЛЯЦИОННУЮ БД и при этом пытаетесь запихнуть все данные в одну таблицу, накладывая при этом на свое решение совершенно ненужные ограничения (например у вас не может быть больше 100 прививок у одного пациента), то надо просто добавить вложенный цикл по вашему массиву прививок:

SQL

CREATE OR REPLACE 
PROCEDURE     A_LAB6_2 AS
  TYPE a_graftlist IS varray (100) OF DATE;
  a_graft a_graftlist := a_graftlist();
BEGIN
  FOR g IN (SELECT * FROM a_grafts) LOOP
    dbms_output.put_line(g.id || ' / ' || g.last_name/* || ' / ' || g.a_graftlist(10)*/);
 
    FOR m IN g.grafts.first..g.grafts.last LOOP
      dbms_output.put_line('   '||g.grafts(m).g_name||','||g.grafts(m).g_date); 
    END LOOP;
 
  END LOOP;
  
END A_LAB6_2;

	22.05.2017, 00:53

Вывод varray в консоль

Решение