我需要创建一个PL/SQL匿名块,它必须将数据从t_src
复制到t_dest
,并将复制的值存储在表t_err
中。
t_src
有两列填充数据,没有主键。t_dest
为空,列1为主键。当有例外的重复,我必须传递它,并将重复的记录存储在t_err
。我必须使用游标,forall和BULK COLLECT
。到目前为止,我已经创建了以下块:
DECLARE
CURSOR c_copy IS
select column1, column2
from t_src;
TYPE curtype IS TABLE of c_copy%ROWTYPE;
cursor1 curtype;
BEGIN
OPEN c_copy;
LOOP
FETCH c_copy BULK COLLECT INTO cursor1;
FORALL c_count IN 1..cursor1.COUNT SAVE EXCEPTIONS
INSERT INTO t_dest
VALUES curtype(c_count)
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
INSERT INTO t_err VALUES curtype(c_count);
EXIT WHEN c_copy%NOTFOUND
END LOOP;
CLOSE c_copy;
END
TYPE curtype = TABLE of c_copy%ROWTYPE;
上面的行导致了这个问题。
您需要为每个字段创建表类型变量,即column1, column2。
TYPE tab_column1 is table of t_src.COLUMN1%TYPE;TYPE tab_column2 is table of t_src.column2%type;
L_column1 tab_column1;L_column2 tab_column2;
然后使用
get c_copy BULK COLLECT INTO L_column1, L_column2;
我以前遇到过类似的问题,这是我用来修复的解决方案。