儲存過程

建立儲存過程

CREATE PROCEDURE TEST
AS
BEGIN
    DBMS_OUTPUT.PUT_LINE('我的第一個過程！');
END;
--執行
--SERVEROUTPUT設定，想讓DBMS_OUTPUT.PUT_LINE成功輸出，需要把SERVEROUTPUT選項設定為ON的狀態
SHOW SERVEROUTPUT
SET SERVEROUTPUT ON 
BEGIN 
    TEST;
END;
--還具體在關鍵詞EXEC後面加上儲存過程名來執行以及存在的儲存過程

檢視儲存過程

SELECT * FROM USER_SOURCE WHERE NAME= 'TEST' ORDER BY LINE ;
--從檢視USER_SOURCE中查詢過程或函式時需要把名稱大寫

--檢視儲存過程TEST_ERR的錯誤
SHOW ERRORS PROCEDURE TEST_ERR;
 

無參儲存過程

無參儲存過程就是建立的儲存過程不帶任何引數，通常這種儲存過程用做資料轉換的機率比較大。

--把表productinfo中價格最低的3件產品的desperation欄位設定為’促銷商品‘
CREATE PROCEDURE PRODUCT_UPDATE_PRC
AS
BEGIN 
UPDATE PRODUCTINFO SET DESPERATION = '促銷產品'
WHERE PRODUCTID IN
(
  SELECT PRODUCTID FROM
  ( SELECT * FROM PRODUCTINFO ORDER BY PRODUCTPRICE ASC )
  WHERE ROWNUM < 4
);
COMMIT;
END;
 

儲存過程中使用遊標

--要求把productinfo表中資料根據不同的產品型別分類把資料輸出到螢幕
CREATE PROCEDURE PRODUCT_CUR_PRC
AS
cur_ctgy productinfo.category%TYPE;
cur_ctgyname categroyinfo.categroyname%TYPE;
cur_prtifo productinfo%ROWTYPE;

CURSOR cur_category
IS 
SELECT CATEGORY FROM PRODUCTINFO GROUP BY CATEGORY;

BEGIN 
    OPEN cur_category;
    LOOP
        FETCH cur_category;
        EXIT WHEN cur_category%NOTFOUND;
            SELECT CATEGORYINFO.CATEGROYNAME INTO cur_ctgyname
            FROM CATEGROYINFO
            WHERE CATEGROYID = cur_ctgy;
                IF SQL%FOUND THEN
                    DBMS_OUTPUT.PUT_LINE('---------------');
                    DBMS_OUTPUT.PUT_LINE(cur_ctgyname || ':');
                END IF;

            FOR my_prdinfo_rec IN
            (
                SELECT * FROM PRODUCTINFO WHERE CATEGORY = cur_ctgy
            )
                LOOP
                 DBMS_OUTPUT.PUT_LINE(
                                    '產品名稱: ' || my_prdinfo_rec.PRODUCTNAME|| '產品價格: ' || my_prdinfo_rec.PRODUCTPRICE|| '產品數量：' || my_prdinfo_rec.QUANTITY
                                      );
                END LOOP;
        END LOOP;
    CLOSE cur_category;
END ;
 

儲存過程中的DDL語句

有時候我們會在操作資料的時候使用臨時表，而為了讓儲存過程根據有通用性，可以選擇把建立臨時表的步驟一併放到過程裡。這樣的操作會和前面介紹的兩種示例寫法有所不同，它會用到EXECUTE IMMEDIATE語句，儲存過程中會使用它來執行DDL語句和動態SQL語句

--要求把各種不同型別的產品中價格最低的輸入到臨時表PRODUCTINFO_TMP(此表需要建立)中，並在其中DESPERATION欄位註明“熱銷商品“，如果記錄中價格低於20則表示資料有問題，需要輸出到螢幕

CREATE PROCEDURE PRODUCT_TMEP_UPDATE_PRC
AS

pc_delestr  VARCHAR2(50);
pc_createstr    VARCHAR2(500);
pc_insrtstr VARCHAR2(500);
tabext VARCHAR2(10); --判斷臨時表是否存在中間變數

cur_ctgy productinfo.Category%TYPE;
cur_prtifo productinfo%ROWTYPE;

CURSOR cur_category
IS
SELECT CATEGORY FROM PRODICTINFO GROUP BY CATEGORY;

CURSOR cur_proinfo(ctgy varchar)
IS
SELECT * FROM 
(SELECT * FROM PRODUCTINFO WHERE CATEGORY = ctgy ORDER BY PRODUCTPRICE ASC)
WHERE ROWNUM < 2;

BEGIN 
    SELECT COUNT(1)INTO tabext
    FROM ALL_TABLES
    WHERE TABLE_NAME = 'PRODUCTINFO_TMP'

    pc_delestr:= 'DELECTE FROM PRODUCTINFO_TMP'

    pc_createstr := 'CREATE GLOBAL TEMPORARY TABLE PRODUCTINFO_TMP
    (
        PRODUCTID VARCHAR2(10) NOT NULL,
        PRODUCTNAME VARCHAR2(20),
        PRODUCTPRICE NUMBER(8，2),
        QUANTITY NUMBER(10),
        CATEGORY VARCHAR2(10),
        DESPERATION VARCHAR2(1000),
        ORIGIN  BARCHAR2(10)
    )On Commit Preserve Rows';

     if tabext=0 then  --不存在就建立一個
        EXECUTE IMMEDIATE pc_createrstr;
        DBMS_OUTPUT.PUT_LINE('建立臨時表成功');
      else
        EXECUTE IMMEDIATE pc_delestr;
        DBMS_OUTPUT.PUT_LINE('刪除記錄完成');
      end if;

    OPEN cur_category;
    LOOP
      FETCH cur_category INTO cur_ctgy;
      EXIT WHEN cur_category%NOTFOUND;
            OPEN cur_proinfo(cur_ctgy);
                FETCH cur_proinfo INTO cur_prtifo;
                IF cur_proinfo%FOUND THEN
                    IF cur_prtifo.PRODUCTPRICE < 20 THEN --產品價格低於20的打印出來
                        DBMS_OUTPUT.PUT_LINE('產品ID：'||cur_prtifo.PRODUCTID||'產品名稱：' ||cur_prtifo.PRODUCTNAME||' 產品價格：' || cur_prtifo.PRODUCTPRICE
                    );
                    ELSE    --非低於20價格的產品輸入到臨時表 
                    EXECUTE IMMEDIATE 'INSERT INTO PRODUCTINFO_TMP(PRODUCTID,PRODUCTNAME.PRODUCTPRICE,QUANTITY,CATEGORY,DESPERATION,ORIGIN) VALUES (...||cur_prtifo.PRODUCTID||...,...||cur_prtifo.PRODUCTNAME||...,...||cur_prtifo.PRODUCTPRUCE||...,...||cur_prtifo.QUANTITY||...,...||cur_prtifo.CATEGORY||...,...||cur_prtifo.DESPERATION||...,...||cur_prtifo.ORIGIN||...)';
                    END IF;
                END IF;
            CLOSE cur_proinfo;
        END LOOP;
            COMMIT;
        CLOSE cur_category;
        EXECUTE IMMEDIATE 'UPDATE PRODUCTINFO_TMP SET DESPERATION = ''熱銷商品''',
     END;