oracle利用游标单条插入数据举例

背景

近日有哥们问我如何实现多条数据以单条的方式插入到目标表里，为解决这个问题，下面来做个小实验。

 

交流过程如下：

下面，我们举例用cursor来完成这个目标。

（1）、实验准备

首先，建立一个实验表，如下：

createtable EMP

(

empno NUMBER(4) not null,

ename VARCHAR2(1000),

job VARCHAR2(9),

mgr NUMBER(4),

hiredate DATE,

sal NUMBER(7,2),

comm NUMBER(7,2),

deptno NUMBER(6)

);

 

插入一些实验数据，如下：

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7369, 'SMITH', 'CLERK', 7902, to_date('17-12-1980', 'dd-mm-yyyy'), 800.00, null, 209999);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7499, 'ALLEN', 'SALESMAN', 7698, to_date('20-02-1981', 'dd-mm-yyyy'), 1600.00, 300.00, 30);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7521, 'WARD', 'SALESMAN', 7698, to_date('22-02-1981', 'dd-mm-yyyy'), 1250.00, 500.00, 30);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7566, 'JONES', 'MANAGER', 7839, to_date('02-04-1981', 'dd-mm-yyyy'), 2975.00, null, 20);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7654, 'MARTIN', 'SALESMAN', 7698, to_date('28-09-1981', 'dd-mm-yyyy'), 1250.00, 1400.00, 30);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7698, 'BLAKE', 'MANAGER', 7839, to_date('01-05-1981', 'dd-mm-yyyy'), 2850.00, null, 30);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7782, 'CLARK', 'MANAGER', 7839, to_date('09-06-1981', 'dd-mm-yyyy'), 2450.00, null, 10);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7788, 'SCOTT', 'ANALYST', 7566, to_date('19-04-1987', 'dd-mm-yyyy'), 3000.00, null, 20);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7839, 'KING', 'PRESIDENT', null, to_date('17-11-1981', 'dd-mm-yyyy'), 5000.00, null, 10);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7844, 'TURNER', 'SALESMAN', 7698, to_date('08-09-1981', 'dd-mm-yyyy'), 1500.00, 0.00, 30);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7876, 'ADAMS', 'CLERK', 7788, to_date('23-05-1987', 'dd-mm-yyyy'), 1100.00, null, 20);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7900, 'JAMES', 'CLERK', 7698, to_date('03-12-1981', 'dd-mm-yyyy'), 950.00, null, 30);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7902, 'FORD', 'ANALYST', 7566, to_date('03-12-1981', 'dd-mm-yyyy'), 3000.00, null, 20);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7934, 'MILLER', 'CLERK', 7782, to_date('23-01-1982', 'dd-mm-yyyy'), 1300.00, null, 10);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7771, 'hyl', 'dba', null, to_date('19-04-1987', 'dd-mm-yyyy'), 8000.00, null, 10);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7772, 'hyl', 'dba', null, to_date('19-04-1987', 'dd-mm-yyyy'), 8000.00, null, 10);

insert into EMP (EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
values (7773, 'hyl', 'dba', null, to_date('19-04-1987', 'dd-mm-yyyy'), 8000.00, null, 10);

创建一个关联表emp_2、再创建一个目标表emp_3，如下：

CREATE TABLE EMP_2 AS SELECT * FROM EMP;

CREATE TABLE EMP_3 AS SELECT * FROM EMP WHERE 1=2;

 

删除一些关联表里的数据，如下：

DELETE FROM EMP_2 WHERE EMPNO IN (7771,7772,7773);

 

实验准备基本上完成了，利用工具我们看一下每张表的数据情况。

（2）、编写存储过程

下面我们利用cursor来实现对数据单条查询，然后单条插入的目的。

CREATE OR REPLACE PROCEDURE PD_CESHI IS

  v_ErrorCode NUMBER;           -- 错误代码

  v_ErrorText VARCHAR2(4000);    -- 错误信息

cursor c1 is

SELECT 

a.EMPNO,

a.ENAME,

a.JOB,

a.MGR,

a.HIREDATE,

a.SAL,

a.COMM,

a.DEPTNO 

 FROM EMP a,EMP_2 b where a.empno=b.empno;

 

BEGIN

 

   For te in c1 loop

 

       begin

 

          insert into EMP_3(

          EMPNO,

          ENAME,

          JOB,

          MGR,

          HIREDATE,

          SAL,

          COMM,

          DEPTNO

            )

            values(

            te.EMPNO,

            te.ENAME,

            te.JOB,

            te.MGR,

            te.HIREDATE,

            te.SAL,

            te.COMM,

            te.DEPTNO

       );

       EXCEPTION

         WHEN   NO_DATA_FOUND THEN

           NULL;

         WHEN OTHERS THEN

           v_ErrorCode := SQLCODE;

           v_ErrorText := SQLERRM;

           /** 记录异常数据及错误信息 **/

           insert   into   error_log(ID,TABLE_NAME,ERROR_ID,ERROR_CODE,ERROR_TEXT,CREATE_DATE)    values(sys_guid(),'EMP_2',te.EMPNO,v_ErrorCode,v_ErrorText,sysdate);

       end;

 

   End   loop;

   commit;

   /** 异常处理 过程异常**/

   EXCEPTION

     WHEN    NO_DATA_FOUND    THEN

        NULL;

     WHEN   OTHERS   THEN

      v_ErrorCode := SQLCODE;

      v_ErrorText := SQLERRM;

      /** 记录异常数据及错误信息 **/

      insert   into   error_log (ID,TABLE_NAME,ERROR_ID,ERROR_CODE,ERROR_TEXT,CREATE_DATE)   values(sys_guid(),'EMP_OBJECT','',v_ErrorCode,v_ErrorText,sysdate);

END PD_CESHI;

创建一个记录错误日志的表：

create   table   ERROR_LOG

(

  id                       VARCHAR2(32),

  table_name    VARCHAR2(100),

  error_id            VARCHAR2(100),

  error_code      VARCHAR2(100),

  error_text        VARCHAR2(4000),

  create_date    DATE   default   sysdate

);

（3）、开始实验

利用PL/SQL Developer工具完成存储过程的创建，我们下面来执行这个存储过程，如下：

完成后，我们来看一下目标表里的数据，如下：

看到以上的结果数据，我们已经把数据以遍历的形式插入到了我们的目标表里了。

如果这么说不具说服力，我们需要再进一步验证一下是否是单条插入的话。这里我们可以有这么个思路，如果这个是实现单条插入的，那么也就意味着如果中途有某条数据出现问题，将不会影响到其余数据的插入，因为这是以单条为单位插入的嘛~~

来验证一下。

（4）、模拟错误处理

TRUNCATE   TABLE  EMP_3;

SELECT * FROM EMP_3;

制造问题数据：

alter   table   EMP   modify   deptno   NUMBER(6);
 

修改数据：

我们利用PL/SQL Developer工具把empno为7788的deptno由20修改为209999。这样的话，当我们插入到目标表中时，就会由于字段长度抛出一个错误来。

我们执行一下存储过程，如下：

存储过程执行完毕后，我们可以预见到7788的那条数据应该没有了，而其它的13条数据应该是可以正常插入的。我们来验证一下，如下：

可以看到结果中没有empno为7788的数据。

到错误记录日志表里看一下，如下：

我们可以看到，错误记录已经被记录到日志表里，抛出的1438错误（ORA-01438: 值大于为此列指定的允许精度）。

通过这种方式，我们从侧面也可以了解到，单条数据插入时，错误被抛出，不影响其它的数据插入。

实验完毕。

小实验，随手记之。