oracle lob 数据类型应用实例

作者：袖梨 2022-06-29

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, //子系统www.111com.net主键值
                        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');