-
案例4分析：查看全部
-
案例4查看全部
-
declare --获取所有部门 cursor c_dept is select deptno from dept; --各部门编号 p_dno dept.deptno%type; --各部门总金额 p_totalsal number; --各工资分段人数： num1 number; num2 number; num3 number; --定义一个游标存放该部门下所有员工(带参数) cursor c_emp(dno number) is select sal from emp where deptno = dno; --员工的薪水 p_sal number; begin --打开部门游标 open c_dept; loop --部门循环 fetch c_dept into p_dno; exit when c_dept%notfound; --初始化变量： p_totalsal:=0; num1:=0; num2:=0; num3:=0; -- --获取本部门下所有员工,打开员工游标 open c_emp(p_dno); loop --员工循环 fetch c_emp into p_sal; exit when c_emp%notfound; if p_sal <3000 then num1:=num1+1; elsif p_sal >=3000 and p_sal<=6000 then num2:=num2+1; elsif p_sal>6000 then num3:=num3+1; end if; --获取总金额 p_totalsal:=p_totalsal+p_sal; end loop; close c_emp; --保存统计结果到sal_msg insert into sal_msg values(p_dno,num1,num2,num3,p_totalsal); end loop; close c_dept; commit; dbms_output.put_line('统计完成'); end; /查看全部
-
/* 案例3：将emp表中的员工按部门分段（-3000,3000-6000,6000+）统计各工资段人数和各部门的工资总额 分析： 1、sql语句： --获取所有部门：select deptno from dept; --获取每个部门下的员工:select emono,sal from emp where deptno = p_dno; 2、需要声明的变量： 各部门编号p_dno； 各部门工资总额：totalsal； 各部门每个分段的人数： num1； num2; num3; */查看全部
-
/* 案例2：涨工资问题，从最低工资的员工开始涨起，没人涨10%，工资总额不能超过50000，返回涨工资的人数和涨后的工资总额 分析： 1、用到的sql语句： select empno,sal from emp order by sal; select sum(sal) into totalsal from emp; 2、需要声明的变量： 工资总额：totalsal 涨工资人数：count 3、循环推出的条件： 工资总额>5W or 全部员工都涨完工资 */ declare cursor cemp is select empno,sal from emp order by sal; p_no emp.empno%type; p_sal emp.sal%type; countemp number:=0;--涨工资人数 totalsal emp.sal%type; begin --获取初始工资总额 select sum(sal) into totalsal from emp; open cemp; --判断当前工资总额是否大于5W if totalsal<50000 then loop fetch cemp into p_no,p_sal; exit when cemp%notfound; --获取当前员工涨工资后的工资总额 --如果工资总额超过5W直接退出循环 exit when (totalsal+p_sal*0.1)>50000; update emp set sal=sal*1.1 where empno=p_no; --涨工资人数加1 countemp:=countemp+1; end loop; end if; close cemp; commit; dbms_output.put_line('共有'countemp'人涨工资，工资总额为：'totalsal); end; /查看全部
-
--案例1：统计每年入职的员工人数，80,81,82,87年的 declare --定义一个游标存放所有员工的入职年份 cursor c_dates is select to_char(hiredate,'yyyy') from emp; p_hiredate varchar2(20); p_80num number :=0; p_81num number :=0; p_82num number :=0; p_87num number :=0; begin open c_dates; loop fetch c_dates into p_hiredate; exit when c_dates%notfound; if p_hiredate ='1980' then p_80num:=p_80num+1; elsif p_hiredate ='1981' then p_81num:=p_81num+1; elsif p_hiredate ='1982' then p_82num:=p_82num+1; elsif p_hiredate ='1987' then p_87num:=p_87num+1; end if; end loop; close c_dates; dbms_output.put_line('Total:'(p_80num+p_81num+p_82num+p_87num)); dbms_output.put_line('80入职的:'p_80num); dbms_output.put_line('81入职的:'p_81num); dbms_output.put_line('82入职的:'p_82num); dbms_output.put_line('87入职的:'p_87num); end; /查看全部
-
--自定义例外：（没有查找到的例外no_emp_found） declare cursor c_emp is select ename from emp where deptno=50; p_ename emp.ename%type; --定义一个例外 no_emp_found exception; begin open c_emp; --获取一条记录 fetch c_emp into p_ename; --如果没有查到则抛出自定义例外 if c_emp%notfound then raise no_emp_found; end if; --此处，当前一句抛出例外执行完exception后， --oracle会自动启动一个pmon(process monitor)的一个进程 --将pl/sql程序中未关闭的资源释放 --所以 close c_emp; 还是会执行的 close c_emp; --捕获例外 exception when no_emp_found then dbms_output.put_line('没有该部门下的员工'); when others then dbms_output.put_line('其他例外'); end; /查看全部
-
--系统例外：value_error算术或转换例外 declare pnum number; begin pnum:='abd'; exception when value_error then sys.dbms_output.put_line('算术或者转换错误'); when others then sys.dbms_output.put_line('其它例外'); end; /查看全部
-
--系统例外：zero_divide 被0除 declare pnum number; begin pnum:=1/0; exception when zero_divide then sys.dbms_output.put_line('0不能做除数'); sys.dbms_output.put_line('0真的不能做除数'); when others then sys.dbms_output.put_line('其它例外'); end; /查看全部
-
--系统例外：too_many_rows; declare pename emp.ename%type; begin select ename into pename from emp where deptno=10; SYS.DBMS_OUTPUT.PUT_LINE(pename); exception when no_data_found then sys.dbms_output.put_line('没有对应的记录'); when too_many_rows then sys.dbms_output.put_line('无法将多行记录赋值给一个普通变量'); when others then sys.dbms_output.put_line('其它例外'); end; /查看全部
-
--系统例外：no_data_found declare pename emp.ename%type; begin select ename into pename from emp where empno=222222; SYS.DBMS_OUTPUT.PUT_LINE(pename); exception when no_data_found then sys.dbms_output.put_line('没有对应的记录'); when others then sys.dbms_output.put_line('其它例外'); end; /查看全部
-
系统例外：查看全部
-
系统例外：查看全部
-
光标就是一个结果集；<br> 光标的语法： eg: --使用带参数的光标 declare --定义一个带参数的游标 cursor c_emp(dno number) is select ename from emp where deptno=dno; p_ename emp.ename%type; begin --打开游标时需要参入实参 open c_emp(10); loop fetch c_emp into p_ename; exit when c_emp%notfound; DBMS_OUTPUT.PUT_LINE(p_ename); end loop; close c_emp; end; /查看全部
-
--使用 show parameter cursors;语句查看包含cursors的参数设置 NAME TYPE VALUE ------------------------------------ ----------- ------------------------------ cursor_sharing string EXACT cursor_space_for_time boolean FALSE open_cursors integer 300 session_cached_cursors integer 50 --默认的一个会话最多可以打开300个光标 修改光标数的限制： alter system set open_cursors=400 scope = both; 其中scope的取值：both，memory，spfile memory：表示只更改当前实例，不更改参数文件 spfile：表示只更改参数文件，不更改当前示例，数据库服务需要重启 both：表示上边两个同事更改查看全部
举报
0/150
提交
取消