PL/SQL Écrire une procédure pour mettre à jour une colonne?

Question

Je suis censé mettre à jour un élèves de première année à « A » basée sur la procédure

ChangeGrade(p_sID, p_classID) 

Si l'étudiant ne participe pas à la classe (p_classID), alors un message d'erreur est imprimé.

Voici le tableau:

L'inscription

sID classID Grade 
*** ******* ***** 
104  10440  B 
102  10220  C 
...  .....  . 

Suis-je censé faire une jointure interne? Voici ce que j'ai:

Create or Replace ChangeGrade (
    p_sID enrolling.sID%type 
    p_classID enrolling.classID%type) 
AS 
    p_id_enrolled NUMBER; 

BEGIN 
    SELECT sID into p_id_enrolled 
    FROM Enrolling 
    WHERE sID = p_sID 
    AND classID = p_classID 

    IF p_sID = p_id_enrolled THEN 
    update Enrolling 
    set GRADE = 'A' 
    dbms_output.put_line('Student grade has been changed.') 
    ELSE 
    dbms_output.put_line('Student record does not exist.') 
    END IF; 
END; 
/ 

Answer 1

Voici les problèmes dans votre code:

1. Cette requête est dénuée de sens:

   SELECT sID into p_id_enrolled 
       FROM Enrolling 
       WHERE sID = p_sID 
       AND classID = p_classID 
   

   Vous sélectionnez sID dans p_id_enrolled, mais WHERE clause Filtrerez sID = p_sID, donc p_id_enrolled sera toujours égal à p_sID, et vous n'avez pas du tout besoin de cette instruction select.

2. Cette déclaration de mise à jour met à jour toute la table:

   UPDATE Enrolling 
       SET GRADE = 'A'; 
   

   Vous devez ajouter une clause de filtrage pour mettre à jour une seule ligne.

3. Dans un cas d'étudiant n'est pas inscrit en cours, la requête ne renvoie aucune ligne et vous obtiendrez l'exception NO_DATA_FOUND. Pour le traiter, vous devez attraper l'exception ou calculer le nombre d'élèves.

Je recommande d'utiliser ce qui suit:

Create or Replace procedure ChangeGrade (
    p_sID enrolling.sID%type, 
    p_classID enrolling.classID%type) 
AS 
    cnt NUMBER; 

BEGIN 
    SELECT count(*) into cnt 
    FROM Enrolling 
    WHERE sID = p_sID 
    AND classID = p_classID; 

    IF cnt = 1 THEN 
    update Enrolling 
     set GRADE = 'A' 
    where sID = p_sID 
     AND classID = p_classID; 
    dbms_output.put_line('Student grade has been changed.'); 
    ELSE 
    dbms_output.put_line('Student record does not exist.'); 
    END IF; 
END; 
/

Answer 2

Je ne sais pas quel type d'erreur est imprimé, mais il semble qu'il vous manque ';' à la fin de certaines commandes (dans l'instruction if et après select into).

Answer 3

Comme mentionné dans mon commentaire, il y avait plusieurs endroits où semicolon (terminateur de ligne) manquait dans votre procédure. Essayez ceci:

CREATE OR REPLACE Procedure ChangeGrade (
    p_sID enrolling.sID%type 
    p_classID enrolling.classID%type) 
AS 
    p_id_enrolled NUMBER; 

BEGIN 
    SELECT sID 
    INTO p_id_enrolled 
    FROM Enrolling 
    WHERE sID = p_sID AND classID = p_classID; 

    IF p_sID = p_id_enrolled 
    THEN 
     UPDATE Enrolling 
     SET GRADE = 'A' 
     WHERE sID = p_sID; 

     DBMS_OUTPUT.put_line ('Student grade has been changed.'); 
    ELSE 
     DBMS_OUTPUT.put_line ('Student record does not exist.'); 
    END IF; 

EXCEPTION 
WHEN NO_DATA_FOUND Then 
dbms_output.put_line('Student record does not exist for this class'); 

END; 
/

Answer 4

Vous devez gérer le fait que l'étudiant n'est pas dans la classe comme une exception:

Create or Replace PROCEDURE ChangeGrade (
    p_sID enrolling.sID%type, 
    p_classID enrolling.classID%type, 
    p_grade enrolling.grade%type ) 
AS 
l_enrolled NUMBER; 

BEGIN 
    SELECT sID INTO l_enrolled 
    FROM Enrolling 
    WHERE sID = p_sID 
    AND classID = p_classID; 

    IF l_enrolled = p_sID THEN 
    update Enrolling set GRADE = p_grade WHERE sID = p_sID and classID = p_classID; 
    dbms_output.put_line('Student grade has been changed.'); 
    END IF; 

    EXCEPTION WHEN NO_DATA_FOUND 
    dbms_output.put_line('Student record does not exist for this class'); 
END; 
/ 

J'ai ajouté également un paramètre pour la qualité car il est logique de le transmettre comme bien.

Answer 5

Create or Replace procedure ChangeGrade (
    p_sID enrolling.sID%type 
    p_classID enrolling.classID%type) 
AS 
BEGIN 
    update Enrolling 
    set GRADE = 'A' 
    where sID = p_sID 
    AND classID = p_classID; 
    IF SQL%ROWCOUNT > 0 THEN 
    dbms_output.put_line('Student grade has been changed.'); 
    ELSE 
    dbms_output.put_line('Student record does not exist.'); 
    END IF; 
END; 

Answer 6

Vous pouvez également utiliser un curseur, puis voir si l'étudiant est inscrit à ce cours. Si c'est le cas, mettez à jour la note. Je pense qu'un curseur est plus sûr alors un SELECT X INTO n, parce que cela donne une erreur laide quand vous essayez d'insérer un NULL, SELECT NULL INTO n, et ces erreurs sont généralement difficiles à trouver.

Par exemple:

CREATE OR REPLACE ChangeGrade (p_sID enrolling.sID%TYPE, 
           p_classID enrolling.classID%TYPE) 
AS 
       CURSOR cEnrolling IS 
        SELECT  * 
        FROM  Enrolling 
        WHERE  SID = p_sID 
        AND  classID = p_classID; 

       rEnrolling cEnrolling%ROWTYPE; 
BEGIN 
     OPEN cEnrolling; 
     FETCH cEnrolling INTO rEnrolling; 
       IF cEnrolling%FOUND THEN 
         -- Student record found. 
         UPDATE Enrolling 
         SET Grade = 'A' 
         WHERE SID = rEnrolling.sId; 

         DBMS_OUTPUT.PUT_LINE('Student grade has been changed.'); 
       ELSE 
         -- Student record not found. 
         DBMS_OUTPUT.PUT_LINE('Student record does not exist.'); 
       END IF; 
     CLOSE cEnrolling; 
END; 
/