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

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

47
WHERE Code_author > 20;
Пример объявления курсора с выбором автора и одновременным по-
мещением результата в переменную:
DECLARE
my_authors ADMIN_BOOKS.Authors%ROWTYPE;
CURSOR c2 RETURN ADMIN_BOOKS.Authors%ROWTYPE IS
SELECT * FROM ADMIN_BOOKS.Authors WHERE Code_author = 20;
Пример объявления курсора с использованием полей со значениями
по умолчанию:
DECLARE
CURSOR c3 (low NUMBER(3) DEFAULT 0, high NUMBER(3) DEFAULT
105) IS SELECT * FROM ADMIN_BOOKS.Authors WHERE Code_author>
low AND Code_author< high;
Пример работы курсора с циклом LOOP:
SET SERVEROUTPUT ON
DECLARE
CURSOR c1 IS SELECT Publish, Code_publish FROM
ADMIN_BOOKS.Publishing_house WHERE Code_publish<11;
name1 ADMIN_BOOKS.Publishing_house.Publish %TYPE;
code1 ADMIN_BOOKS.Publishing_house.Code_publish%TYPE;
BEGIN
OPEN c1;
LOOP
FETCH c1 INTO name1, code1;
EXIT WHEN c1%NOTFOUND OR c1%NOTFOUND IS NULL;
DBMS_OUTPUT.PUT_LINE(c1%ROWCOUNT || '. ' || name1);
IF c1%ROWCOUNT = 5 THEN
DBMS_OUTPUT.PUT_LINE('--- 5-я запись ---');
END IF;
END LOOP;
CLOSE c1;
END;
Пример работы курсора с циклом WHILE:
SET SERVEROUTPUT ON
DECLARE
name2 ADMIN_BOOKS.Authors.Name_author %TYPE;
CURSOR authors_desc IS SELECT Name_author FROM
ADMIN_BOOKS.Authors ORDER BY Name_author DESC;
BEGIN

Страницы