Разработка клиент-серверных приложений с использованием технологий Oracle. Семенова И.И. - 49 стр.

UptoLike

ВУЗ: 

СибАДИ | Омск

Составители: 

Рубрика: 

48
OPEN authors_desc;
FETCH authors_desc INTO name2;
DBMS_OUTPUT.PUT_LINE(name2);
WHILE authors_desc%found LOOP
FETCH authors_desc INTO name2;
DBMS_OUTPUT.PUT_LINE(name2);
END LOOP;
CLOSE authors_desc;
END;
Пример работы с переменной типа Таблица
с заданным списком значений
SET SERVEROUTPUT ON
DECLARE
TYPE Author_list IS TABLE OF
ADMIN_BOOKS.Authors.code_author%TYPE;
Authors Author_list;
Name_author_ ADMIN_BOOKS.Authors.Name_author%TYPE;
Birthday_ ADMIN_BOOKS.Authors.Birthday%TYPE;
BEGIN
-- в перечне Author_list указываются реальные значения поля в таблице
Authors:= Author_list(1,2);
FOR i IN Authors.FIRST.. Authors.LAST LOOP
SELECT Name_author, Birthday INTO Name_author_, Birthday_ FROM
ADMIN_BOOKS.Authors WHERE ADMIN_BOOKS.Authors.Code_Author =
Authors(i);
DBMS_OUTPUT.PUT_LINE ( TO_CHAR(Authors(i)) || ': ' || Name_author_ ||
', ' || Birthday_ );
END LOOP;
END;
Пример работы с переменной типа Таблица
с перебором записей в заголовке цикла
SET SERVEROUTPUT ON
DECLARE
TYPE EmpTabTyp IS TABLE OF ADMIN_BOOKS.Authors%ROWTYPE;
emp_tab EmpTabTyp;
BEGIN
for emp_tab in (SELECT * FROM ADMIN_BOOKS.Authors) loop
DBMS_OUTPUT.PUT_LINE(emp_tab.code_author ||' '||
emp_tab.name_author ||' '||emp_tab.birthday);
end loop;
END;

Страницы