Pl sql курсоры. Использование курсора в цикле FOR

Управление курсором

Создание курсора

Под курсором в Oracle понимается получаемый при выполнении запроса результирующий набор и связанный с ним указатель текущей записи.

В PL/SQL поддерживаются два типа курсоров : явные и неявные.

Явный курсор объявляется разработчиком, а неявный курсор не требует объявления.

Курсор может возвращать одну строку, несколько строк или ни одной строки.

Для запросов, возвращающих более одной строки, можно использовать только явный курсор .

Курсор может быть объявлен в секциях объявлений любого блока PL/SQL, подпрограммы или пакета.

Для управления явным курсором используются операторы CURSOR , OPEN , FETCH и CLOSE .

Оператор CURSOR выполняет объявление явного курсора .

Оператор OPEN открывает курсор , создавая новый результирующий набор на базе указанного запроса.

Оператор FETCH выполняет последовательное извлечение строк из результирующего набора от начала до конца.

Оператор CLOSE закрывает курсор и освобождает занимаемые им ресурсы.

Для объявления явного курсора используется оператор CURSOR

CURSOR cursor_name [(parameter[,parameter]...)] IS select_statement;

Каждый параметр parameter определяется как:

cursor_parameter_name datatype [{:= | DEFAULT} expr]

Параметр return_type определяет запись или строку базы данных, используемую для возвращаемых значений. Тип возвращаемого значения должен соответствовать столбцам, перечисленным в операторе SELECT . Список параметров определяет параметры курсора , передаваемые на сервер каждый раз при выполнении оператора OPEN .

Одновременно с созданием результирующего набора можно выполнить блокировку выбираемых строк. Для этого в операторе SELECT следует указать фразу FOR UPDATE .

Для задания параметров курсора подходит как позиционная, так и именованная нотация.

Для работы с курсором можно использовать следующие атрибуты, указываемые после имени курсора :

• %ISOPEN - возвращает значение TRUE , если курсор открыт.
• %FOUND - определяет, найдена ли строка, удовлетворяющая условию.
• %NOTFOUND - возвращает TRUE , если строка не найдена.
• %ROWCOUNT - возвращает номер текущей строки.

Оператор FETCH может быть выполнен в цикле LOOP-END LOOP . Это позволяет последовательно просматривать весь результирующий набор, который был открыт оператором OPEN .

Например:

DECLARE CURSOR c1 IS SELECT f1, f2, f3, f4 FROM tbl1 WHERE f4 > 100; CURSOR c2 RETURN tbl2%ROWTYPE IS SELECT * FROM tbl2 WHERE f1_t2 = 10; - Список параметров - курсора CURSOR c3 (p1 INTEGER DEFAULT 10, p2 INTEGER DEFAULT 1300) IS SELECT f1, f2, f3, f4 FROM tbl1 WHERE f4 > p1 AND f2 = p2; - ... BEGIN OPEN c1; - Открытие курсора c1 LOOP - Выборка одной строки FETCH c1 INTO rec1; - Строка успешно выбрана EXIT WHEN c1%NOTFOUND; END LOOP; - Закрытие курсора CLOSE c1; - Открытие курсора c3 OPEN c3(10,700); - ... END;

Для повторного создания результирующего набора для других значений параметров курсор следует закрыть, а затем повторно открыть.

При выполнении SQL-оператора, для которого не был объявлен явный курсор , Oracle автоматически открывает неявный курсор .

При применении неявного курсора нельзя использовать операторы управления курсором OPEN , FETCH и CLOSE .

Если при неявном курсоре в результирующий набор записывается более одной строки, то Oracle инициирует исключение TOO_MANY_ROWS .

Если курсор создается в пакете, то его объявление и спецификация могут быть разделены: объявление курсора указывается в секции объявлений пакета, а спецификация курсора - в теле пакета.

Объявление курсора при создании пакета может иметь следующее формальное описание:

CURSOR cursor_name [(parameter [, parameter]...)] RETURN return_type;

Например:

Создание пакета CREATE PACKAGE p1 AS - Объявление курсора CURSOR c1 RETURN tbl1%ROWTYPE; END p1; - Создание тела пакета CREATE PACKAGE BODY p1 AS - Спецификация курсора CURSOR c1 RETURN tbl1%ROWTYPE IS SELECT * FROM tbl1 WHERE f3 > 700; END p1;

Использование курсора в цикле FOR

Вместо управления курсором операторами OPEN , FETCH и CLOSE язык PL/SQL предоставляет возможность последовательной обработки курсора в цикле FOR .

1. Цикл FOR с курсором выполняет следующие действия:
2. Неявно объявляет переменную цикла как запись %ROWTYPE .
3. Открывает курсор .
4. При каждой итерации извлекает следующую строку из результирующего набора в поля неявно объявленной записи.
5. По достижении конца результирующего набора закрывает курсор .

Например:

Тип REF CURSOR

При объявлении переменной курсора создается указатель типа REF CURSOR . Переменная типа REF CURSOR может передаваться через механизм RPC (вызовы удаленных процедур) между клиентским приложением и сервером Oracle. При использовании переменных курсора для передачи результирующих наборов между хранимыми подпрограммами PL/SQL и различными клиентскими приложениями каждое из приложений разделяет указатель на рабочую область, в которой расположен результирующий набор. Это позволяет одновременно ссылаться на одну и ту же рабочую область как клиентским приложениям, разработанным в Oracle Forms, в Visual Studio или в Delphi, так и OCI-клиентам или серверу Oracle.

Создание переменной курсора выполняется в два этапа: сначала определяется тип REF CURSOR , а затем объявляется переменная этого типа.

Определить тип REF CURSOR можно в любых блоках PL/SQL, подпрограммах или пакетах.

Определение типа REF CURSOR может иметь следующее формальное описание:

TYPE ref_type_name IS REF CURSOR [ RETURN return_type ];

Параметр ref_type_name задает имя создаваемого типа, а параметр return_type должен определять запись или строку таблицы базы данных.

Если опция RETURN не указана, то переменную курсора можно использовать более гибко, ссылаясь на различные запросы, которые имеют разные типы записей. Однако применение опции RETURN обеспечивает более высокий уровень надежности, позволяя компилятору PL/SQL выполнять проверку совместимости типа переменной курсора с типом результатов запроса. Переменная курсора не может быть сохранена в базе данных.

Переменные курсора в PL/SQL аналогичны указателям языка C++.

При выполнении SQL-запроса Oracle создает неименованную рабочую область, в которой содержится сформированный результирующий набор. Для доступа к этому результирующему набору может использоваться:

• явный курсор , который именует рабочую область;
• переменная курсора , которая указывает на эту рабочую область.

Однако явный курсор всегда указывает только на одну и ту же рабочую область, а переменная курсора может ссылаться на различные рабочие области.

Рабочая область будет оставаться доступной до тех пор, пока на нее ссылается хотя бы одна переменная курсора .

Переменная курсора может быть использована в качестве формального параметра процедуры или функции.

Для управления переменной курсора используются операторы OPEN-FOR , FETCH и CLOSE .

Оператор OPEN-FOR связывает переменную курсора с запросом, выполняет запрос и получает результирующий набор.

Оператор OPEN-FOR может иметь следующее формальное описание:

OPEN {cursor_variable_name | :host_cursor_variable_name} FOR select_statement;

Параметр указывает переменную курсора host_cursor_variable_name , которая была объявлена как переменная основного языка, если блок PL/SQL выполняется в режиме встроенного SQL. Для ссылки на хост-переменную перед ней необходимо указывать символ двоеточия.

Переменная курсора , в отличие от самого курсора , не может иметь параметров.

Запрос, указываемый для переменной курсора , может использовать:

• хост-переменные;
• переменные PL/SQL;
• параметры;
• функции.

Запрос, на который ссылается переменная курсора , не может содержать фразу FOR UPDATE .

Для переменной курсора можно использовать атрибуты %FOUND , %NOTFOUND , %ISOPEN и %ROWCOUNT .

Например:

DECLARE TYPE VarCur IS REF CURSOR RETURN tbl1%ROWTYPE; - Объявление переменной курсора t1 VarCur; BEGIN IF NOT t1%ISOPEN THEN - Открываем - переменную курсора OPEN t1 FOR SELECT * FROM tbl1; OPEN t1 FOR SELECT * FROM tbl1 - Повторно открываем - переменную курсора WHERE f2>100; END IF;

При попытке повторно открыть ранее открытую переменную курсора для другого результирующего набора предыдущий запрос будет потерян, а переменная будет ассоциирована с новым запросом.

Если попытаться повторно открыть уже открытый курсор , то Oracle инициирует исключение CURSOR_ALREADY_OPEN .

Если переменная курсора объявляется как формальный параметр подпрограммы, открывающей переменную курсора , то такой параметр должен быть указан с опцией IN OUT .

Следующий пример демонстрирует применение в качестве переменной хост-переменной основного языка программирования.

/* Объявление хост-переменных */ EXEC SQL BEGIN DECLARE /* Объявление переменной курсоров */ SQL_CURSOR cur1; EXEC SQL END DECLARE SECTION; /* Инициализация хост-переменной */ EXEC SQL ALLOCATE: cur1; EXEC SQL EXECUTE /* Передача хост-переменной курсора в блок PL/SQL */ BEGIN OPEN:cur1 FOR SELECT * FROM emp; - : OPEN:cur1 FOR SELECT * FROM temp_emp; END; END-EXEC;

Применение переменных курсора имеет ряд следующих ограничений:

• переменные курсора не могут быть объявлены в пакете (и сохранены в базе данных);
• нельзя использовать механизм RPC для передачи переменных курсора между различными серверами;
• удаленная подпрограмма не может получать значения от переменных курсора с другого сервера;
• запрос, указываемый для переменной курсора оператором OPEN-FOR , не должен содержать фразы FOR UPDATE ;
• для переменных курсора не применимы операторы равенства, сравнения или эквивалентности значению NULL ;
• переменной курсора не может быть присвоено значение NULL ;
• типы REF CURSOR не могут использоваться для определения типа столбцов в SQL-операторах CREATE TABLE и CREATE VIEW , а также для определения типов элементов коллекций;
• переменные курсора не могут быть использованы в динамическом SQL;
• переменную курсора нельзя использовать вместо курсора в цикле FOR-IN-LOOP .

Выборка строк из результирующего набора выполняется оператором FETCH , который может иметь следующее формальное описание:

FETCH {cursor_variable_name | :host_cursor_variable_name} INTO {variable_name [, variable_name]... | record_name};

Например:

DECLARE TYPE VarCur IS REF CURSOR RETURN tbl1%ROWTYPE; - Объявление переменной курсора t1 VarCur; tbl1_rec tbl1%ROWTYPE; BEGIN IF NOT t1%ISOPEN THEN - Открываем - переменную курсора OPEN t1 FOR SELECT * FROM tbl1; LOOP - Извлечение строки FETCH t1 INTO tbl1_rec; - Проверка атрибута EXIT WHEN е1%NOTFOUND; END LOOP; END IF; CLOSE е1;

Использование курсоров в динамическом SQL, команды FETCH и CLOSE
Для работы с динамическим запросом который возвращает несколько строк используются курсоры. Работа с курсорами - это всего три команды: OPEN-FOR , FETCH и CLOSE .

Сначала, вы с помощью команды OPEN , открываете переменную курсора, далее в цикле FOR последовательно считываете результат запроса из нескольких строк запроса. В каждой итерации цикла FOR, вызывается команда FETCH которая считывает из результирующего набора по одной записи. Когда все строки обрабатываются, вы закрываете курсор вызывая метод CLOSE для переменной курсора.

Открытие переменной курсора
Команды OPEN-FOR связыавют переменную курсора с запросом в курсоре, выполняют данный запрос, определяют набор результатов, и устанавливает курсор на первую строку в наборе результатов, количество строк которые обработаны сохраняется в %ROWCOUNT .
В отличие от статических форм курсора OPEN-FOR , динамическая форма имеет специальную секцию USING. Она нужна, чтобы во время выполнения, связать переменные в USING и внешние переменные PL SQL программы

Синтаксис
OPEN {cursor_variable | :host_cursor_variable} FOR dynamic_string ...];

где cursor_variable является типизированной переменной курсора (один без обратного типа), host_cursor_variable находится курсор переменной, объявленной в PL / SQL и dynamic_string это строковое выражение, представляющее запрос SQL .

В следующем примере, вы объявляете переменную курсора, а затем связываете эту переменную с динамическим опратором SELECT , который возвращает строки из таблицы emp:

DECLARE TYPE EmpCurTyp IS REF CURSOR ; -- define weak REF CURSOR type emp_cv EmpCurTyp; -- declare cursor variable my_ename VARCHAR2(15 ); my_sal NUMBER:= 1000 ; BEGIN OPEN emp_cv FOR -- open cursor variable "SELECT ename, sal FROM emp WHERE sal > :s" USING my_sal; ... END ;

Любая привязка аргументов в запросе выполняется только тогда, когда переменная курсора открыта. Таким образом, для выборки из курсора с использованием различных значений привязки, необходимо повторно открыть курсор с привязкой новых переменных, чтобы передать их новые значения.

Извлечение данных из курсора

FETCH оператор возвращает одну строку из результирующего набора, присваивает значения списка выбора элементов соответствующих переменных или полей в инструкции INTO , увеличивает счетчик %ROWCOUNT , и перемещает указатель к следующей строке. Синтаксис:

FETCH {cursor_variable | :host_cursor_variable} INTO {define_variable[, define_variable]... | record }; LOOP FETCH emp_cv INTO my_ename, my_sal; -- fetch next row EXIT WHEN emp_cv%NOTFOUND; -- exit loop when last row is fetched -- process row END LOOP ;

Для каждого значения столбца, возвращаемого запросом, связанным с переменной курсора, должна быть задана соответствующая, совместимая по типу переменная или поле в инструкции INTO .

При попытке выборки из данных из закрытого курсора, PL / SQL возбуждает предопределенное исключение INVALID_CURSOR .
Закрытие переменной курсора
Курсора CLOSE закрывает переменную курсора. После этого соответствующий набор результатов не определено.

Синтаксис имеет следующий вид:

CLOSE {cursor_variable | :host_cursor_variable};

В приведенном примере, после обработки последней строки курсора, вы закрываете переменную курсора emp_cv:
LOOP FETCH emp_cv INTO my_ename, my_sal; EXIT WHEN emp_cv%NOTFOUND; -- process row END LOOP ; CLOSE emp_cv; -- закрываем переменную курсора

Если вы попытаетесь закрыть уже закрытый или не открытый курсор, PL / SQL вызывает исключение INVALID_CURSOR .
Примеры динамического SQL - записи, объекты и коллекции
Как показывает следующий пример, вы можете извлечь строки из динамического запроса в переменную типа запись ROWTYPE .
DECLARE TYPE EmpCurTyp IS REF CURSOR ; emp_cv EmpCurTyp; emp_rec emp%ROWTYPE; sql_stmt VARCHAR2(200 ); my_job VARCHAR2(15 ) := "CLERK" ; BEGIN sql_stmt:= "SELECT * FROM emp WHERE job = :j" ; OPEN emp_cv FOR sql_stmt USING my_job; LOOP FETCH emp_cv INTO emp_rec; EXIT WHEN emp_cv%NOTFOUND; -- process record END LOOP ; CLOSE emp_cv; END ;

Следующий пример иллюстрирует использование объектов и коллекций. Предположим, вы определили тип объекта Person и VARRAY типа Hobbies , а именно:
CREATE TYPE Person AS OBJECT (name VARCHAR2(25 ), age NUMBER); CREATE TYPE Hobbies IS VARRAY (10 ) OF VARCHAR2(25 );
Теперь, используя динамический SQL , вы можете создать пакет, который использует эти типы:

CREATE PACKAGE teams AS PROCEDURE create_table (tab_name VARCHAR2); PROCEDURE insert_row (tab_name VARCHAR2, p Person, h Hobbies); PROCEDURE print_table (tab_name VARCHAR2); END ; CREATE PACKAGE BODY teams AS PROCEDURE create_table (tab_name VARCHAR2) IS BEGIN EXECUTE IMMEDIATE "CREATE TABLE " || tab_name || " (pers Person, hobbs Hobbies)" ; END ; PROCEDURE insert_row (tab_name VARCHAR2, p Person, h Hobbies) IS BEGIN EXECUTE IMMEDIATE "INSERT INTO " || tab_name || " VALUES (:1, :2)" USING p, h; END ; PROCEDURE print_table (tab_name VARCHAR2) IS TYPE RefCurTyp IS REF CURSOR ; cv RefCurTyp; p Person; h Hobbies; BEGIN OPEN cv FOR "SELECT pers, hobbs FROM " || tab_name; LOOP FETCH cv INTO p, h; EXIT WHEN cv%NOTFOUND; -- print attributes of "p" and elements of "h" END LOOP ; CLOSE cv; END ; END ;
В анонимном PL / SQL блоке, вы могли бы вызвать процедуры из пакета teams ,:

DECLARE team_name VARCHAR2(15 ); ... BEGIN ... team_name:= "Notables" ; teams.create_table(team_name); teams.insert_row(team_name, Person("John" , 31 ), Hobbies("skiing" , "coin collecting" , "tennis" )); teams.insert_row(team_name, Person("Mary" , 28 ), Hobbies("golf" , "quilting" , "rock climbing" )); teams.print_table(team_name); END ;