Gyűjtőtáblák, vezérlési szerkezetek, kivételkezelés

1. Feladat

Mentsük el egy gyűjtőtáblába, hogy városok szerint hány ember szerepel az adatbázisban, majd írassuk ki a gyűjtőtábla sorait!

Visszajelzés

SET SERVEROUTPUT ON
DECLARE
    -- Rekord típus létrehozása a kívánt mezőkkel
    TYPE record_varos_lakos IS
    RECORD(nev Varosok.nev%TYPE, lakosok_szama NUMBER);
    /* Gyűjtőtábla típus létrehozása a korábbi rekord típussal a gyűjtőtáblát
    BINARY_INTEGER típussal indexeljük. */
    TYPE tabla_varos_lakos IS TABLE OF record_varos_lakos INDEX BY PLS_INTEGER;
    -- Gyűjtőtábla típusú változó definiálása
    v_varosok_stat tabla_varos_lakos;
BEGIN
    -- Gyűjtőtábla feltöltése BULK COLLECT utasítás segítségével
    SELECT Varosok.nev, COUNT(*) BULK COLLECT INTO v_varosok_stat
    FROM Szemelyek, Varosok WHERE Szemelyek.irsz = Varosok.irsz
    AND Szemelyek.orszag = Varosok.orszag GROUP BY Varosok.nev;
    /* For ciklus és a .FIRST és .LAST gyűjtőtábla metódusok segítségével
    lépkedünk végig a gyűjtőtábla sorain */
    FOR i IN v_varosok_stat.FIRST .. v_varosok_stat.LAST
    LOOP
        /* Az EXISTS gyűjtőtábla metódussal vizsgálhatjuk meg, hogy az i-edik
        indexel rendelkező sor tartalmaz-e bejegyzést */
        IF v_varosok_stat.EXISTS(i) THEN
            DBMS_OUTPUT.PUT_LINE(v_varosok_stat(i).nev||
            ' városban a lakosok száma: '|| v_varosok_stat(i).lakosok_szama);
        END IF;
     END LOOP;
END;
/

2. Feladat

Készítsünk egy gyűjtőtáblát, amely az Egyetemek tábla elemeit tárolja fordított ABC sorrendben! A gyűjtőtábla elemeit írassuk ki! A kiíratásban szerepeljen a kiírt sor sorszáma, majd töröljük ki az Óbudai Egyetemnek megfelelő sort! Írassuk ki még egyszer a gyűjtőtáblát, és figyeljük meg, hogy a törölt sor helye megmaradt!

Visszajelzés

SET SERVEROUTPUT ON
DECLARE
    TYPE tabla_egyetemek IS TABLE OF Egyetemek%ROWTYPE INDEX BY BINARY_INTEGER;
    v_tabla_egyetemek tabla_egyetemek;
    v_seged INTEGER := 1;
BEGIN
    SELECT * BULK COLLECT INTO v_tabla_egyetemek FROM Egyetemek
    ORDER BY nev DESC;
    -- Keressük meg az 'ÓE' hez tartozó indexet
    FOR i IN v_tabla_egyetemek.FIRST .. v_tabla_egyetemek.LAST
    LOOP
        IF v_tabla_egyetemek.EXISTS(i) and v_tabla_egyetemek(i).rovidites = 'ÓE' THEN
            v_seged := i;
        END IF;
    END LOOP;
    -- A v_seged-edik indexű sor törlése.
    v_tabla_egyetemek.DELETE(v_seged);
    -- Kiírás törlés után
    FOR i IN v_tabla_egyetemek.FIRST .. v_tabla_egyetemek.LAST
    LOOP
        IF v_tabla_egyetemek.EXISTS(i) THE
            DBMS_OUTPUT.PUT_LINE(i || '. ' || v_tabla_egyetemek(i).nev);
        END IF;
    END LOOP;
END;
/

3. Feladat

Név szerint ABC sorrendben gyűjtsük össze azon városokat, amelyek folyómentiek, valamint található bennük vár és fürdő is! Abban az esetben, nincs ilyen kivételkezeléssel írd ki, hogy ’Nincs ilyen!’, továbbá ’Egyéb kivétel!’ legyen olvasható, bármilyen más kivétel esetén.

4. Feladat

Gyűjtsük ki egy gyűjtő táblába azon egyetemeket, amelyek városában található vár! A gyűjtőtábla feltöltését kurzor segítségével végezzük el! A gyűjtőtábla sorait írassuk is ki!

5. Feladat

Írjuk ki az egyetemekkel nem rendelkező városokat gyűjtőtábla segítségével! Használjunk gyűjtőtábla metódust a feltételnek megfelelő városok számának megjelenítésére!

Licensed under the Creative Commons Attribution Share Alike License 4.0