Question

我正在建立一个支持“卡坦定居者”原始版本的数据库，尽管大多数数据库都能按预期工作，但此触发器不起作用。

我正在通过SQL Developer与Netbeans一起针对相关Java应用程序开发Oracle 18c（这将在另一个问题中进行讨论）。

这些是涉及的表：

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_clay / wool / wheat / wood / rock行和MATERIA_PRIMA的quantita行，但这不会发生。有什么想法吗？

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;

希望这会有所帮助！

触发成功编译但未触发

1 个答案: