触发器已成功编译，但未激发

Question

我正在制作一个支持"卡坦定居者"原始版本的数据库，虽然其中大部分都能正常工作，但这个触发器却不能。

我正在通过SQL Developer开发Oracle 18c，并与Netbeans一起开发相关的Java应用程序(这将在另一个问题中讨论(。

以下是涉及的表格：

CREATE TABLE giocatore(
numero INT,
colore VARCHAR2(20),
punto_partenza INT,
punti_vittoria INT DEFAULT 0,
vittorioso CHAR(1) DEFAULT 'f',
quant_clay INT,
quant_wool INT,
quant_wheat INT,
quant_wood INT,
quant_rock INT,
CONSTRAINT player_pk PRIMARY KEY(numero)
);

CREATE TABLE esagono(
numero INT,
tipo VARCHAR2(30),
terreno VARCHAR2(10),
punti_vittoria INT,
gettone INT,
matprod VARCHAR2(20),
quant_mat INT,
occupato_da INT,
occupato_in_turno INT,
CONSTRAINT hexa_pk PRIMARY KEY(numero),
CONSTRAINT ocp_fk FOREIGN KEY(occupato_in_turno) REFERENCES turno (numero_turno),
CONSTRAINT mat_fk FOREIGN KEY(matprod) REFERENCES materia_prima (tipo),
CONSTRAINT occ_fk FOREIGN KEY(occupato_da) REFERENCES giocatore (numero)
);

CREATE TABLE materia_prima(
tipo VARCHAR2(20),
quantita INT,
CONSTRAINT type_pk PRIMARY KEY(tipo)
);

CREATE TABLE turno(
numero_turno INT,
val_dadi INT,
CONSTRAINT turn_pk PRIMARY KEY(numero_turno)
);

这就是触发因素：

create or replace TRIGGER generate_prime
AFTER INSERT ON turno
DECLARE valextracted INT; produced esagono.matprod%TYPE; quantity INT; occupied esagono.occupato_da%TYPE;
BEGIN
SELECT val_dadi
INTO valextracted
FROM turno
WHERE ROWNUM = 1
ORDER BY numero_turno DESC;
FOR record IN (SELECT matprod, quant_mat, occupato_da INTO produced, quantity, occupied FROM esagono WHERE gettone = valextracted)
LOOP
UPDATE materia_prima
SET quantita = quantita + quantity
WHERE tipo = produced;
IF produced = 'Argilla' THEN
UPDATE giocatore
SET quant_clay = quant_clay + quantity
WHERE numero = occupied;
ELSIF produced = 'Grano' THEN
UPDATE giocatore
SET quant_wheat = quant_wheat + quantity
WHERE numero = occupied;
ELSIF produced = 'Lana' THEN
UPDATE giocatore
SET quant_wool = quant_wool + quantity
WHERE numero = occupied;
ELSIF produced = 'Legno' THEN
UPDATE giocatore
SET quant_wood = quant_wood + quantity
WHERE numero = occupied;
ELSIF produced = 'Minerali' THEN
UPDATE giocatore
SET quant_rock = quant_rock + quantity
WHERE numero = occupied;
END IF;
END LOOP;
END;

我预计触发器会根据ESAGONO的quant_mat更新GIOCATORE的quant_play/woll/whit/wood/rock行和MATERIA_PRIMA的quanta行，但这并没有发生。有什么想法吗？

Answer 1

我相信我已经发现了你的问题。你应该更换这个部件：

FOR record IN (SELECT matprod
, quant_mat
, occupato_da 
INTO produced
, quantity
, occupied 
FROM esagono 
WHERE gettone = valextracted)
LOOP

有了这个：

FOR record IN (SELECT matprod
, quant_mat
, occupato_da 
FROM esagono 
WHERE gettone = valextracted)
LOOP
produced := record.matprod;
quantity := record.quant_mat;
occupied := record.occupato_da;

以下是有效的触发器：

create or replace TRIGGER generate_prime
AFTER INSERT ON turno
DECLARE 
valextracted INT; 
produced esagono.matprod%TYPE; 
quantity INT; 
occupied esagono.occupato_da%TYPE;
BEGIN
SELECT val_dadi
INTO valextracted
FROM turno
WHERE ROWNUM = 1
ORDER BY numero_turno DESC;
FOR record IN (SELECT matprod
, quant_mat
, occupato_da 
FROM esagono 
WHERE gettone = valextracted)
LOOP
produced := record.matprod;
quantity := record.quant_mat;
occupied := record.occupato_da;
UPDATE materia_prima
SET quantita = quantita + quantity
WHERE tipo = produced;
IF produced = 'Argilla' THEN
UPDATE giocatore
SET quant_clay = quant_clay + quantity
WHERE numero = occupied;
ELSIF produced = 'Grano' THEN
UPDATE giocatore
SET quant_wheat = quant_wheat + quantity
WHERE numero = occupied;
ELSIF produced = 'Lana' THEN
UPDATE giocatore
SET quant_wool = quant_wool + quantity
WHERE numero = occupied;
ELSIF produced = 'Legno' THEN
UPDATE giocatore
SET quant_wood = quant_wood + quantity
WHERE numero = occupied;
ELSIF produced = 'Minerali' THEN
UPDATE giocatore
SET quant_rock = quant_rock + quantity
WHERE numero = occupied;
END IF;
END LOOP;
END;

希望这能有所帮助！