Question

我在ORACLE 11G中有以下代码片段

BEGIN 
  FOR LOOP IN (SELECT DISTINCT TIME_PERIOD FROM TABLEA)
  LOOP
    INSERT INTO TABLEB 
      (SELECT SUBITEM, LOC 
       FROM TABLEC 
       WHERE TABLEC.ITEM = TABLEA.ITEM);
  END LOOP;
END;

我想在特定项目中引发异常，表C中没有子项，因此没有在TableB中插入记录。

阻止应验证特定项目，如果子项存在则插入数据，否则引发特定项目的异常（数据插入ERROR表的用户定义异常）并继续前进。

P.S：我只是想知道在哪里以及如何在FOR循环中引发异常。不需要将代码插入错误表。

不想使用游标。

非常感谢帮助。

Answer 1

以下是我理解这个问题的方法。

由于您没有提供测试用例，我自己也做了。

SQL> create table tablea (item number, time_period number);

Table created.

SQL> create table tableb(subitem number, loc varchar2(20));

Table created.

SQL> create table tablec (item number, subitem number, loc varchar2(20));

Table created.

SQL> insert into tablea values (1, 1);

1 row created.

SQL> insert into tablec values (1, 1, 'a');

1 row created.

您发布的代码无效，因此 - 我对其进行了修改，以便它实际上某些。 SQL%ROWCOUNT返回受影响的行数，因此我正在检查INSERT是否插入了任何内容。如果不是，则引发错误并进一步执行。

第一次执行成功，因为TABLEA和TABLEC中的ITEM值之间存在匹配：

SQL> begin
  2    for cur_r in (select distinct item, time_period from tablea) loop
  3      insert into tableb (subitem, loc)
  4        select c.subitem, c.loc
  5          from tablec c
  6          where c.item = cur_r.item;
  7
  8      if sql%rowcount = 0 then
  9         raise_application_error(-20000, 'Nothing has been inserted for TABLEA.ITEM = ' || cur_r.item);
 10      end if;
 11    end loop;
 12  end;
 13  /

PL/SQL procedure successfully completed.

SQL> select * from tableb;

   SUBITEM LOC
---------- --------------------
         1 a

SQL>

现在，让我们将ITEM = 2插入TABLEA，它在TABLEC中没有一对，因此会引发错误：

SQL> insert into tablea values (2, 2);

1 row created.

SQL> begin
  2    for cur_r in (select distinct item, time_period from tablea) loop
  3      insert into tableb (subitem, loc)
  4        select c.subitem, c.loc
  5          from tablec c
  6          where c.item = cur_r.item;
  7
  8      if sql%rowcount = 0 then
  9         raise_application_error(-20000, 'Nothing has been inserted for TABLEA.ITEM = ' || cur_r.item);
 10      end if;
 11    end loop;
 12  end;
 13  /
begin
*
ERROR at line 1:
ORA-20000: Nothing has been inserted for TABLEA.ITEM = 2
ORA-06512: at line 9

在插入语句

1 个答案: