Образовательный проект «SnakeProject» Михаила Козлова

⇒ ORACLE SQL \ JAVA ⇐

CISCO

Voice(Asterisk\Cisco)

Microsoft

Powershell

Python

SQL\T-SQL

FreeBSD and Nix

1С

Общая

WEB Разработка

Мото

Стрельба, пневматика, оружие

Саморазвитие и психология

Основы Oracle 18c - 19c часть 11 - Основы языка PL/SQL

Основы Oracle 18c - 19c часть 11 - Основы языка PL/SQL

Из предыдущих уроков имеем таблицу с данными:
CREATE TABLE test_regexp (val VARCHAR(30));

Язык PL/SQL - расширение языка SQL в Oracle

Понятием "блок кода" в PL/SQL является исполняемая программа

Блок кода состоит из следующих операторов:
DECLARE - необязательный, в нем мы объявляем переменные и курсоры
BEGIN - обязательный, указывает, что далее будет идти блок кода SQL и PL/SQL
EXCEPTION - необязательный, описывает методы обработки ошибок
END - обязательный, обозначает конец блока кода

Базовые примеры

--Для включения вывода необходимо прописать в начале SET serveroutput ON --Пример 1: Необязательный блок "declare" --В нем мы объявим переменные, конструкция := присваивает значение: DECLARE a number; b VARCHAR(12) NOT NULL := '1st String'; c constant number := 12; BEGIN a := 0; b := q'[2'nd String]'; --c := 15; Вызовет ошибку т.к. константа неизменяема --Процедура "PUT_LINE" из пакета "DBMS_OUTPUT" служит для вывода на экран: DBMS_OUTPUT.PUT_LINE('value of a: ' || a || ' value of b: ' || b); END; --Пример 2: Объявим переменную для вывода данных из запроса DECLARE V_VAL VARCHAR2(50); --Переменная столбца подстраивающаяся под тип X_VAL test_regexp.val%TYPE; BEGIN V_VAL := 'abcde'; SELECT val INTO X_VAL FROM test_regexp WHERE test_regexp.val = V_VAL; DBMS_OUTPUT.PUT_LINE('value of X_VAL: ' || X_VAL); END; --Пример 3: Вывод данных через REFCURSOR --Тип данных - ссылка на курсор, вернет ссылку на набор данных VAR csr REFCURSOR; DECLARE V_VAL1 VARCHAR2(30):='abcde'; V_VAL2 VARCHAR2(30):='12345'; BEGIN OPEN :csr FOR ' SELECT val FROM test_regexp WHERE test_regexp.val = '''||V_VAL1||''' OR test_regexp.val = '''||V_VAL2||''''; END; / PRINT :csr --Пример 4: Объявим переменную вне операторов VARIABLE X_VAL VARCHAR2(10) DECLARE V_VAL VARCHAR2(50); BEGIN V_VAL := 'abcde'; SELECT val --Пример обращения в анонимном блоке INTO :X_VAL FROM test_regexp WHERE test_regexp.val = V_VAL; END; / print X_VAL --Пример 5: Аналог блока begin - end exec :X_VAL := 'NewValue' print X_VAL --Пример 6: с пользовательской переменной DEFINE V_VAL = 'abcde' VARIABLE X_VAL VARCHAR2(10) BEGIN SELECT val INTO :X_VAL FROM test_regexp --Пример обращения к данной переменной WHERE test_regexp.val = '&V_VAL'; DBMS_OUTPUT.PUT_LINE('value of X_VAL: ' || :X_VAL); END; --Пример 7: конструкции IF - ELSE DECLARE a NUMBER := 5; BEGIN IF a > 5 THEN DBMS_OUTPUT.PUT_LINE('a > 5'); ELSIF a < 5 THEN DBMS_OUTPUT.PUT_LINE('a < 5'); ELSE DBMS_OUTPUT.PUT_LINE('a = 5'); END IF; END; --Пример 8: LOOP - цикл выполняемый бесконечно /*Синтаксис цикла "LOOP" LOOP NULL; END LOOP */ DECLARE a NUMBER := 0; BEGIN --1 вариант с выходом из цикла LOOP a := a + 1; IF(a >= 5) THEN a := 0; EXIT; END IF; END LOOP; DBMS_OUTPUT.PUT_LINE('LOOP 1 END, a = ' || a); --2 вариант с выходом из цикла LOOP a := a + 1; EXIT WHEN (a >= 5); END LOOP; DBMS_OUTPUT.PUT_LINE('LOOP 2 END, a = ' || a); END; --Пример 9: с WHILE LOOP DECLARE a NUMBER := 0; BEGIN WHILE (a >= 5) LOOP a := a + 1; END LOOP; DBMS_OUTPUT.PUT_LINE('WHILE LOOP END, a = ' || a); END; --Пример 10: с циклом FOR BEGIN FOR a IN 0..3 LOOP DBMS_OUTPUT.put_line('IN LOOP a = ' || a); END LOOP; FOR a IN REVERSE 0..3 LOOP DBMS_OUTPUT.put_line('IN REVERSE LOOP a = ' || a); END LOOP; END; --Пример 11: Этот вариант мы уже видели (Вариант с FOR) --Вывод в REFCURSOR, тип данных - ссылка на курсор, возвращает ссылку на набор данных VARIABLE csr REFCURSOR; BEGIN OPEN :csr FOR 'SELECT val FROM test_regexp'; END; / PRINT :csr --Пример 12: Вывод нескольких столбцов из курсора (Вариант с LOOP) DECLARE CURSOR csr_cur IS SELECT val, val||' 1' as val1 FROM test_regexp; csr_rec csr_cur%rowtype; BEGIN OPEN csr_cur; LOOP FETCH csr_cur INTO csr_rec; EXIT WHEN csr_cur%notfound; DBMS_OUTPUT.PUT_LINE(csr_rec.val || ' ' || csr_rec.val1); END LOOP; END; --Пример 13: Вывод нескольких столбцов из курсора (Вариант с FOR IN LOOP) DECLARE CURSOR csr_cur IS SELECT val, val||' 1' as val1 FROM test_regexp; BEGIN FOR csr_rec IN csr_cur LOOP DBMS_OUTPUT.PUT_LINE(csr_rec.val || ' ' || csr_rec.val1); END LOOP; END; --Пример 14: с условием количества записей, атрибут курсора %rowcount DECLARE CURSOR csr_cur IS SELECT val, val||' 1' as val1 FROM test_regexp; BEGIN FOR csr_rec IN csr_cur LOOP EXIT WHEN csr_cur%rowcount = 2; DBMS_OUTPUT.PUT_LINE(csr_rec.val || ' ' || csr_rec.val1); END LOOP; END; --Пример 15: Упрощенный пример 13, EXIT WHEN примера 14 работать не будет BEGIN FOR csr_rec IN (SELECT val, val||' 1' as val1 FROM test_regexp) LOOP DBMS_OUTPUT.PUT_LINE(csr_rec.val || ' ' || csr_rec.val1); END LOOP; END; --Пример 16: пример работы с массивами в Oracle declare --Опишем тип "varchar2(64)" массива "arr_type" и ключ "binary_integer" type arr_type is table of varchar2(64) index by binary_integer; --Создадим сам массив "arr_type" arr arr_type; --Переменную "a" для элементов массива "arr_type" a binary_integer; begin --Добавим элементы в массив arr(1) := 'Elem1'; arr(2) := 'Elem2'; arr(3) := 'Elem3'; --Удалить один элемент из массива с индексом 2 arr.delete(2); --Проверим есть ли элемент с индексом 2 dbms_output.put_line('Elem2 ' || case when arr.exists(2) then 'y' else 'n' end); --Количество элементов в массиве dbms_output.put_line('Number of elements = ' || arr.count); --Перебор массива с первого по последнее значение --Комментарии в скобках - "()" для варианта в обратную сторону --Индекс первого элемента "(либо last для обратного перебора)" a := arr.first; loop dbms_output.put_line('Element = ' || arr(a)); --Выход по достижении последнего элемента"(либо first для обратного перебора)" exit when a = arr.last; --Получаем следующее значение"(либо prior для обратного перебора)" a := arr.next(a); end loop; end;

Комментарии пользователей