主要有以下五种循环：Exit When、Loop、While、For(普通循环)、For(游标循环)，下面举例一一说明(均为存储过程)。
1、Exit When循环：
create or replace procedure proc_test_exit_when is
i number;
begin
i:=0;
LOOP
Exit When(i>5);
Dbms_Output.put_line(i);
i:=i+1;
END LOOP;
end proc_test_exit_when;
——————————————————–俺是分割线—————————————————————–
2、Loop循环：
create or replace procedure proc_test_loop is
i number;
begin
i:=0;
loop
i:=i+1;
dbms_output.put_line(i);
if i>5 then
exit;
end if;
end loop;
end proc_test_loop;
——————————————————–俺是分割线—————————————————————–
3、While循环：
create or replace procedure proc_test_while is
i number;
begin
i:=0;
while i<5 loop
i:=i+1;
dbms_output.put_line(i);
end loop;
end proc_test_while;
——————————————————–俺是分割线—————————————————————–
4、For普通循环：
create or replace procedure proc_test_for is
i number;
begin
i:=0;
for i in 1..5 loop
dbms_output.put_line(i);
end loop;
end proc_test_for;
——————————————————–俺是分割线—————————————————————–
5、For游标循环：
create or replace procedure proc_test_cursor is
userRow test%rowtype;
cursor userRows is
select * from test;
begin
for userRow in userRows loop
dbms_output.put_line(userRow.id||’,'||userRow.Name||’,'||userRows%rowcount);
end loop;
end proc_test_cursor;
——————————————————–俺是分割线—————————————————————–
上面所示为存储过程相应代码，你可以通过如下方式进行测试：
进入pl/sql, 执行 文件->新建->程序窗口->空白，拷贝以上各段代码，到pl/sql空白窗口中，安F8执行编译。
再 执行 文件->新建->命令窗口 进入命令窗口 执行一下 set serveroutput on 这句代码，然后，输入exec 相应存储过程，ok。
第5中循环 要求新建一个名为test的表 字段 id、name，插入几条数据，进行测试即可。
1.--创建一个FUNCTION , 名为get_salary,并且有参数no，也有返回值salary。
2.CREATE OR REPLACE FUNCTION get_salary(no NUMBER)
3.RETURN NUMBER IS
4. salary NUMBER(5,2) := 110; --为salary赋值，salary变量临时存放工资的值
5.BEGIN
6. --查询出来的sal值，存放入salary变量中
7. SELECT e.sal into salary FROM emp e WHERE e.empno = no;
8. --返回salary
9. RETURN salary;
10.END;
11.
12.--下面有两种测试方法
13.
14.--测试一
15.DECLARE
16.salary NUMBER(5,2);
17.begin
18. salary := get_salary(7369);
19. dbms_output.put_line(salary);
20.end;
21.
22.--测试二
23.SELECT get_salary(7369) FROM dual;
Oracle学习之数组 Oracle数组一般可以分为固定数组和可变数组
固定数组
declare
type v_ar is varray(10) of varchar2(30);
my_ar v_ar:=v_ar('g','m','d','龚','帅');
begin
for i in 1..my_ar.count
loop
dbms_output.put_line(my_ar(i));
end loop;
end;
可变数组
一维数组
declare
type v_table is table of varchar2(30) index by binary_integer;
--类型可以是前面的类型定义，index by binary_integer子句代表以符号整数为索引，
--这样访问表类型变量中的数据方法就是“表变量名(索引符号整数)”。
my_table v_table;
begin
for i in 1..20
loop
my_table(i):=i;
dbms_output.put_line(my_table(i));
end loop;
end;
多维数组--多条记录
declare
type v_table is table of liutest%rowtype index by binary_integer;
my_table v_table;
begin
select * bulk collect into my_table from liutest;
for i in 1..my_table.count/10 --my_table.count/10取到的值为四舍五入值
loop
dbms_output.put_line('name--'||my_table(i).name);
dbms_output.put_line('address---'||my_table(i).address);
dbms_output.put_line('age----'||my_table(i).age);
end loop;
end;
多维数组--单条记录
declare
type v_table is table of liutest%rowtype index by binary_integer;
my_table v_table;
begin
select * into my_table(1) from liutest where id=1;
--my_table(i) i可以为任意整数，但取值时必须保持以i一致；
dbms_output.put_line('--name--'||my_table(1).name||'--address--'||my_table(1).address);
end;
自定义数组
create or replace type varray_list as varray(30) of varchar2(50);
--使用自定义数组
create or replace procedure show_list(p_varlist in varray_list)
is
v_str varchar2(50);
begin
for i in 1..p_varlist.count
loop
v_str:=p_varlist(i);
dbms_output.put_line('v_str='||v_str);
dbms_output.put_line('p_varlist('||i||')='||p_varlist(i));
end loop;
end;
declare
my_var varray_list:=varray_list('g','m','d','龚','帅');
begin
show_list(my_var);
end;
-- Created on 2012-4-26 星期四 by ADMINISTRATOR
declare
-- Local variables here
i integer;
s varchar2(200) :='g-m-d-龚-帅';
--type v_ar is varray(10) of varchar2(30);
my_ar ty_str_split;
begin
-- Test statements here
my_ar :=fn_split(s,'-');
for i in 1..my_ar.count
loop
dbms_output.put_line(my_ar(i));
end loop;
dbms_output.put_line(0.2+ 0.1*(0.22-0.23));
end;
