PL SQL 过程不引发异常 no_data_found

Question

我有两个表 customers 和 orders 如下： 客户：

+----+------+------------+
| ID | Name | Contact_no |
+----+------+------------+
|  1 | Matt | 9435112340 |
|  2 | John | 6654342312 |
|  3 | Jill | 6654342312 |
+----+------+------------+

订单：

+----------+------------+----------+------+
| Order_id | Order_date | Quantity | C_id |
+----------+------------+----------+------+
|     1011 | 09-jan-18  |       30 |    1 |
|     1012 | 09-feb-18  |      300 |    1 |
|     1013 | 09-feb-18  |      200 |    3 |
|     1111 | 09-feb-18  |      100 |    1 |
|     1016 | 09-feb-18  |       20 |    2 |
+----------+------------+----------+------+

我正在编写一个PL/SQL 程序，其中列出了订单数量大于 200 的人的id、name 和contact_no。我能够实现这一点。但如果不存在记录，那么我想打印一条消息“未找到记录”。我知道如果没有记录，那么oracle 会抛出no_data_found 异常。因此，我已经根据它编写了我的程序。但是，虽然没有记录，oracle 没有抛出异常，我的 Exception 块没有执行，也没有打印输出。任何人都可以请帮助出了什么问题，我怎样才能达到所需的结果？以下是我的程序。

DECLARE
    CURSOR cust_cur IS
    SELECT * FROM customers WHERE customers.id IN (SELECT c_id FROM orders WHERE orders.quantity>300 group by c_id);
BEGIN
    FOR cust IN cust_cur LOOP
        dbms_output.put_line('Customer_id Customer_Name Customer_Phone');
        dbms_output.put_line(cust.id||' '||cust.name||' '||cust.contact_no);
    END LOOP;
EXCEPTION
    WHEN no_data_found THEN
        dbms_output.put_line('No data found');
    WHEN OTHERS THEN
    dbms_output.put_line('Error Due To -->'|| SQLCODE||SQLERRM);
END;

我已将SQL语句中数量的条件从200改为300，因为它不会返回任何行。

Answer 1

no_data_dound 仅由 select..into..from 子句引发 这个“FOR cust IN cust_cur LOOP”是一个循环，而不是一个 select 语句。这样的循环在 oracle 内部被视为批量收集语句，默认限制为 100。

Answer 2

您可以手动控制循环中的数据计数。 如下所示。

declare
   cursor cust_cur
   is
      select *
        from customers
       where customers.id in (  select c_id
                                  from orders
                                 where orders.quantity > 300
                              group by c_id);

   l_count   number := 0;
begin
   for cust in cust_cur
   loop
      DBMS_OUTPUT.put_line ('Customer_id Customer_Name Customer_Phone');
      DBMS_OUTPUT.put_line (
         cust.id || ' ' || cust.name || ' ' || cust.contact_no);
      l_count := 1;
   end loop;

   if l_count = 0
   then
      raise NO_DATA_FOUND;
   end if;
exception
   when NO_DATA_FOUND
   then
      DBMS_OUTPUT.put_line ('No data found');
   when others
   then
      DBMS_OUTPUT.put_line ('Error Due To -->' || SQLCODE || SQLERRM);
end;