A Simple Example of Weak Ref Cursor

最新推荐文章于 2021-11-20 10:05:19 发布

最新推荐文章于 2021-11-20 10:05:19 发布 · 80 阅读

本文介绍了一个使用PL/SQL编写的示例程序，该程序通过声明变量、游标和记录类型来从SCOTT模式下的DEPT表中批量收集特定部门的数据，并将结果存储在表格类型的变量中。此外，还展示了如何遍历这些数据并输出。

DECLARE l_sql VARCHAR2(2000) := 'select deptno,loc from scott.dept'; l_where VARCHAR2(200); TYPE dept_curtype IS REF CURSOR; dept_cur dept_curtype; TYPE dept_rec IS RECORD( deptno VARCHAR2(200) --attention the record element order ,loc VARCHAR2(200)); TYPE dept_tbl IS TABLE OF dept_rec; l_dept_tbl dept_tbl; BEGIN l_where := ' where deptno = :deptno'; l_sql := l_sql || l_where; OPEN dept_cur FOR l_sql USING 40 --USING is not necessary ; FETCH dept_cur BULK COLLECT INTO l_dept_tbl; CLOSE dept_cur; dbms_output.put_line('l_str_tbl.COUNT = ' || l_dept_tbl.COUNT); <<l_dept_tbl_loop>> FOR i IN 1 .. l_dept_tbl.COUNT LOOP dbms_output.put_line('l_str_tbl(' || i || ').deptno = ' || l_dept_tbl(i).deptno || ', l_str_tbl(' || i || ').loc = ' || l_dept_tbl(i).loc); END LOOP l_dept_tbl_loop; END;