刘洋.txt

来自「关于oracle和sql的书籍和ppt教程,非常好,本人珍藏品」· 文本 代码 · 共 43 行

1，定义一个函数，输入一个大于0的整数n， 返回1到n的整数和
create or replace function sumn(n int)
return int
is
summ int; 
i int:=1;
--input_error exception;
begin
 for i in 1..n loop
 summ:=summ+i;
 end loop;
 return summ;
end;

declare 
sunm int;
begin
sunm:=sumn(&n);
--sunm:=10;
dbms_output.put_line(sunm);
end;

2，定义一个函数，输入emp的empno，返回该行的sal
create or replace function get_sal (n emp.empno%type)
return number
is
--getsal emp.sal%type;
sall emp.sal%type;

begin
select sal into sall from emp where empno=n;
return sall;
end;
   定义一个更新emp表sal的存储过程，输入参数为empno,sal,根据empno更新相应的sal
create or replace procedure ly_up_emp(ly_empno emp.empno%type,ly_sal emp.sal%type)
is	
begin
update emp set sal=ly_sal where empno=ly_empno;
commit;
end;
   定义一个table 里面存放的是%rowtype类型，用该类型定义一个变量datas，从emp表取五行记录放到datas里面进行循环，循环里完成以下操作：先通过刚才定义的函数取sal，如果sal<2500 ,调用刚才写的存储过程更新sal为3600