Untitled

 avatar
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