第十四章 PLSQL语言基础.ppt

* 要求根据输入的不同表名进行不同处理，若表名为emp，则显示高于10号部门平均工资的员工信息；若表名为dept，则显示各个部门的人数。 * DECLARE v_table CHAR(20); TYPE type_cursor IS REF CURSOR; v_cursor type_cursor; v_emp emp%ROWTYPE; v_deptno emp.deptno%TYPE; v_num NUMBER; BEGIN v_table:=table_name; IF v_table = emp THEN OPEN v_cursor FOR SELECT * FROM emp WHERE sal( SELECT AVG(sal) FROM emp WHERE deptno=10); ELSIF v_table = dept THEN OPEN v_cursor FOR SELECT deptno,count(*) num FROM emp GROUP BY deptno; ELSE RAISE_APPLICATION_ERROR(-20000,Input must be emp‘ or dept); END IF; * LOOP IF v_table = emp THEN FETCH v_cursor INTO v_emp; EXIT WHEN v_cursor%NOTFOUND; DBMS_OUTPUT.PUT_LINE(v_emp.empno|| || v_emp.ename|| || v_emp.sal|| || v_emp.deptno); ELSE FETCH v_cursor INTO v_deptno,v_num; EXIT WHEN v_cursor%NOTFOUND; DBMS_OUTPUT.PUT_LINE(v_deptno|| ||v_num); END IF; END LOOP; CLOSE v_cursor; END; * 作业 1.使用PL/SQL程序计算1到100的和 2.课本P410 第2题（1） 数据表 scott.emp(ename,empno,sal,deptno) * （8）将SCOTT模式下EMP，DEPT表导出 准备工作：在SQL*PLUS执行SQL语句 1.创建DIRECTORY目录对象： CREATE OR REPLACE DIRECTORY mydir AS ‘D:\ORACLE\BACKUP’;　 2.并将该对象的READ，WRITE权限授予用户 GRANT READ,WRITE ON DIRECTORY mydir TO SCOTT; 在开始菜单的“运行”中输入cmd，进入命令行模式 C:\expdp scott/tiger DIRECTORY= mydir DUMPFILE=emp_dept.dmp TABLES=emp,dept * （9）将SCOTT模式下EMP，DEPT表删除，并使用导出文件恢复 删除EMP，DEPT表 在cmd中执行导入命令 C:\impdp scott/tiger DIRECTORY=mydir DUMPFILE=emp_dept.dmp TABLES=emp,dept * P297 2（2）输出所有比本部门平均工资高的员工信息 declare v_deptno scott.emp.deptno%type; v_emp scott.emp%rowtype; cursor my is select * from scott.emp where sal(select avg(sal) from scott.emp where deptno=v_deptno) ; begin v_deptno:=x; open my; fetch my into v_emp; while my%found loop dbms_output.put_line(v_emp.em