如何将一个表中的值插入另一个表，然后更新原始表？

Question

使用Oracle，有没有办法将一个表中的值插入到另一个表中，然后从插入的表中获取一个标识值并更新原始列中的一列？

TABLE_1 为空

ID    VALUE
-----------

TABLE_2 中的值 ...

ID    VALUE
-----------
0     Val 1
0     Val 2
0     Val 3

...插入到 TABLE_1（带有标识列）

ID    VALUE
-----------
1     Val 1
2     Val 2
3     Val 3

然后用 ID 更新 TABLE_2

ID    VALUE
-----------
1     Val 1
2     Val 2
3     Val 3

Answer 1

您需要获得此类要求的程序。该解决方案使用 SELECT ... FOR UPDATE 锁定源表，以防止另一个会话获取我们想要提供新 ID 的记录。它还为我们提供了 WHERE CURRENT OF 语法，可以轻松识别我们需要更新的记录。

此解决方案假设存在用于填充标识列的序列。我们还有其他可用的选项（包括 12C 中的自动增量），但 RETURNING 子句是获取新值的关键。

declare
    cursor c2 is
        select * from table2
        for update of id;
    r2 c2%rowtype;
    new_id t1.id%type;
begin
    open c2;
    loop
        fetch c2 in r2;
        exit when c2%notfound;
        /* new record */
        insert into t1
        values (t1_seq.nextval, t2.value)
        returning t1.id into new_id;
        /* update existing record with id*/
        update t2
        set id = new_id
        where current of c2;
    end loop;
    commit;
end;
/

此解决方案是 Row-By-Row”，这是确保新 T1.ID 应用于 T2 中正确行的最简单方法。如果 T1 很小和/或这是一个 on -off 练习，这可能很好。但如果性能是一个问题，可以进行调整。

Answer 2

如果表 2 中有很多行，我建议您使用 bulk collect。 它将帮助您提高数据库的性能。像这样：

declare 
type type_table2 is table of table2%rowtype index by binary_integer;
vt_table2 type_table2;
cursor cur_table2 is select * from table2;
begin
open cur_table2;
  loop
  fetch cur_table2 bulk collect into vt_table2 limit 500;
    for i in 1..vt_table2.count loop
      begin
        insert into table1
        values(i, vt.table2(i).value);
        update table2
        set id = i
        where current of cur_table2; 
      exception when other then
      excp := SQLERRM;
      dbms_output.put_line('Error:'||excp);
      end;
    end loop;
  exit when cur_table%notfound;
  end loop;
close cur_table2;
commit;
exception when other then
  excp := SQLERRM;
  dbms_output.put_line('Error:'||excp);
end;