ORACLE存储过程开发基础语法

1、创建存储过程createorreplaceproceduretest(var_name_1intype,var_name_2outtype)as--声明变量(变量名变量类型)begin--存储过程的执行体endtest;打印出输入的时间信息E.g:createorreplaceproceduretest(workDateinDate)isbegindbms_output.putline('Theinputdateis:'||to_date(workDate,'yyyy-mm-dd'));endtest;2、变量赋值变量名:=值;E.g：createorreplaceproceduretest(workDateinDate)isxnumber(4,2);beginx:=1;endtest;3、判断语句:if比较式thenbeginend;endif;E.gcreateorreplaceproceduretest(xinnumber)isbeginifx0thenbeginx:=0-x;end;endif;ifx=0thenbeginx:=1;end;endif;endtest;4、For循环For...in...LOOP--执行语句endLOOP;(1)循环遍历游标createorreplaceproceduretest()asCursorcursorisselectnamefromstudent;namevarchar(20);beginfornameincursorLOOPbegindbms_output.putline(name);end;endLOOP;endtest;(2)循环遍历数组createorreplaceproceduretest(varArrayinmyPackage.TestArray)as--(输入参数varArray是自定义的数组类型，定义方式见标题6)inumber;begini:=1;--存储过程数组是起始位置是从1开始的，与java、C、C++等语言不同。因为在Oracle中本是没有数组的概念的，数组其实就是一张--表(Table),每个数组元素就是表中的一个记录，所以遍历数组时就相当于从表中的第一条记录开始遍历foriin1..varArray.countLOOPdbms_output.putline('TheNo.'||i||'recordinvarArrayis:'||varArray(i));endLOOP;endtest;5、While循环while条件语句LOOPbeginend;endLOOP;E.gcreateorreplaceproceduretest(iinnumber)asbeginwhilei10LOOPbegini:=i+1;end;endLOOP;endtest;6、数组首先明确一个概念：Oracle中本是没有数组的概念的，数组其实就是一张表(Table),每个数组元素就是表中的一个记录。使用数组时，用户可以使用Oracle已经定义好的数组类型，或可根据自己的需要定义数组类型。(1)使用Oracle自带的数组类型xarray;--使用时需要需要进行初始化e.g:createorreplaceproceduretest(youtarray)isxarray;beginx:=newarray();y:=x;endtest;(2)自定义的数组类型(自定义数据类型时，建议通过创建Package的方式实现，以便于管理)E.g(自定义使用参见标题4.2)createorreplacepackagemyPackageis--Publictypedeclarationstypeinfoisrecord(namevarchar(20),ynumber);typeTestArrayistableofinfoindexbybinary_integer;--此处声明了一个TestArray的类型数据，其实其为一张存储Info数据类型的Table而已，及TestArray就是一张表，有两个字段，一个是name，一个是y。需要注意的是此处使用了Indexbybinary_integer编制该Table的索引项，也可以不写，直接写成：typeTestArrayistableofinfo，如果不写的话使用数组时就需要进行初始化：varArraymyPackage.TestArray;varArray:=newmyPackage.TestArray();endTestArray;7.游标的使用Oracle中Cursor是非常有用的，用于遍历临时表中的查询结果。其相关方法和属性也很多，现仅就常用的用法做一二介绍：(1)Cursor型游标(不能用于参数传递)createorreplaceproceduretest()iscusor_1Cursorisselectstd_namefromstudentwhere...;--Cursor的使用方式1cursor_2Cursor;beginselectclass_nameintocursor_2fromclasswhere...;--Cursor的使用方式2可使用ForxincursorLOOP....endLOOP;来实现对Cursor的遍历endtest;(2)SYS_REFCURSOR型游标，该游标是Oracle以预先定义的游标，可作出参数进行传递createorreplaceproceduretest(rsCursoroutSYS_REFCURSOR)iscursorSYS_REFCURSOR;namevarhcar(20);beginOPENcursorFORselectnamefromstudentwhere...--SYS_REFCURSOR只能通过OPEN方法来打开和赋值LOOPfetchcursorintoname--SYS_REFCURSOR只能通过fetchinto来打开和遍历exitwhencursor%NOTFOUND;--SYS_REFCURSOR中可使用三个状态属性：---%NOTFOUND(未找到记录信息)%FOUND(找到记录信息)---%ROWCOUNT(然后当前游标所指向的行位置)dbms_output.putline(name);endLOOP;rsCursor:=cursor;endtest;