（表里面有LONG类型的字段用游标）将一下用户下的表的数据插入到另一个用户下面的表里面

Declare
CURSOR bcur
IS SELECT ARTICLEID,BODY from szmbweb.BBS_ARTICLE;
brec bcur%ROWTYPE;
BEGIN
insert into e3nfjj.BBS_ARTICLE
(
  ARTICLEID   ,
  PARENTID    ,
  CHILD       ,
  LAYER       ,
  ROOTID      ,
  ORDERLINE   ,
  ROUTE       ,
  ISESSENTIAL ,
  BOARDID     ,
  USERID      ,
  TOPIC       ,
  LENGTH      ,
  HITS        ,
  URL         ,
  URLTITLE    ,
  URLPIC      ,
  REPLYTIME   ,
  DATEANDTIME ,
  IP          ,
  ITEM_ID     ,
  HOTMARK     ,
  FACE        ,
  AUTH        ,
  SITE        ,
  TOPSIGN     ,
  UPLOADPIC                                            
)
select
  ARTICLEID   ,
  PARENTID    ,
  CHILD       ,
  LAYER       ,
  ROOTID      ,
  ORDERLINE   ,
  ROUTE       ,
  ISESSENTIAL ,
  BOARDID     ,
  USERID      ,
  TOPIC       ,
  LENGTH      ,
  HITS        ,
  URL         ,
  URLTITLE    ,
  URLPIC      ,
  REPLYTIME   ,
  DATEANDTIME ,
  IP          ,
  ITEM_ID     ,
  HOTMARK     ,
  FACE        ,
  AUTH        ,
  SITE        ,
  TOPSIGN     ,
  UPLOADPIC                                                     
 from szmbweb.BBS_ARTICLE;
OPEN bcur;
LOOP
FETCH bcur INTO brec;
EXIT WHEN bcur%NOTFOUND;
update e3nfjj.BBS_ARTICLE set BODY=brec.BODY where ARTICLEID=brec.ARTICLEID;
END LOOP;
CLOSE bcur;
END;
commit;