oracle存儲過程語法

1、存儲過CREATEORREPLACECREATEORREPLACEPROCEDURE 儲過程, 如果存在就覆蓋它;ISPL/SQL體。3:BEGINPL/SQL體的開始。4:NULLPL/SQL語句表明什么事都不做，這句不能刪PL/SQL 體中至少需要有一句;ENDPL/SQL存儲過程創(chuàng)建語法createorreplaceprocedure 存儲過程名（param1in type，param2 out type）變量1 類型（值范圍）;-2 類型（值范圍）; Selectcount(*into 1from AwhereIf判斷條件Select into 2from AwhereElsif (判

2、斷條件) thenRaise 異常名（NO_DATA_FOUND）; End if;Whenothersthen selectintoraise+CREATEORREPLACEPROCEDURE存儲過程名 INCHAR(6)the_countOUTvs_ym_beg CHAR(6);vs_ym_end CHAR(6);vs_ym_sn_beg CHAR(6);vs_ym_sn_end CHAR(6);CURSORcur_1IS SELECT FROM WHEREGROUPBY。-用輸入?yún)?shù)給變量賦初值OralceSUBSTR TO_CHAR ADD_MONTHSTO_DATE 等很常用的函數(shù)。

3、 vs_ym_beg:=SUBSTR(is_ym,1,6); vs_ym_end:=SUBSTR(is_ym,7,6); vs_ym_sn_beg :=ymm), -12),yyyymm);vs_ym_sn_end := ymm), -12),yyyymm);DELETEFROM WHEREym-DBMS_OUTPUTput_line方法 DBMS_OUTPUT.put_line(delINSERTINTOFROMWHEREym=vs_ym_beg AND ym 0then x := 0 -end if; ifx=0thenx:=1;endend2 、For 循環(huán) ForinLOOP- end

4、createorreplaceproceduretest()Cursorcursorisselectnamefromstudent;name forname incursor LOOP endendcreateorreplaceproceduretest(varArrayin myPackage.TestArray) as-( varArray 是自定義的數(shù)組類型，定義方式6)inumber; i := 1;- 1 開始的，與 java 、C 、C+ Oracle 中本是沒有- 表(Table), 每個數(shù)組元素就是表中的一個記錄，所以foriin1.varArray.countdbms_out

5、put.putline('TheNo.'|i| 'record in varArray is:'|varArray(i);endLOOP; end test;3 、While while LOOP endcreateorreplaceproceduretest(iinnumber)whilei10LOOP i:=i+ endend4 首先明確一個概念：Oracle 中本是沒有數(shù)組的概念的，數(shù)組其實就是一張表(Table), 每個數(shù)組元素就是表中的一個Oracle已經(jīng)定義好的數(shù)組類Oracle xarray; - createorreplaceproced

6、uretest(youtarray)is x array;x:=newarray(); y := x;end自定義的數(shù)組類型( 自定義數(shù)據(jù)類型時，建議通過Package 的方式實現(xiàn)，以便于管理)createorreplacepackagemyPackagePublic type declarationstype info is nameytypeTestArrayistableofinfoindexby - TestArray 的類型數(shù)據(jù)，其實其為一Info Table TestArray 就是一name ，一個是y 。需要注意Index by binary_integer Table 的索引

7、項，也可以不寫，直接寫成：type TestArray istableofinfo 化：varArray myPackage.TestArray; varArray := new end5. 游標(biāo)的使用 Oracle Cursor 是非常有用的，用于Cursor 型游標(biāo)( 不能用于參數(shù)傳遞) create or replace procedure test() iscusor_1 Cursor is select std_name from student -Cursor 的使用方式1cursor_2Cursor;selectclass_nameintocursor_2fromclass wh

8、ere .;-Cursor 2Forx incursorLOOPendLOOP; Cursor endSYS_REFCURSOR 型游標(biāo)，Oracle 以預(yù)createorreplaceproceduretest(rsCursorout SYS_REFCURSOR) iscursorSYS_REFCURSOR; name varhcar(20);OPENcursorFORselectnamefromstudentwhere-SYS_REFCURSOR OPEN 方法來打開和賦值 fetch cursor into name-SYS_REFCURSOR 只能通過fetch into 來打開和遍歷

9、 exit when -SYS_REFCURSOR 中可-%NOTFOUND( 未找到記錄信息) %FOUND( 找到記錄信息-%ROWCOUNT( 然后當(dāng)end LOOP;rsCursor:=cursor; end test;現(xiàn)假設(shè)存在兩張表，一張是學(xué)生成績表(studnet) ，字段一張是學(xué)生課外成績表(out_school), 字段 20 分。createorreplaceprocedureautocomputer(stepin number) isrsCursor SYS_REFCURSOR; commentArraymyPackage.myArray; math number;art

10、icle number; languagenumber; music number; sport number; total number; average number; stdId varchar(30);recordi i :=get_comment(commentArray); - get_comment() OPEN rsCursor for select stdId,math,article,language,music,sportfromstudentt where t.step = step;fetch rsCursor into stdId,math,article,lang

11、uage,music,sport;exitwhen total:=math+article+language+music+sport; for i in mentArray.count LOOPrecord:=commentArray(i); if stdId = record.stdId then ment='A'total :=total+gotonext; - goto 跳出for endif; endif;endaverage:=total/updatestudenttsett.total=totalandt.average= average where t.stdId = stdId;endLOOP; end- createcreateorreplaceget_comment(commentArrayoutmyPackage.myArray)is rs SYS_REFCURSOR ；recordstdId varchar(30); commentvarchar(1); i number;openrsforselectstdId,commentfromout_school i := 1;fetchrsintostdId,comment;exitwhen record.stdId := stdId; ment := comment; recomment