oracle数据库游标的创建,Oracle数据库—— 游标的创建和应用

最新推荐文章于 2024-04-22 21:19:19 发布

椰子大魔头

最新推荐文章于 2024-04-22 21:19:19 发布

阅读量653

点赞数

文章标签： oracle数据库游标的创建

一、涉及内容

游标的创建与应用

二、具体操作

(一)填空题

1.PL/SQL 程序块主要包含3个部分：声明部分、(执行部分 )、异常处理部分。

2.自定义异常必须使用(RAISE )语句引发。

(二)选择题

1.下列哪一个不是BOOLEAN变量可能的取值？(D )

A.TRUE B.FALSE C.NULL D.BLANK

2.请查看以下IF语句：

Declaresalnumber:=500;

commnumber;Begin

If sal <100 thenComm :=0;

Elsif sal<600 thenComm:=sal*0.1;Else sal <1000 thenComm:=sal*0.15;ElseComm:=sal*0.2;End if;End;

在执行了以上语句之后，变量comm 的结果应是：(B )

A.0 B.50 C.75 D.100

3．在以下哪些语句中可以包含WHERE CURRENT OF 子句？(CE)

A.OPEN B.FETCH C.DELETE D.SELECT E.UPDATE F.CURSOR

4.在异常和oracle错误之间建立关联时，应该在哪个部分完成？(C)

A.定义部分 B.执行部分 C.异常处理部分

5.只能存在一个值的变量是哪种变量？(B )

A.游标 B.标量变量 C.游标变量 D.记录变量

(三)编程题

1.编写程序计算并输出1~100的和。

方案一：

语句：

Declarev_suminteger:=0;begin

for i in 1..100loop

v_sum := v_sum+i;endloop;

dbms_output.put_line(‘1~100的和为：’||v_sum);end;/

截图：

方案二：

语句：

Declarev_suminteger;beginv_sum := 100*101/2;

dbms_output.put_line(‘1~100的和为：’||v_sum);end;/

截图：

2.分别使用显式游标和隐式游标逐行输出scott.emp表中的员工姓名和工资。

(一)使用显式游标

语句：

DECLARE

CURSOR emp_cursor01 IS SELECT ename,sal FROMscott.emp;

emp_record emp_cursor01%ROWTYPE;BEGIN

OPENemp_cursor01 ;

LOOPFETCH emp_cursor01 INTOemp_record;EXIT WHEN emp_cursor01%NOTFOUND;

dbms_output.put_line(‘ename:‘||emp_record.ename||‘,sal:‘||emp_record.sal);ENDLOOP;

dbms_output.put_line(‘row count:‘||emp_cursor01%rowcount);CLOSEemp_cursor01;END;

截图：

(二)使用隐式游标

语句：

BEGIN

FOR emp_record IN (SELECT ename,sal FROMscott.emp)

LOOP

dbms_output.put_line(‘ename:‘||emp_record.ename||‘,sal:‘||emp_record.sal);ENDLOOP;END;

截图：

(补充练习)

1、创建一个表top_dogs，包含两列：name varchar2(25) 和 salary NUMBER(11,2)，用来存放员工姓名和工资。

语句：

create tabletop_dogs

(namevarchar2(25),

salaryNUMBER(11,2));

截图：

2、创建一个PL/SQL块，查询出工资水平前n名的员工。具体要求如下：

(1)通过替代变量读取n的值。

(2)通过循环从emp表中获取工资在前n名的员工的姓名和工资

(3)将得到的员工姓名和工资写入top_dogs表。

(4)如果有多名员工的工资相同，则每人都占n名中的一个名额。

(5)测试特殊情况，例如n=0或者n大于员工总数。

(6)每次向top_dogs 表中写入数据前，先清空该表中的数据。

方案一：

语句：

DECLARE

CURSOR emp_cursor(n number) IS SELECT ename,sal FROMscott.empORDER BY sal DESC;

v_ninteger := &n;BEGIN

delete fromtop_dogs;FOR rec INemp_cursor(v_n) LOOPIF emp_cursor%ROWCOUNT <=v_n THEN

insert into top_dogs values(rec.ename,rec.sal);

dbms_output.put_line(‘ename:‘||rec.ename||‘sal:‘||rec.sal);

ELSIF v_n<=0 or v_n>emp_cursor%ROWCOUNT thendbms_output.put_line(‘error!‘);ELSE EXIT; --退出循环

END IF;ENDLOOP;END;/

截图：

n=3以及n=4:

测试n=0以及n=100的情况：

方案二：

语句：

DECLARE

CURSOR emp_cursor IS SELECT ename,sal FROMscott.empORDER BY sal DESC;

v_ninteger := &n;BEGIN

delete fromtop_dogs;FOR rec INemp_cursor

LOOPExit when emp_cursor%notfound;Exit when emp_cursor%ROWCOUNT>v_n;insert into top_dogs values(rec.ename,rec.sal);--dbms_output.put_line(‘ename: ‘||rec.ename||‘ sal:‘||rec.sal);

ENDLOOP;END;/

截图：

输入n:2

输入n:3

Select * from top_dogs

输入n:0

Select * from top_dogs

输入n:100

Select * from top_dogs

3、在上题的基础上，如果员工工资相同(并列第几名)，需要将前n名的员工全部输出。

语句：

DECLARE

CURSOR emp_cursor IS SELECT ename,sal FROMscott.empORDER BY sal DESC;

v_ninteger := &n;

v_sal scott.emp.sal%type;BEGIN

delete fromtop_dogs;FOR rec INemp_cursor

LOOPExit when emp_cursor%notfound;Exit when emp_cursor%ROWCOUNT>v_n and v_sal<>rec.sal;

V_sal:=rec.sal;insert into top_dogs values(rec.ename,rec.sal);--dbms_output.put_line(‘ename: ‘||rec.ename||‘ sal:‘||rec.sal);

ENDLOOP;END;

输入n 的值：2

Select * from top_dogs

有三条记录

截图：

4、使用游标查询dept表的部门编号和名称，将其部门编号传递给另一个用于查询emp表的游标(查询emp表的员工姓名，工作，雇佣日期，工资)。

语句：

Declare

Cursor dept_cur is select deptno,dname fromscott.dept;Cursor emp_cur (c_deptno scott.emp.deptno%type) is select ename,job,hiredate,sal from scott.emp where deptno=c_deptno;

Emp_rec emp_cur%rowtype;Begin

For dept_rec indept_cur

LoopOpenemp_cur(dept_rec.deptno);

LoopFetch emp_cur intoEmp_rec;Exit when emp_cur%notfound;

Dbms_output.put_line(‘ename:‘|| Emp_rec.ename||‘job:‘|| Emp_rec.job||‘hiredate:‘|| Emp_rec.hiredate||‘sal:‘||Emp_rec.sal);Endloop;Closeemp_cur;Endloop;End;/

截图：