PLSQL存储回顾-优快云博客

本文介绍PL/SQL中批量插入数据、使用批量绑定进行表备份等操作的方法，并提供了几种不同类型的存储过程示例，包括简单过程、带IN、OUT及INOUT参数的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

PROCEDURE TEST_PROC1 AS

   TYPE ID_TABLE_TYPE IS TABLE OF NUMBER(6) INDEX BY BINARY_INTEGER;

   TYPE NAME_TABLE_TYPE IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;

   ID_TABLE   ID_TABLE_TYPE;

   NAME_TABLE NAME_TABLE_TYPE;

   START_TIME NUMBER(10);

   END_TIME   NUMBER(10);

BEGIN

   FOR I IN 1 .. 10000 LOOP

     ID_TABLE(I) := I;

     NAME_TABLE(I) := 'name' || TO_CHAR(I);

   END LOOP;

   START_TIME := DBMS_UTILITY.GET_TIME;

   FOR I IN 1 .. ID_TABLE.COUNT LOOP

     INSERT INTO DEMO VALUES (ID_TABLE(I), NAME_TABLE(I));

   END LOOP;

   END_TIME := DBMS_UTILITY.GET_TIME;

   DBMS_OUTPUT.PUT_LINE((END_TIME - START_TIME) / 100);

END TEST_PROC1;

PROCEDURE TEST_PROC2 AS

   TYPE ID_TABLE_TYPE IS TABLE OF NUMBER(6) INDEX BY BINARY_INTEGER;

   TYPE NAME_TABLE_TYPE IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;

   ID_TABLE   ID_TABLE_TYPE;

   NAME_TABLE NAME_TABLE_TYPE;

   START_TIME NUMBER(10);

   END_TIME   NUMBER(10);

BEGIN

   FOR I IN 1 .. 10000 LOOP

     ID_TABLE(I) := I;

     NAME_TABLE(I) := 'name' || TO_CHAR(I);

   END LOOP;

   START_TIME := DBMS_UTILITY.GET_TIME;

   FORALL I IN 1 .. ID_TABLE.COUNT

     INSERT INTO DEMO VALUES (ID_TABLE(I), NAME_TABLE(I));

   END_TIME := DBMS_UTILITY.GET_TIME;

   DBMS_OUTPUT.PUT_LINE((END_TIME - START_TIME) / 100);

END TEST_PROC2;

PROCEDURE TEST_PROC3 AS

/*

*功能：使用批量绑定实现表的备份

*

*/

   TYPE DEPTRECTAB IS TABLE OF DEPT%ROWTYPE;

   DEPT_RECS DEPTRECTAB;

   CURSOR C1 IS

     SELECT DEPTNO, DNAME, LOC FROM DEPT WHERE DEPTNO < 4444444444;

BEGIN

   BEGIN

     OPEN C1;

     FETCH C1 BULK COLLECT

       INTO DEPT_RECS;

       FOR i IN DEPT_RECS.FIRST..DEPT_RECS.LAST LOOP

       dbms_output.put_line(DEPT_RECS(i).deptno);

       dbms_output.put_line(DEPT_RECS(i).dname);

       dbms_output.put_line(DEPT_RECS(i).loc);

       END LOOP;

       FORALL i IN DEPT_RECS.FIRST..DEPT_RECS.LAST

         INSERT INTO dept_bk VALUES DEPT_RECS(i);

         COMMIT;

       CLOSE c1;

   END;

END TEST_PROC3;

PROCEDURE test_proc4 AS

/*

*功能：最简单的存储过程,没有任何参数

*

*/

BEGIN

    dbms_output.put_line(SYSDATE);

END test_proc4;

PROCEDURE test_proc5(vno IN NUMBER,vname VARCHAR2)

/*

*功能：有IN参数的存储过程例子,主要说明应用程序的参数可以在过程中直接使用

*

*/

IS

BEGIN

   INSERT INTO emp (empno,ename) VALUES (vno,vname);

   COMMIT;

END test_proc5;

PROCEDURE test_proc6(vno IN NUMBER,vname OUT VARCHAR2,vsalary OUT NUMBER)

/*

*功能：演示有OUT参数的存储过程，输入eno,输出姓名，工资

*/

IS

BEGIN

SELECT ename,sal INTO vname,vsalary FROM emp WHERE empno=vno;

EXCEPTION WHEN no_data_found THEN

    raise_application_error(-2000,'无数据');

END test_proc6;

PROCEDURE test_proc7(v1 IN OUT NUMBER,v2 IN OUT NUMBER)

/*

*功能：有inout参数的存储过程演示，注意在调用过程之前需要通过变量给参数传递值，结束后变量将过程结果传递给应用程序

*

*/

IS

p1 NUMBER;

p2 NUMBER;

BEGIN

   p1:=v1-v2;

   p2:=v1+v2;

   v1:=p1;

   v2:=p2;

END test_proc7;