如何使用循环将数据记录插入表中？

Question

我想使用 PL/SQL 循环插入几条记录，但是当我在 SQL Developer 中执行以下块时，我收到以下错误：

declare
    loop_size number;

begin
    loop_size := 10;

    while loop_size > 0
    loop
        INSERT INTO CM.CUSTOMER (ID, FIRST_NAME, LAST_NAME, STATUS )
        VALUES (CM.SQ_CUSTOMER.nextval, 'Jhon', 'Jhon',10);

        loop_size := loop_size -1;      
    end loop;
end; 

错误

PLS-00225: subprogram or cursor 'CM' reference is out of scope

Answer 1

我无法重现您的错误，但一个问题是CM.CUSTOMER 不能既是表又是序列。

通常最好不要硬编码模式名称，除非你真的必须这样做。我宁愿在这里省略模式名称，只从CM 帐户运行它。

我创建了一个名为 customer_seq 的序列，并且以下运行没有错误：

create table customer
( id          number primary key 
, first_name  varchar2(20)
, last_name   varchar2(20)
, status      number );

create sequence customer_seq;

declare
    status varchar(10) := '10';
    loop_size number := 10;
begin
    while loop_size > 0
    loop
        insert into customer (id, first_name, last_name, status)
        values (customer_seq.nextval, 'Jhon', 'Jhon', status);

        loop_size := loop_size -1;      
    end loop;
end;
/

如果使用 Oracle 12.1 或更高版本，我更愿意使用标识列并停止微管理序列。您也不需要自己管理循环索引，因为 PL/SQL 有一个方便的 for 循环结构：

create table customer
( id          number generated always as identity primary key 
, first_name  varchar2(20)
, last_name   varchar2(20)
, status      number );

declare
    status varchar(10) := '10';
    loop_size number := 10;
begin
    for i in 1..loop_size loop
        insert into customer (first_name, last_name, status )
        values ('Jhon', 'Jhon', status);
    end loop;
end;
/

Answer 2

您可以在没有动态 SQL 的情况下实现这一点：

INSERT INTO CM.CUSTOMER (FIRST_NAME, LAST_NAME, STATUS)
SELECT 'Jhon', 'Jhon', '10'
FROM dual
CONNECT BY rownum <= 10;

这个答案假定ID 列是自动递增的，它可能应该是。

Answer 3

删除最后一个不必要的逗号并从对偶中选择序列：

  INSERT INTO CM.CUSTOMER (ID, FIRST_NAME, LAST_NAME, STATUS)
  select ln.SQ_CUSTOMER, 'Jhon', 'Jhon', 10 from dual;

将序列更新为ln.SQ_CUSTOMER

Answer 4

非常感谢您的回复，我终于解决了我的问题如下：

declare
loop_size number;
rec_id NUMBER;

begin
  loop_size := 10;

  while loop_size > 0
  loop

    execute immediate 'select cm.SQ_CUSTOMER.nextval from dual' into rec_id;

    INSERT INTO CM.CUSTOMER (ID, FIRST_NAME, LAST_NAME, STATUS )
    VALUES (rec_id, 'Jhon', 'Jhon',10);

    loop_size := loop_size -1;      
  end loop;
end;