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

⇒ ORACLE SQL \ JAVA ⇐

CISCO

Voice(Asterisk\Cisco)

Microsoft

Powershell

Python

SQL\T-SQL

FreeBSD and Nix

1С

Общая

WEB Разработка

Мото

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

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

Основы Oracle 18c - 19c часть 7 - триггеры, хранимые процедуры и функции

Основы Oracle 18c - 19c часть 7 - триггеры, хранимые процедуры и функции

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

Триггеры

Настоятельно рекомендую после ознакомиться с оф. документацией:
https://docs.oracle.com/database/121/LNPLS/triggers.htm

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

Если триггер включен, БД автоматически вызывает его
Триггер срабатывает каждый раз, когда происходит событие, связанное с ним
Если триггер отключен, то он не сработает

Возможные типы триггеров:
BEFORE INSERT - срабатывание до события INSERT
AFTER  INSERT - срабатывание после события INSERT
BEFORE UPDATE - срабатывание до события UPDATE
AFTER  UPDATE - срабатывание после события UPDATE
BEFORE DELETE - срабатывание до события DELETE
AFTER  DELETE - срабатывание после события DELETE

Включение \ выключение триггера, возможные варианты:
disable \ disable all
enable  \ enable all

--Создание триггера: --С именем TriggerName --В таблице test_regexp --С типом срабатывания AFTER на INSERT или UPDATE колонки val --В нем будет объявляться переменная T_val --В T_val будет заноситься значение T_val + значение срабатывания --После мы изменим новое значение срабатывания CREATE OR REPLACE TRIGGER TriggerName BEFORE INSERT OR UPDATE OF val ON test_regexp FOR EACH ROW DECLARE T_val test_regexp.val%TYPE DEFAULT 'Proc_'; BEGIN T_val := T_val||:NEW.val; IF INSERTING THEN :NEW.val := T_val||:NEW.val; END IF; IF UPDATING THEN :NEW.val := T_val||:NEW.val; END IF; CASE :NEW.val WHEN 'Proc_NVT2NVT2' THEN :NEW.val := 'Case_When_Proc_NVT2NVT2'; ELSE :NEW.val := 'Case_Else_Proc_'||:NEW.val; END CASE; END; --Проверим INSERTING INSERT INTO test_regexp (val) VALUES ('NVT'); SELECT * FROM test_regexp WHERE val LIKE '%NVT%' OR val LIKE '%Case%'; --Case_Else_Proc_Proc_NVTNVT --Проверим UPDATING UPDATE test_regexp SET val='NVT2' WHERE val='Case_Else_Proc_Proc_NVTNVT'; SELECT * FROM test_regexp WHERE val LIKE '%NVT%'; --Case_When_Proc_NVT2NVT2 --Примеры включения и выключения триггеров: ALTER TRIGGER TriggerName DISABLE; ALTER TABLE test_regexp ENABLE ALL TRIGGERS; --Удаление триггера: DROP TRIGGER TriggerName;

Хранимые процедуры

Настоятельно рекомендую после ознакомиться с оф. документацией:
https://docs.oracle.com/cd/B19306_01/server.102/b14200/statements_6009.htm#SQLRF01309

Хранимые процедуры - вызываемые программные модули

--Создание хранимой процедуры с именем ProcedureName --С объявлением переменных PARAM1 и PARAM2 CREATE OR REPLACE PROCEDURE ProcedureName ( --Есть значение по умолчанию PARAM1 IN VARCHAR2 DEFAULT 'test1', --Нет значения по умолчанию PARAM2 IN VARCHAR2, --Необязательный выходной параметр PARAM3 OUT VARCHAR2 ) AS BEGIN PARAM3 := PARAM1 || ' ' || PARAM2; END ProcedureName; --Вызов хранимой процедуры set serveroutput on; declare x varchar2 (50); begin ProcedureName('test1_new', 'test2', x); DBMS_OUTPUT.PUT_LINE(x); end; /

Хранимые функции

Настоятельно рекомендую после ознакомиться с оф. документацией:
https://docs.oracle.com/cd/B28359_01/appdev.111/b28370/create_function.htm#LNPLS01370

Хранимые функции - вызываемые программные модули, которые возвращают одно значение

--Создание хранимой процедуры с именем FuncName CREATE OR REPLACE FUNCTION FuncName ( PARAM1 IN VARCHAR2 DEFAULT 'test1', PARAM2 IN VARCHAR2 --Тип возвращаемого значения ) RETURN VARCHAR2 AS BEGIN return PARAM1 || ' ' || PARAM2; END FuncName; --Вызов хранимой функции SELECT FuncName('test1', 'test2') FROM dual;

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