oracle 存储过程|oracle lob 数据类型应用实例

更新时间:2019-02-12    来源:php应用    手机版     字体:

【www.bbyears.com--php应用】

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.111cn.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");

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

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

作者:大狼一号

本文来源:http://www.bbyears.com/jiaocheng/47972.html

热门标签

更多>>

本类排行