PL/SQL
Segundo Fidel Puerto Garavito
Disparadores (Triggers)
• Los triggers son bloques PL/SQL que se
ejecutan de manera implícita cuando se
ejecutan operaciones INSERT, DELETE,
UPDATE a una tabla*
• Se usan principalmente para establecer reglas
complejas de integridad y labores de auditoría.
¿Por ejemplo?
* También existen triggers que se disparan ante otros
eventos
(LOGON, LOGOFF, STARTUP, BEFORE DDL, entre otros.)
• Un trigger tiene asociado:
– Un evento
– Un momento
– Un tipo
• El evento se refiere a la operación que se
efectúa sobre la tabla (INSERT,
DELETE o UPDATE).
• El momento, se refiere a cuándo se
dispara el trigger en relación con el
evento. Sus posibles valores son
BEFORE y AFTER*.
• El tipo indica el número de veces que el
cuerpo del trigger se ejecuta: por la
operación en conjunto (trigger de
operación)
operación o por cada fila procesada
(trigger de fila).
fila En este último caso se
debe adicionar la cláusula FOR EACH
ROW
* Y también INSTEAD OF para vistas.
• Haciendo las diferentes combinaciones, para
una tabla se pueden crear máximo doce tipos
de triggers
• Se pueden tener varios triggers del mismo tipo
asociados con una misma tabla
• Los triggers se ejecutan implícitamente cuando
ocurre el evento
• Normalmente en los triggers no se pueden* usar
las sentencias COMMIT, ni ROLLBACK
*
Es posible con autonomous transactions, por simplicidad se omitirán.
Sintaxis esencial de un trigger:
CREATE [OR REPLACE] TRIGGER nombre_trigger
momento evento ON tabla
[FOR EACH ROW Para especificar
triggers de fila
[WHEN condición]]
bloque de PL/SQL
Si el evento es UPDATE, se puede(n) especificar
la(s) columna(s) que dispararán el trigger con la palabra
OF (si no se especifican, el trigger se dispara con cualquier
columna de la tabla que sea actualizada)
El bloque comienza con la palabra DECLARE o BEGIN
Si es un trigger Evento Valor Valor
de fila, se puede anterior nuevo
acceder al valor INSER NULL El valor que
T se va a
de una columna antes
insertar
de la actualización
DELET El valor NULL
con :[Link]
E antes del
na
borrado
y al valor después de
UPDAT El valor El valor
la actualización con
E antes de la después de
:[Link] actualiza- la actualiza-
ción ción
Ejemplo: Trigger de operación
CREATE TABLE PRODUCTO(codigo NUMBER(6) PRIMARY
KEY,
precio NUMBER(6));
CREATE OR REPLACE TRIGGER control_insercion_productos
Domingo (puede ser 1 o 7
BEFORE INSERT ON producto según la config. del NLS)
BEGIN
IF TO_CHAR(SYSDATE,'D') = '7'THEN
RAISE_APPLICATION_ERROR(-20506,'¡No los domingos!');
END IF;
END; SQLCODE y SQLERRM asignados por el usuario
/
La instrucción RAISE_APPLICATION_ERROR abortará la operación
de inserción si esta se intenta hacer un domingo.
BEGIN
INSERT INTO producto VALUES(1,10);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLCODE ||
SQLERRM);
END;
/
Ejemplo: Trigger de Fila
Sean las tablas:
CREATE TABLE cuenta(
nro_cta NUMBER(10) PRIMARY KEY,
saldo NUMBER(8) NOT NULL CHECK (saldo >= 0)
);
INSERT INTO cuenta VALUES(1, 100);
INSERT INTO cuenta VALUES(2, 200);
CREATE TABLE retiro(
nro_retiro NUMBER(10) PRIMARY KEY,
cta NUMBER(10) REFERENCES cuenta NOT NULL,
valor NUMBER(8) NOT NULL CHECK (valor > 0)
);
Cuando se va a insertar un retiro:
- Si su valor es mayor al saldo de la cuenta,
se debe rechazar la transacción.
- Si el retiro se puede hacer, se debe
actualizar el saldo de la cuenta
CREATE OR REPLACE TRIGGER control_retiro
BEFORE INSERT ON retiro
FOR EACH ROW
DECLARE
saldo_cta [Link]%TYPE;
BEGIN
SELECT saldo INTO saldo_cta
FROM cuenta WHERE nro_cta = :[Link];
IF saldo_cta < :[Link] THEN
RAISE_APPLICATION_ERROR(-20505,'¡Fondos
insuficientes!');
ELSE
UPDATE cuenta SET saldo = saldo - :[Link]
WHERE nro_cta = :[Link];
END IF;
END;
¿Qué pasa si el valor del
/
retiro fuese negativo?
INSERT INTO retiro VALUES(22, 1, 70);
INSERT INTO retiro VALUES(28, 1, 15);
Ejercicio:
Analizar las consecuencias de actualizar o borrar
tanto en la tabla cuenta como en la tabla retiro.
Por ejemplo:
¿sería válido actualizar el valor de un retiro?
Un ejemplo con XML
CREATE TABLE pago(id NUMBER(4) PRIMARY KEY, d XMLTYPE);
CREATE OR REPLACE TRIGGER control_porc
BEFORE INSERT ON pago
FOR EACH ROW
DECLARE
p1 VARCHAR2(20); p2 VARCHAR2(20);
BEGIN
p1 := :[Link]('/Emp/Porcen1/text()').getstringval();
p2 := :[Link]('/Emp/Porcen2/text()').getstringval();
IF (TO_NUMBER(p1) + TO_NUMBER(p2)) != 100 THEN
RAISE_APPLICATION_ERROR(-20505,'¡Los porc. no suman
100!');
END IF;
END;
/
Un ejemplo con XML
INSERT INTO pago VALUES
(100, XMLType('<Emp cod="5">
<Porcen1>80</Porcen1>
<Porcen2>18</Porcen2>
</Emp>'));
INSERT INTO pago VALUES
(200, XMLType('<Emp cod="7">
<Porcen1>80</Porcen1>
<Porcen2>20</Porcen2>
</Emp>'));
La cláusula WHEN
• Sirve para agregar una condición adicional para activar
el trigger
• Dentro de la condición WHEN para referirse a NEW y
a OLD no se usan los dos puntos (:)
Ejemplo. Sea:
CREATE TABLE auditoria
(usuario VARCHAR2(20),cuando DATE, cta
NUMBER(6), aumento NUMBER(10));
Usando WHEN: Sin usar WHEN:
CREATE or REPLACE TRIGGER CREATE or REPLACE TRIGGER
quien_sube_retiro quien_sube_retiro
BEFORE UPDATE OF valor ON BEFORE UPDATE OF valor ON
retiro retiro
FOR EACH ROW FOR EACH ROW
WHEN ([Link] > [Link]) BEGIN
BEGIN IF :[Link] > :[Link]
INSERT INTO auditoria THEN
VALUES(USER, INSERT INTO auditoria
SYSDATE, :[Link], :[Link]
r - :[Link] ); VALUES(USER,
SYSDATE, :[Link], :[Link]
END; or - :[Link] );
/ END IF;
END;
/
Conclusión: WHEN evita el uso de un IF explícito dentro
de la sección ejecutable del trigger
• La ejecución de un trigger es transaccional, es decir, si un
trigger de fila afecta n registros y si uno solo de ellos aborta,
aborta
entonces todo el proceso se aborta.
• El orden de ejecución de los triggers es el siguiente:
1. Se ejecutan (si los hay*) los triggers BEFORE de
operación
2. Se ejecutan sucesivamente para cada fila:
- (Si los hay*) los triggers BEFORE de fila
- Se ejecuta la operación DML correspondiente**
- (Si los hay*) los triggers AFTER de fila
3. Se ejecutan (si los hay*) los triggers AFTER de operación
* Si hay varios triggers con idéntica definición (a partir de Oracle 8i),
el orden de ejecución entre ellos es “aleatorio” Ver diapositiva final.
** Tarea: analizar en relación con los triggers cuando se realizan las
verificaciones de integridad (clave primaria, foránea, checks, entre otras).
CREATE TABLE jefe(cc NUMBER(8) PRIMARY KEY,
salario NUMBER(8));
INSERT INTO jefe VALUES(10, 400);
INSERT INTO jefe VALUES(20, 200);
CREATE OR REPLACE TRIGGER bef_upd_row1
BEFORE UPDATE ON jefe
FOR EACH ROW
BEGIN
DBMS_OUTPUT.PUT_LINE('Bef Upd fila1
cc:'||:[Link]);
DBMS_OUTPUT.PUT_LINE(:[Link]);
IF :[Link] > 100 THEN
:[Link] := 0;
END IF;
END;
/
CREATE OR REPLACE TRIGGER bef_upd_row2
BEFORE UPDATE ON jefe
FOR EACH ROW
BEGIN
DBMS_OUTPUT.PUT_LINE('Bef Upd fila2
cc:'||:[Link]);
DBMS_OUTPUT.PUT_LINE(:[Link]);
:[Link] := :[Link] + 50;
END;
/
Ahora para comprobar el funcionamiento:
UPDATE jefe set salario = 100;
Resultados
Bef Upd fila2 cc:10
100 Triggers de fila afectando a
Bef Upd fila1 cc:10 la fila con cc 10
150
Bef Upd fila2 cc:20
100 Triggers de fila afectando a
la fila con cc 20
Bef Upd fila1 cc:20
150
Ejercicio: intercambiar los nombres de bef_upd_row1 y de
bef_upd_row2 y ejecutar todo de nuevo y ver que sucede
• Tarea: consultar las opciones:
IF INSERTING …, IF UPDATING…, IF
DELETING…
• Oracle 11g soporta la opción FOLLOWS.
• También se soportan Compound Triggers.
Permite codificar
varios triggers en
uno solo
Ver:
[Link]
using-triggers-and-compound-triggers-in-oracle-11g