0604【任务6-4】使用游标从“员工信息表”中读取指定部门的员工信息

5
该PL/SQL程序使用Loop循环语句循环读取
记录数据，其运行结果如下所示。 行数 员工编号 员工姓名 性别 部门 1 2 18259 84576 聂秋 潘荣平 男 男 105 105
6
《 Oracle 12c数据库应用与设计》
3
【任务实施】
实现本任务功能的PL/SQL程序如代码6-4所示。
代码6-4 Declare Cursor employee_cursor (dept_num char := '101' ) --声明游标 Is Select 员工编号 , 员工姓名 , 性别 , 部门 From 员工信息表 Where 部门=dept_num ; Type employee_type Is Record ( --创建记录类型 employee_num 员工信息表.员工编号%Type , employee_name 员工信息表.员工姓名%Type , employee_sex 员工信息表.性别%Type , employee_dept 员工信息表.部门%Type ); employee_info employee_type ; --声明记录类型的变量
Oracle 12c 数据库应用与设计
《 Oracle 12c数据库应用与设计》
单元6 编写PL/SQL程序处理 Oracle数据库的数据
6.2 创建与操作游标
2
《 Oracle 12c数据库应用与设计》
【任务6-4】使用游标从“员工信息表”
中读取指定部门的员工信息
Fra Baidu bibliotek【任务描述】
声明一个带参数的游标 employee_cursor ， 参数用于指定部门编号，使用该游标和 Loop 循 环语句从“员工信息表”中读取指定部门编号的 所有员工信息，并以类似表格的形式输出这些员 工信息。
4
代码6-4（续表） Begin Open employee_cursor ('105') ; --打开游标 DBMS_Output.Put_Line('行数 员工编号 员工姓名 性别 部门'); Loop Fetch employee_cursor Into employee_info ; --检索数据 Exit When employee_cursor%NotFound ; --当所有记录检索完成后退出循环 DBMS_Output.Put_Line(employee_cursor%RowCount || ' ' || employee_info.employee_num || ' ' || employee_info.employee_name || ' ' || employee_info.employee_sex || ' ' || employee_info.employee_dept ) ; End Loop ; Close employee_cursor ; --关闭游标 Exception When No_Data_Found Then DBMS_Output.Put_Line('没有获取数据') ; End ;