Les bases de PL/pgSQL

DO $$
DECLARE
    v_prenom TEXT := 'Léa';      -- une variable et sa valeur de départ
BEGIN
    RAISE NOTICE 'Bonjour %', v_prenom;
END $$;

NOTICE:  Bonjour Léa

DO $$
DECLARE
    v_nb INTEGER;
BEGIN
    SELECT count(*) INTO v_nb FROM eleves;
    RAISE NOTICE '% élèves', v_nb;
EXCEPTION
    WHEN undefined_table THEN
        RAISE NOTICE 'Table eleves absente';
END $$;

NOTICE:  4 élèves

DO $$
DECLARE
    c_tva    CONSTANT NUMERIC := 0.081;   -- taux normal de la TVA suisse
    v_prix   NUMERIC := 12.50;
    v_qte    INTEGER := 3;
    v_total  NUMERIC;                     -- pas de valeur : NULL
BEGIN
    v_total := v_prix * v_qte;                     -- 37.50
    v_total := round(v_total * (1 + c_tva), 2);    -- 40.54
    RAISE NOTICE 'Total TTC : % CHF', v_total;
END $$;

NOTICE:  Total TTC : 40.54 CHF

DO $$
DECLARE
    v_prenom  eleves.prenom%TYPE;      -- le type de la colonne prenom
    v_eleve   eleves%ROWTYPE;          -- une ligne entière de la table
BEGIN
    SELECT * INTO v_eleve FROM eleves WHERE id = 3;
    v_prenom := v_eleve.prenom;
    RAISE NOTICE '% est en %', v_prenom, v_eleve.classe;
END $$;

NOTICE:  Zoé est en 2M3

DO $$
DECLARE
    v_prenom  eleves.prenom%TYPE;
    v_moyenne NUMERIC;
BEGIN
    SELECT e.prenom, round(avg(n.note), 2)
    INTO v_prenom, v_moyenne
    FROM eleves e JOIN notes n ON n.eleve_id = e.id
    WHERE e.id = 2
    GROUP BY e.prenom;

    RAISE NOTICE '% : moyenne %', v_prenom, v_moyenne;
END $$;

NOTICE:  Noah : moyenne 3.75

DO $$
DECLARE
    v_prenom TEXT;
BEGIN
    SELECT prenom INTO v_prenom FROM eleves WHERE id = 9;
    IF NOT FOUND THEN
        RAISE NOTICE 'Aucun élève avec l''id 9';
    END IF;
END $$;

NOTICE:  Aucun élève avec l'id 9

DO $$
DECLARE
    v_n INTEGER;
BEGIN
    UPDATE eleves SET classe = '3M3' WHERE classe = '2M3';
    GET DIAGNOSTICS v_n = ROW_COUNT;
    RAISE NOTICE '% élève(s) passent en 3M3', v_n;
END $$;

NOTICE:  3 élève(s) passent en 3M3

DO $$
DECLARE
    v_note    NUMERIC := 4.5;
    v_mention TEXT;
BEGIN
    IF v_note >= 5.5 THEN
        v_mention := 'très bien';
    ELSIF v_note >= 5 THEN
        v_mention := 'bien';
    ELSIF v_note >= 4 THEN
        v_mention := 'suffisant';
    ELSE
        v_mention := 'insuffisant';
    END IF;
    RAISE NOTICE 'Note % : %', v_note, v_mention;
END $$;

NOTICE:  Note 4.5 : suffisant

DO $$
DECLARE
    v_note   NUMERIC := 3.5;
    v_statut TEXT;
BEGIN
    CASE
        WHEN v_note >= 4 THEN v_statut := 'réussi';
        WHEN v_note < 4 THEN v_statut := 'échoué';
    END CASE;
    RAISE NOTICE 'Statut : %', v_statut;
END $$;

NOTICE:  Statut : échoué

DO $$
DECLARE
    v_i     INTEGER := 1;
    v_somme INTEGER := 0;
BEGIN
    LOOP                                -- 1. boucle simple
        v_somme := v_somme + v_i;
        v_i := v_i + 1;
        EXIT WHEN v_i > 5;              -- sans EXIT : boucle infinie
    END LOOP;
    RAISE NOTICE 'LOOP : %', v_somme;

    v_i := 1;  v_somme := 0;
    WHILE v_i <= 5 LOOP                 -- 2. tant que la condition est vraie
        v_somme := v_somme + v_i;
        v_i := v_i + 1;
    END LOOP;
    RAISE NOTICE 'WHILE : %', v_somme;

    v_somme := 0;
    FOR i IN 1..5 LOOP                  -- 3. i est déclaré automatiquement
        v_somme := v_somme + i;
    END LOOP;
    RAISE NOTICE 'FOR : %', v_somme;
END $$;

NOTICE:  LOOP : 15
NOTICE:  WHILE : 15
NOTICE:  FOR : 15

DO $$
DECLARE
    r RECORD;
BEGIN
    FOR r IN SELECT prenom, classe FROM eleves ORDER BY prenom LOOP
        RAISE NOTICE '% (%)', r.prenom, r.classe;
    END LOOP;
END $$;

NOTICE:  Elias (2M1)
NOTICE:  Léa (2M3)
NOTICE:  Noah (2M3)
NOTICE:  Zoé (2M3)

DO $$
DECLARE
    v_note NUMERIC := 7;
BEGIN
    IF v_note NOT BETWEEN 1 AND 6 THEN
        RAISE EXCEPTION 'Note % hors de l''échelle 1 à 6', v_note;
    END IF;
    RAISE NOTICE 'Note acceptée';
END $$;

ERROR:  Note 7 hors de l'échelle 1 à 6

DO $$
DECLARE
    v_prenom TEXT;
BEGIN
    SELECT prenom INTO STRICT v_prenom FROM eleves WHERE id = 9;
    RAISE NOTICE 'Trouvé : %', v_prenom;
EXCEPTION
    WHEN no_data_found THEN
        RAISE NOTICE 'Aucun élève avec l''id 9';
END $$;

NOTICE:  Aucun élève avec l'id 9