您好,登錄后才能下訂單哦!
--創建存儲過程
CREATE OR REPLACE PROCEDURE first_proc
IS
BEGIN
DBMS_OUTPUT.put_line('我的過程');
DBMS_OUTPUT.put_line('Hello Everyone!');
END;
--創建函數
CREATE OR REPLACE FUNCTION first_func
RETURN VARCHAR
IS
BEGIN
DBMS_OUTPUT.put_line('我的函數');
RETURN 'hello everyone';
END;
BEGIN
first_proc;
END;
BEGIN
DBMS_OUTPUT.put_line(first_func);
END;
CREATE [OR REPLACE] PROCEDURE procedure_name
[(argument1 [{ IN | OUT | IN OUT}] type, argument2 [ { IN | OUT | IN OUT}] type, ...)] (IN 為輸入參數、OUT輸出參數、IN | OUT為輸入輸出參數)
{ IS | AS }(即使沒有聲明部分,IS | AS 也不能夠省略,IS或者AS選擇哪一個都可以)
聲明部分,類型.變量的說明
BEGIN
執行部分
EXCEPTION
可選的異常錯誤處理部分
END;
CREATE OR REPLACE PROCEDURE proc1
(v_empno IN emp01.empno%TYPE)
IS
BEGIN
--根據員工號刪除指定的員工信息
DECLARE FROM emp01 WHERE empno = v_empno;
--判斷是否刪除成功
IF SQL%NOTFOUND THEN
-- -20000 ~ -20999之間
RAISE_APPLICATION_ERROR(-20008, '指定刪除的員工不存在');
ELSE
DBMS_OUTPUT。put_line('刪除成功');
END;
CREATE OR REPLACE PROCEDURE proc2
(v_deptno IN NUMBER, v_avgsal OUT NUMBER, v_cnt out NUMBER)
IS
BEGIN
SELECT AVG(sal), count(*)
INTO v_avgsal, v_cnt
FROM emp WHERE deptno = v_deptno;
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line('沒有此部門');
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END;
CREATE OR REPLACE PROCEDURE proc3
(v_num1 IN OUT NUMBER, v_num2 IN OUT NUMBER)
AS
v_temp NUMBER := 0;
BEGIN
v_temp := v_num1;
v_num1 := v_num2;
v_num2 := v_temp;
END;
CREATE [OR REPLACE] FUNCTION function_name
[ argument1[ { IN | OUT | IN OUT }] type,
argument2[{IN | OUT | IN OUT }] type, ...)]
RETURN return_type
{ IS | AS}
聲明部分,類型.變量的說明
BEGIN
執行部分,函數體
EXCEPTION
可選的異常錯誤處理部分
END;
CREATE OR REPLACE FUNCTION func1
(v_deptno IN NUMBER)
RETURN NUMBER
IS
v_sumsal NUMBER;
BEGIN
SELECT SUM(SAL) INTO v_sumsal FROM emp WHERE deptno = v_deptno;
RETURN v_sumsal;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.put_line('沒有此部門');
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
CREATE OR REPLACE FUNCTION func2
(v_empno IN emp.empno%TYPE, v_name OUT emp.ename%TYPE, v_sal OUT emp.sal%TYPE)
RETURN NUMBER
IS
v_salsum NUMBER;
BEGIN
SELECT ename, sal, (sal + nvl(comm, 0)) * 12 INTO v_name, v_sal, v_salsum
FROM emp WHERE empno = v_empno;
RETURN v_salsum;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.put_line('沒有此員工');
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
CREATE OR REPLACE FUNCTION func3
(n1 IN OUT NUMBER, n2 IN OUT NUMBER)
RETURN NUMBER
AS
BEGIN
n1 := n1*n1;
n2 := n2*n2;
RETURN n1+n2;
END;
EXEC[UTE] Procedure_name(parameter1, parameter2...)
BEGIN
procedure_name(parameter1, parameter2...)
END;
注意:本專題第2節存儲過程的創建后,Oracle數據庫中保存了4個存儲過程。
-- 調用無參的存儲過程
SQL> set serveroutput on
SQL> exec first_proc
我的過程
Hello Everyone!
PL/SQL procedure successfully completed
-- 調用帶有輸入參數的存儲過程
SQL> exec proc1(1234);
begin proc1(1234); end;
ORA-20008: 指定刪除的員工不存在
ORA-06512: 在 "SCOTT.PROC1", line 9
ORA-06512: 在 line 1
-- 調用無參的存儲過程
BEGIN
first_proc;
END;
-- 調用帶有輸入參數的存儲過程
BEGIN
proc1(1234);
END;
-- 調用帶有輸出參數的存儲過程
DECLARE
v_avgsal NUMBER;
v_count NUMBER;
BEGIN
PROC2(10, v_avgsal, v_count);
DBMS_OUTPUT.put_line('平均工資:' || v_avgsal);
DBMS_OUTPUT.put_line('總人數:' || v_count);
END;
--調用帶有輸入輸出參數的存儲過程
DECLARE
v_n1 NUMBER := 5;
v_n2 NUMBER := 10;
BEGIN
PROC3(v_n1, v_n2);
DBMS_OUTPUT.put_line('N1:' || v_n1);
DBMS_OUTPUT.put_line('N2:' || v_n2);
END;
DROP PROCEDURE [user.] Procedure_name
--調用無參數的函數
BEGIN
dbms_output.put_line(first_func);
END;
-- 調用帶有輸入參數的函數
BEGIN
dbms_output.put_line('部門的工資總額:' || func1(&no));
END;
-- 調用帶有輸出參數的函數
DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
v_salsum NUMBER;
BEGIN
v_salsum := func2(&no, v_name, v_sal);
DBMS_OUTPUT.put_line('姓名:' || v_name);
DBMS_OUTPUT.put_line('工資:' || v_sal);
DBMS_OUTPUT.put_line('年收入:' || v_salsum);
END;
-- 調用帶有輸入輸出參數的函數
DECLARE
v_n1 NUMBER := 5;
v_n2 NUMBER := 6;
v_sum number;
BEGIN
v_sum := func3(v_n1, v_n2);
DBMS_OUTPUT.put_line('n1的平方:' || v_n1);
DBMS_OUTPUT.put_line('n2的平方:' || v_n2);
DBMS_OUTPUT.put_line('n1和n2的平方和:' || v_sum);
END;
DROP FUNCTION [user.] Function_name
CREATE OR REPLACE FUNCTION func2
(v_empno IN emp.empno%TYPE, v_name OUT emp.ename%TYPE, v_sal OUT emp.sal%TYPE)
RETURN NUMBER
IS
v_salsum NUMBER;
BEGIN
SELECT ename, sal, (sal + nvl(comm, 0)) * 12 INTO v_name, v_sal, v_salsum
FROM emp WHERE empno = v_empno;
RETURN v_salsum;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.put_line('沒有此員工');
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
--調用
DECLARE
v_totalsal NUMBER;
BEGIN
v_totalsal := func5;
DBMS_OUTPUT.put_line(v_totalsal);
END;
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。