-匿名块
DECLARE
V_NAME VARCHAR2(5);
BEGIN
SELECT NAME INTO V_NAME WHERE AGE=100;
DBMS_OUTPUT.PUT_LINE(V_NAME);
EXCEPTION
WHER NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('未查到到任何数据');
END;
-命名块
<<OUTER>>
DECLARE V_NAME VARCHAR2(5);
BEGIN
SELECT NAME INTO V_NAME WHERE AGE=100;
DBMS_OUTPUT.PUT_LINE(V_NAME);
EXCEPTION
WHER NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('未查到到任何数据');
END;--<<OUTER>>
-子程序之过程
CREATE OR REPLACE PROCEDURE UPDATE_SAL(NEWNAME VARCHAR2,_ID NUMBER)
IS
ERROR_EXP EXCEPTION;
BEGIN
UPDATE TABLENAME SET NAME=NEWNAME WHERE ID=_ID;
IF SQL%NOTFOUND THEN
RAISE ERROR_EXP;
END IF;
EXCEPTION
WHEN ERROR_EXP
RAISE_APPLICATION_ERROR('-20004','error');
END;-
-执行过程
exec UPDATE_SAL('WT',100);