oracle中游标，函数，过程的例子

偏执的太偏执、 2022-08-19 02:22 211阅读 0赞

关于 游标 if,for 的例子   
create or replace procedure peace\_if   
is   
cursor var\_c is select \* from grade;   
begin   
for temp in var\_c loop   
if temp.course\_name = 'OS' then   
dbms\_output.put\_line('Stu\_name = '||temp.stu\_name);   
elsif temp.course\_name = 'DB' then   
dbms\_output.put\_line('DB');   
else   
dbms\_output.put\_line('feng la feng la ');   
end if;   
end loop;   
end;   
\---关于游标 for,case 的例子1   
create or replace procedure peace\_case1   
is   
cursor var\_c is select \* from test\_case;   
begin   
for temp in var\_c loop   
case temp.vol   
when 1 then   
dbms\_output.put\_line('haha1');   
when 2 then   
dbms\_output.put\_line('haha2');   
when 3 then   
dbms\_output.put\_line('haha3');   
when 4 then   
dbms\_output.put\_line('haha4');   
else   
dbms\_output.put\_line('qita');   
end case ;   
end loop;   
end;   
\---关于游标 for,case 的例子2   
create or replace procedure peace\_case2   
is   
cursor var\_c is select \* from test\_case;   
begin   
for temp in var\_c loop   
case   
when temp.vol=1 then   
dbms\_output.put\_line('haha1');   
when temp.vol=2 then   
dbms\_output.put\_line('haha2');   
when temp.vol=3 then   
dbms\_output.put\_line('haha3');   
when temp.vol=4 then   
dbms\_output.put\_line('haha4');   
else   
dbms\_output.put\_line('qita');   
end case ;   
end loop;   
end;   
\---关于for 循环的例子   
create or replace procedure peace\_for   
is   
sum1 number :=0;   
temp varchar2(500);   
begin   
for i in 1..9 loop   
temp := '';   
for j in 1 .. i   
loop   
sum1 := i \* j;   
temp := temp||to\_char(i) || ' \* ' ||to\_char(j) ||' = ' ||to\_char(sum1) ||' ';   
end loop;   
dbms\_output.put\_line(temp );   
end loop;   
end;   
\---关于 loop循环的例子   
create or replace procedure peace\_loop   
is   
sum1 number := 0;   
temp number :=0 ;   
begin   
loop   
exit when temp >= 10 ;   
sum1 := sum1+temp;   
temp := temp +1;   
end loop;   
dbms\_output.put\_line(sum1 );   
end;   
  
  
\---关于游标和loop循环的例子   
create or replace procedure loop\_cur   
is   
stu\_name varchar2(100);   
course\_name varchar2(100);   
cursor var\_cur is select \* from grade ;   
begin   
open var\_cur;   
loop   
fetch var\_cur into stu\_name,course\_name;   
exit when var\_cur%notfound;   
dbms\_output.put\_line(stu\_name|| course\_name);   
end loop;   
close var\_cur;   
end;   
\---关于异常处理的例子   
create or replace procedure peace\_exp(in1 in varchar2)   
is   
c\_n varchar2(100);   
begin   
select course\_name into c\_n from grade where stu\_name = in1;   
dbms\_output.put\_line(c\_n);   
exception   
when no\_data\_found   
then   
dbms\_output.put\_line('try');   
when TOO\_MANY\_ROWS   
then   
dbms\_output.put\_line('more');   
end;   
  
  
\---关于异常处理的例子2   
create or replace procedure peace\_insert ( c\_n in varchar2)   
is   
error EXCEPTION;   
begin   
if c\_n = 'OK'   
then   
insert into course (course\_name) values (c\_n);   
elsif c\_n = 'NG' then   
insert into course (course\_name) values (c\_n);   
raise error;   
else   
Dbms\_Output.put\_line('c\_n' || c\_n);   
end if;   
commit;   
exception   
when error then   
rollback;   
Dbms\_Output.put\_line('ERRO');   
end;   
\---关于包的例子 定义包   
create or replace package peace\_pkg   
as   
function test1(in1 in varchar2)   
return number;   
procedure test2 (in2 in varchar2);   
end peace\_pkg;   
\---关于包的例子 定义包体   
create or replace package body peace\_pkg   
as   
function test1(in1 in varchar2)   
return number   
as   
temp number;   
begin   
temp := 0;   
return temp;   
end;   
procedure test2 (in2 in varchar2)   
is   
begin   
dbms\_output.put\_line(in2);   
end;   
end peace\_pkg;