oracle lob 数据类型

 LOB(large object)是一种用于存储大对象的数据类型，每个LOB可以有4GB。
LOB有三种类型：
BLOB：Binary Large Object 二进制大型对象
CLOB：Character Large Object 单字符大型对象
Double-byte Character Large Object 双字节字符大型对象

oracle中大数据类型：
 LONG: 可变长的字符串数据，最长2G，LONG具有VARCHAR2列的特性，可以存储长文本，一个表中最多一个LONG列
 LONG RAW: 可变长二进制数据，最长2G

　　 CLOB:  字符大对象Clob 用来存储单字节的字符数据
　　 NCLOB: 用来存储多字节的字符数据
　　 BLOB: 用于存储二进制数据

　　 BFILE: 存储在文件中的二进制数据，这个文件中的数据只能被只读访。但该文件不包含在数据库内。
       bfile字段实际的文件存储在文件系统中,字段中存储的是文件定位指针.bfile对oracle来说是只读的,也不参与事务性控制和数据恢复.
　　
　　CLOB，NCLOB，BLOB都是内部的LOB(Large Object)类型，最长4G，没有LONG只能有一列的限制
　　要保存图片、文本文件、Word文件各自最好用BLOB，LONG　RAW也不错，但Long是oracle将要废弃的类型，而且有只能有一列的限制，因此建议用BLOB。

oracle存储过程操作LOB字段 实例一：
做项目过程中遇到这么一个问题，就是有多套系统（0，A,B,C），其中中心系统(0)要提取其他子系统(A,B,C)的数据。设计的原理是在中心系统中创建存储过程，然后通过DBlink连接到子系统，根据子系统表内的标示字段，提取数据（插入或更新到中心系统中）。

存储过程语法（伪码）：

CREATE OR REPLACE 
PROCEDURE "Pro_N_ROLES" ( V_Filter in varchar2 := ' ' ) 
is 
    V_ROLE varchar2(30); 
    V_TREEAUTH varchar2(4); 
    V_ORI number(22); 
    V_UPDATEFLAG varchar2(2); //子系统 标示字段
    v_Sql varchar2(4000); 
    type vv 
is 
    ref cursor; 
    CUR_DATA vv; 
begin 
    v_Sql := 'select  
ROLE,TREEAUTH,UPDATEFLAG 
from ROLES@DB_N //创建好的 Dblink
where UPLOADFLAG = ''Y''' || V_Filter ; //子系统 标示字段，
    open CUR_DATA 
    for v_Sql; 
    loop 
        fetch CUR_DATA into V_ROLE,V_TREEAUTH ,V_UPDATEFLAG; 
        exit 
    when CUR_DATA%NOTFOUND; 
        if V_UPDATEFLAG = 'N' then 
            begin 
                INSERT 
                INTO 
                    J_ROLES
                    ( 
                        ROLE, 
                        TREEAUTH,
                        SORI, //子系统主键值
                        S_FLAG //子系统标示
                    ) 
                    VALUES 
                    ( 
                        V_ROLE, 
                        V_TREEAUTH, 
                        V_ORI, //A系统表主键值
                        'A系统'
                    )
                    ; 
                commit; 
                UPDATE 
                    ROLES@DB_N 
                    SET UPLOADFLAG = 'N', 
                    UPDATEFLAG     = 'Y' 
                WHERE 
                    ORI = V_ORI; 
                commit; 
            end; 
        end if; 
        if V_UPDATEFLAG = 'Y' then 
            begin 
                UPDATE 
                    J_ROLES 
                    SET ROLE        = V_ROLE, 
                    TREEAUTH    = V_TREEAUTH, 
                    ORI     = V_ORI, 
                    SORI = V_ORI, 
                    S_FLAG   = 'A系统' 
                WHERE 
                    SORI   = V_ORI 
                    and S_FLAG = 'A系统';
                commit; 
                UPDATE 
                    ROLES@DB_N 
                    SET UPLOADFLAG = 'N', 
                    UPDATEFLAG     = 'Y' 
                WHERE 
                    ORI = V_ORI; 
                commit; 
            end; 
        end if; 
//001这里加入更新CLOB字段代码
    end loop; 
    close CUR_DATA; 
end Pro_N_ROLES; 

oracle存储过程中没有longvarchar类型的定义，定义的varchar类型变量最长长度为32767个字符，因此无法直接用存储过程变量存储CLOB类型字段。
网上有不少方法，有的是通过创建临时表的方法，有的是通过截取然后合并的方法。根据我这边的实际情况，这样的字段不多，采用直接更新的方法。

所以在上面的注释“//001这里加入更新CLOB字段代码”出增加如下代码：       

 UPDATE 
             J_ROLES
            SET OTHERSITUATION = 
            ( 
            SELECT 
                OTHERSITUATION 
            FROM 
                 ROLES@DB_N
            WHERE 
                ORI = V_ORI 
            ) ，
  SUGGEST = 
            ( 
            SELECT 
                SUGGEST 
            FROM 
                 ROLES@DB_N
            WHERE 
                ORI = V_ORI 
            )
            
        WHERE 
            SORI   = V_ORI 
            and S_FLAG = 'A系统'; 

Oracle9i数据库存储和读取clob文件(PL/SQL脚本) 实例二（转）
//先建立表 lob_example1
create table lob_example1(
id number(6) primary key,
name varchar2(10),
resume clob
);

//插入数据
insert into lob_example1 values(1,'猪',empty_clob());
insert into lob_example1 values(2,'狗',empty_clob());
commit;

//创建目录，保存在c盘根目录
CREATE OR REPLACE DIRECTORY DOCS AS 'C:\';

//创建将文件内容写入数据库CLOB的存储过程
CREATE OR REPLACE PROCEDURE update_doc(
   t_id  number,
   filename varchar2
   )
as
   lobloc clob;
   fileloc bfile;
   amount int;
   src_offset int:=1;
   dest_offset int:=1;
   csid int:=0;
   lc  int:=0;
   warning int;
begin
   fileloc:=bfilename('DOCS',filename);
   dbms_lob.fileopen(fileloc,0);
   amount:=dbms_lob.getlength(fileloc);
   select resume into lobloc from lob_example1
     where id=t_id for update;
   dbms_lob.loadclobfromfile(lobloc,fileloc,amount,dest_offset,src_offset,csid,lc,warning);
   dbms_lob.fileclose(fileloc);
   commit;
end;

//调用存储过程,把文件读入数据库CLOB中，c盘下要有这两个文件
call update_doc(1,'aa.csv');
call update_doc(2,'bb.csv');

//察看id是2和1的行中文件大小
select length(resume) from lob_example1 where id=2;

select length(resume) from lob_example1 where id=1;

/文件已经放入数据库

//将文件从数据库clob中读出来
CREATE OR REPLACE PROCEDURE get_doc(
   t_id  number,
   filename varchar2
   )
as
   lobloc clob;
   amount int;
   offset int:=1;
   buffer varchar2(2000);
   handle utl_file.file_type;
begin
   select resume into lobloc from lob_example1 where id=t_id;
   amount:=dbms_lob.getlength(lobloc);
   dbms_lob.read(lobloc,amount,offset,buffer);
   handle:=utl_file.fopen('DOCS',filename,'w',2000);
   utl_file.put_line(handle,buffer);
   utl_file.fclose(handle);
end;
/
 
//调用这个过程,把文件读出来
call get_doc(1,'zz.csv');

//哈哈，文件被保存在c盘了啊，快去看看吧

//对了，文件大了会导致缓冲区太小，缓冲区最大允许36k，大了我也不知道怎么办，正在解决中！

作者：大狼一号