参数游标&动态游标

Oracle带参数游标

例子

DECLARE

dept_code emp.deptno%TYPE; --声明列类型变量三个

emp_codeemp.empno%TYPE;

emp_nameemp.ename%TYPE;

CURSOR emp_cur(deptparam NUMBER) IS

SELECT empno, ename FROM EMP WHERE deptno = deptparam; --声明显示游标

BEGIN

dept_code := &部门编号; --请用户输入想查看的部门编号

OPEN emp_cur(dept_code); --打开游标

LOOP

--死循环

FETCH emp_cur

INTO emp_code, emp_name; --提取游标值赋给上面声明的变量

EXIT WHEN emp_cur%NOTFOUND; --如果游标里没有数据则退出循环

DBMS_OUTPUT.PUT_LINE(emp_code || '' || emp_name); --输出查询

END LOOP;

CLOSE emp_cur; --关闭游标

END;

Oracle引用游标

ACCEPT tab FROMPT '你想查看什么信息?员工(E)或部门信息(D):'; --使用ACCEPT命令弹出对话框让用户输入数据

DECLARE

TYPE refcur_t IS REF CURSOR;--声明REF游标类型

refcurrefcur_t; --声明REF游标类型的变量

pidNUMBER;

p_nameVARCHAR2(100);

selection VARCHAR2(1) := UPPER(SUBSTR('&tab', 1, 1)); --截取用户输入的字符串并转换为大写

BEGIN

IF selection = 'E' THEN

--如果输入的是'E',则打开refcurr游标,并将员工表查询出来赋值给此游标

OPENrefcurFOR

SELECT EMPNO ID, ENAME NAME FROM EMP;

DBMS_OUTPUT.PUT_LINE('=====员工信息=====');

ELSIF selection = 'D' THEN

--如果输入是'D',则打开部门表

OPEN refcur FOR

SELECT deptno id, dname name FROM DEPT;

DBMS_OUTPUT.PUT_LINE('=====部门信息======');

ELSE

--否则返回结束

DBMS_OUTPUT.PUT_LINE('请输入员工信息(E)或部门信息(D)');

RETURN;

END IF;

FETCH refcur

INTO pid, p_name; --提取行

WHILE refcur%FOUND LOOP

DBMS_OUTPUT.PUT_LINE('#' || pid || ':' || p_name);

FETCH refcur

INTO pid, p_name;

END LOOP;

CLOSE refcur; --关闭游标

END;

Oracle动态游标

VARIABLE maxsal NUMBER; --声明变量

EXECUTE :maxsal := 2500; --执行引用并给变量赋值

DECLARE

r_emp EMP%ROWTYPE; --声明一个行类型变量

TYPE c_type IS REF CURSOR; --声明REF游标类型

curc_type; --声明REF游标类型的变量

p_salary NUMBER; --声明一个标量变量

BEGIN

p_salary := :maxsal; --引用变量

--使用USING语句将引用到的值传给动态SQL语句'SAL >: 1'中的'1'

OPENcurFOR'SELECT * FROM EMP WHERE SAL >: 1ORDER BY SAL DESC'

USINGp_salary;

DBMS_OUTPUT.PUT_LINE('薪水大于' || p_salary || '的员工有:');

LOOP

FETCH cur

INTO r_emp;

EXIT WHEN cur%NOTFOUND;

DBMS_OUTPUT.PUT_LINE('编号:' || r_emp.empno || '姓名:' || r_emp.ename ||

'薪水:' || r_emp.sal);

END LOOP;

CLOSE cur; --关闭游标

END;