oracle園地

讀檔

PROCEDURE echo_file_contents IS
in_file Text_IO.File_Type;
linebuf VARCHAR2(1800);
filename VARCHAR2(30);
BEGIN
filename:=GET_FILE_NAME(’c:\temp\’, File_Filter=>’Text Files (*.txt)|*.txt|’);
in_file := Text_IO.Fopen(filename, ‘r’);
LOOP
Text_IO.Get_Line(in_file, linebuf);
:text_item5:=:text_item5||linebuf||chr(10);
END LOOP;
EXCEPTION
WHEN no_data_found THEN
Text_IO.Put_Line(’Closing the file…’);
Text_IO.Fclose(in_file);
END;

存檔

DECLARE
out_file Text_IO.File_Type;
output_patch VARCHAR2(30);
BEGIN
output_patch:=’c:\temp\test.xls’;
out_file := Text_IO.Fopen (output_patch, ‘w’);
Text_IO.Put(’new line’);
Text_IO.New_Line(out_file, 1);
EXCEPTION
WHEN OTHERS THEN
Text_IO.Fclose(out_file);
END;

1．搜查型CASE敘述

常用的exception 名稱
DUP_VAL_ON_INDEX key值重複
OTHERS 所有的例外
NO_DATA_FOUND 查詢找不到資料
TOO_MANY_ROWS
VALUE_ERROR

自訂EXCEPTION 用法

DECLARE
is_someting_error EXCIPTION;
BEGIN
xxxx;
……..;
BEGIN
xxx
EXCEPTION WHEN OTHERS THEN
RAISE is_someting_error;
END;
EXCEPTION
WHEN is_someting_error THEN
xxxxx;
………;
WHEN OTHERS THEN
xxxxx;
………;
END;

1. 數學運算元

   +, -, *, /, **

2. 關係運算元

   <>, !=, ^=, >, <, =

3. 其他符號

   (), ;,‘, :=, ||, –, /*

4. 變數

   a.字首一定要為字母
   b.只能用 $, # 或 _ 等特殊符號
   c.變數不能超過 30 個字
   d.變數裡不能有空白

5. 保留字

   LOOP, WHILE…

6. 常用資料型別

   a.VCRCHAR2(max_length)
   max_length: 1 ~ 32767
   b.NUMBER(precision, scale)
   precision: 1 ~ 38
   ex. num NUMBER(10, 2)
   表 num 這個變數有 8 整數, 2 位小數
   c.DATE
   d.BOOLEAN

7. 程式結構

   a.區塊結構
   DECLARE
   /PROCEDURE procedure_name(w_char IN OUT VARCHAR2,…) IS
   /FUNCTION function_name(w_char IN OUT VARCHAR2,…) RETURN Boolean IS
   … ( 宣告區塊 )
   BEGIN
   …
   EXCEPTION
   … ( 例外區塊 )
   END;
   b.宣告區塊
   (1)固定型態
   w_variable NUMBER(1);
   (2)變動型態 ( Complier 時決定 )
   w_variable table.field%TYPE;
   rec_variable table%ROWTYPE;

   (3)自訂型態
   TYPE record_type IS RECORD
   ( user_default_field_name1 NUMBER(1)
   user_default_field_name1 table.field%TYPE,
   …
   );
   record_name record_type;

8. 控制結構

   (1)IF 邏輯結構
   * IF – THEN – END IF
   * IF – THEN – ELSE – END IF
   * IF – THEN – ELSIF – END IF
   * 空結構
   (2)迴圈
   * LOOP迴圈
   LOOP
   EXIT WHEN ;
   END LOOP;
   * WHILE迴圈
   WHIEL LOOP

   EXIT WHEN ;
   END LOOP;
   * FOR迴圈
   FOR variable IN min_num .. max_num LOOP
   EXIT WHEN ;
   END LOOP;

9. 例外處理

   錯誤發生時會進入此區塊處理
   EXCEPTION
   WHEN NO_DATA_FOUND THEN
   …
   WHEN OTHERS THEN
   …
   END;
   (1)系統預設
   (2)NO_DATA_FOUND
   TOO_MANY_ROWS
   DUP_VAL_ON_INDEX
   VALUE_ERROR
   (3)自行宣告
   user_default_exception EXCEPTION;

10. CURSOR敘述

    DECLARE
    CURSOR cursor_name IS
    SELECT …
    rec_cursor_record cursor_name%ROWTYPE;
    BEGIN
    …
    OPEN cursor_name;
    LOOP
    FETCH cursor_name INTO rec_cursor_record;
    EXIT WHEN cursor_name%NOTFOUND;
    END LOOP;
    CLOSE cursor_name;
    …
    END;
    * CURSOR 宣告技巧
    * CURSOR 參數
    %NOTFOUND
    %FOUND
    %ROWCOUNT
    %ISOPEN
    * 動態 CURSOR
    DECLARE
    TYPE type_name IS REF CURSOR RETURN record_type;
    cursor_name type_name;
    record_name type_name;
    BEGIN
    OPEN cursor_name FOR
    SELECT …
    END;

11. PL/SQL table

    * 結構
    DECLARE
    TYPE trec_chart IS RECORD
    (chart_no chart.chart_no%TYPE,
    pt_name chart.pt_name%TYPE );
    TYPE ttab_chart IS TABLE OF trec_chart%ROWTYPE INDEX BY BINARY_INTEGER;
    tab_chart ttab_chart;
    BEGIN
    …
    END;
    * 用法
    tab_chart(index).chart_no := 1; ( i 可為不連續的整數 )
    tab_chart.EXISTS(index)
    tab_chart.COUNT
    tab_chart.FIRST
    tab_chart.LAST
    tab_chart.PRIOR(index)
    tab_chart.NEXT(index)
    tab_chart.DELETE
    tab_chart.DELETE(index)
    tab_chart.DELETE(start_ index, end_ index)

    index := tab_chart.FIRST;
    WHILE index IS NOT NULL LOOP
    …
    index := tab_chart.NEXT(i);
    END LOOP;
    * EXCEPTION 狀況
    IF tab_chart.chart_no(index) THEN
    此敘述若 tab_chart.chart_no(index) 不存在則會觸發 NO_DATA_FOUND

旅展省錢大作戰　部落格徵文串連活動
活動時間：2008年10月13日起至11月10日止

只要在你自己的部落格上掛上2008ITF台北國際旅展串連貼紙，
並於底下留言版留言，即可參與抽獎喔。
串聯貼紙語法：http://blog.liontravel.com/event/2008itf/default.aspx

副檔名 檔案內容
—————————————–
fun 函數
pro 程序
pkg 套裝程式的規格和主体
pks 只包含套裝程式規格
pkb 只包含套裝程式主体
tab 建立表格用的命令檔
ind 建立索引用的命令檔
cns 限制條件敘述
ins 安裝用命令檔
tst 測試用命令檔
ddl 通用的DDL命令檔〔修改、捨棄…〕
grt 針對物件的授權(grant)敘述
rev 針對物件的撤消(revoke)敘述
syn 建立同義字敘述