Oracle 大型数据库技术 2021实验项目八-附加
Oracle 大型数据库技术 2021实验项目八-附加
实验内容
1、创建一个存储过程,以一个整数为参数,输出scott模式下emp表中工资最高的前几个(参数值为多少,就显示排名前几位的工资)员工的信息。存储过程创建成功后并执行,将所有执行正确的PL/SQL语句记录下来。
代码:
create or replace procedure emp_sort(
i in number) is
j number:=0;
begin
for r in (select empno,ename,sal from emp order by sal desc) loop
dbms_output.put_line(r.empno||' '||r.ename||''||r.sal);
j:=j+1;
exit when j=i;
end loop;
end emp_sort;
/
PS:游标游标!还有降序排序!
2、创建一个存储过程,对scott模式下emp表进行操作,要求:以员工号和部门号作为参数,将员工所在的部门修改为参数送入的部门号。
- 如果修改成功,则显示“员工由……号部门调入……号部门”;
- 如果不存在该员工,则显示 “员工号不存在,请输入正确的员工号”;
- 如果不存在该部门,则显示“该部门不存在,请输入正确的部门号”。
代码:
create or replace procedure update_deptno(
v_eno in number,
v_deptno in number) is
v_nocount number;
v_deptnocount number;
v_deptnoon number;
begin
select count(*)
into v_nocount
from emp
where v_eno=empno;
if v_nocount=0 then
dbms_output.put_line('员工号不存在,请输入正确的员工号');
else
select deptno
into v_deptnoon
from emp
where v_eno=empno;
select count(*)
into v_deptnocount
from dept
where v_deptno=deptno;
if v_deptnocount=0 then
dbms_output.put_line('该部门不存在,请输入正确的部门号');
else
update emp
set deptno=v_deptno
where v_eno=empno;
dbms_output.put_line('员工由'||v_deptnoon||'号部门调入'||v_deptno||'号部门');
end if;
end if;
end update_deptno;
/