pl/sql更新某個員工的工資

例1：更新指定員工工資，如工資小於1500，則加100；

--匿名塊
DECLARE

   v_empno emp.empno%TYPE :=&empno;

   v_sal    emp.sal%TYPE;

BEGIN

   SELECT sal INTO v_sal FROM emp WHERE empno=v_empno;

   IF v_sal<=1500 THEN

        UPDATE emp SET sal=sal+100 WHERE empno=v_empno;

        DBMS_OUTPUT.PUT_LINE('編碼為'||v_empno||'員工工資已更新!');    

   ELSE

DBMS_OUTPUT.PUT_LINE('編碼為'||v_empno||'員工工資已經超過規定值!');

   END IF;

EXCEPTION

   WHEN NO_DATA_FOUND THEN 

      DBMS_OUTPUT.PUT_LINE('資料庫中沒有編碼為'||v_empno||'的員工');

   WHEN TOO_MANY_ROWS THEN

      DBMS_OUTPUT.PUT_LINE('程式執行錯誤!請使用遊標');

   WHEN OTHERS THEN

       DBMS_OUTPUT.PUT_LINE('發生其它錯誤!');

END; 

---過程
create or replace procedure p7(v_empno emp.empno%TYPE) is v_sal   emp.sal%TYPE;
BEGIN
   SELECT sal INTO v_sal FROM emp WHERE empno=v_empno;
   IF v_sal<=1500 THEN 
        UPDATE emp SET sal=sal+100 WHERE empno=v_empno; 
        DBMS_OUTPUT.PUT_LINE('編碼為'||v_empno||'員工工資已更新!');     
   ELSE
DBMS_OUTPUT.PUT_LINE('編碼為'||v_empno||'員工工資已經超過規定值!');
   END IF;
EXCEPTION
   WHEN NO_DATA_FOUND THEN  
      DBMS_OUTPUT.PUT_LINE('資料庫中沒有編碼為'||v_empno||'的員工');
   WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE('程式執行錯誤!請使用遊標');
   WHEN OTHERS THEN
       DBMS_OUTPUT.PUT_LINE('發生其它錯誤!');
END; 

declare
begin
p7(7788);
end;
/