Feladat

A feladat során az alábbi relációsémákat tekintjük:

TERMEKEK(tid NUMBER(4) PRIMARY KEY, megnevezes VARCHAR2(30) NOT NULL, kid NUMBER(4) REFERENCES Kategoria(kid));
KATEGORIA(kid NUMBER(4) PRIMARY KEY, knev VARCHAR2(30));
ELADÁSOK(tid NUMBER(4), datum DATE, varos VARCHAR2(40), FOREIGN KEY (tid) REFERENCES Termekek(tid));

Írjon PL/SQL programot, az alábbi művelet végrehajtásához:

Számolja össze egy gyűjtőtáblában, hogy adott termékkategóriából, hány darabot adtak el összesen, majd a gyűjtőtáblán végighalava írassa ki a kategória nevét és az előadott termékek darabszámát.

Minta:

Sport: 84
Lakás: 132
Élelmiszer: 92
Írószerek: 188

Visszajelzés

SET SERVEROUTPUT ON
DECLARE
    TYPE kat_rekord IS RECORD( nev kategoria.knev%TYPE , darab NUMBER);
    TYPE gyt IS TABLE OF kat_rekord INDEX BY BINARY_INTEGER;
    kategoriaTabla gyt;
    ind BINARY_INTEGER;
    v_kid Kategoria.kid%TYPE;
    v_knev kategoria.knev%TYPE;
    CURSOR kategoriaKurzor IS
        SELECT kid, knev FROM Kategoria;
BEGIN
    -- gyujto tabla feltoltese
    OPEN kategoriaKurzor;
    LOOP
        FETCH kategoriaKurzor INTO v_kid, v_knev;
        EXIT WHEN kategoriaKurzor%NOTFOUND;
        kategoriaTabla(v_kid).nev := v_knev;
        SELECT COUNT(*) INTO kategoriaTabla(v_kid).darab
        FROM Eladasok, Termekek, Kategoria
        WHERE Eladasok.tid = Termekek.tid AND
        Kategoria.kid = Termekek.kid AND
        Termekek.kid = v_kid;
    END LOOP;
    CLOSE kategoriaKurzor;
    ind := kategoriaTabla.FIRST;
    LOOP
        DBMS_OUTPUT.PUT_LINE( kategoriaTabla(ind).nev || ': ' || kategoriaTabla(ind).darab );
        EXIT WHEN ind = kategoriaTabla.LAST;
        ind:=kategoriaTabla.NEXT(ind);
    END LOOP;
END;