Untitled
unknown
plain_text
5 months ago
2.4 kB
3
Indexable
CREATE OR REPLACE PACKAGE body IntZespoly IS -- Procedura do wstawiania zespołu PROCEDURE WstawZespol(p_nazwa IN VARCHAR2, p_opis IN VARCHAR2) IS BEGIN -- Użycie kursora niejawnego do wstawiania danych INSERT INTO ZESPOŁY (NAZWA, OPIS) VALUES (p_nazwa, p_opis); -- Sprawdzenie, czy operacja zakończyła się sukcesem IF SQL%ROWCOUNT = 0 THEN DBMS_OUTPUT.PUT_LINE('Błąd: Nie udało się wstawić zespołu.'); ELSE DBMS_OUTPUT.PUT_LINE('Zespół ' || p_nazwa || ' został pomyślnie wstawiony.'); END IF; EXCEPTION WHEN OTHERS THEN -- Obsługa błędów DBMS_OUTPUT.PUT_LINE('Wystąpił błąd przy wstawianiu zespołu: ' || SQLERRM); END WstawZespol; -- Procedura do modyfikacji zespołu PROCEDURE ModyfikujZespol(p_id_zesp IN NUMBER, p_nazwa IN VARCHAR2, p_opis IN VARCHAR2) IS BEGIN -- Użycie kursora niejawnego do modyfikacji danych UPDATE ZESPOŁY SET NAZWA = p_nazwa, OPIS = p_opis WHERE ID_ZESP = p_id_zesp; -- Sprawdzenie, czy operacja zakończyła się sukcesem IF SQL%ROWCOUNT = 0 THEN DBMS_OUTPUT.PUT_LINE('Błąd: Nie udało się zmodyfikować zespołu o ID ' || p_id_zesp); ELSE DBMS_OUTPUT.PUT_LINE('Zespół o ID ' || p_id_zesp || ' został pomyślnie zmodyfikowany.'); END IF; EXCEPTION WHEN OTHERS THEN -- Obsługa błędów DBMS_OUTPUT.PUT_LINE('Wystąpił błąd przy modyfikacji zespołu: ' || SQLERRM); END ModyfikujZespol; -- Procedura do usuwania zespołu PROCEDURE UsunZespol(p_id_zesp IN NUMBER) IS BEGIN -- Użycie kursora niejawnego do usuwania danych DELETE FROM ZESPOŁY WHERE ID_ZESP = p_id_zesp; -- Sprawdzenie, czy operacja zakończyła się sukcesem IF SQL%ROWCOUNT = 0 THEN DBMS_OUTPUT.PUT_LINE('Błąd: Nie udało się usunąć zespołu o ID ' || p_id_zesp); ELSE DBMS_OUTPUT.PUT_LINE('Zespół o ID ' || p_id_zesp || ' został pomyślnie usunięty.'); END IF; EXCEPTION WHEN OTHERS THEN -- Obsługa błędów DBMS_OUTPUT.PUT_LINE('Wystąpił błąd przy usuwaniu zespołu: ' || SQLERRM); END UsunZespol; END IntZespoly; / PLS-00323 at 2,15 subprogram or cursor 'DODAJZESPOL' is declared in a package specification and must be defined in the package body
Editor is loading...
Leave a Comment