备份long字段数据

LONG -> LONG

A(ID,A);--A为long字段

B(ID,A);--A为long字段

create or replace procedure CopyRow
as
cursor mycur is select ID,A from A;
crow       mycur%rowtype;
LONGCHAR   VARCHAR2(4000);
begin
open mycur;
loop
fetch mycur into crow;
exit when mycur%notfound;
     INSERT INTO B(ID) VALUES (crow.ID);
     SELECT A INTO LONGCHAR FROM A WHERE ID = crow.ID;
     UPDATE B SET A = LONGCHAR WHERE ID = crow.ID;
end loop;
close mycur;
end;

 

LONG -> CLOB

A(ID,A);--A为LONG字段

E(ID,A);--A为CLOB字段

INSERT INTO E(ID,A)
SELECT ID,TO_LOB(A.A) FROM A