读写LOB大对象数据.docVIP

广东技术师范学院实验报告 实验名称： 读写LOB大对象数据 实验目的： 掌握oracle大对象数据的使用。 二、习题 将一个二进制.bmp文件载入blob_data表中的blob列中，并获取该文件的长度。请按如下基本步骤实现PL/SQL编码。 1）插入一个带有空blob的行； 2）将该行的blob定位指针存入PL/SQL的blob变量； 3）为输入二进制文件获取bfile定位指针； 4）打开输入文件bfile; 5）打开blob; 6）将bfile文件数据全部载入到blob列上； 7）获取blob列的长度； 8）关闭blob；关闭bfile； 9）完成提交commit。 显示blob中文件的长度。 三、实验内容和步骤：（说明代码及运行结果） 1、创建表空间 CREATE TABLESPACE Dave DATAFILE C:\oracle\admin\zhang\dave.dbf’ SIZE 20M; 创建blob_data表 CREATE TABLE blob_data ( no number(8) primary key, fname varchar2(30), myfile blob ) Lob (myfile) Store As ( Tablespace Dave Chunk 15K Disable Storage In Row ); 插入一个带有空blob的行 INSERT INTO blob_data VALUES(1, IMG_0210.JPG, EMPTY_BLOB ()); 创建逻辑目录MYDIR Create Directory MYDIR As D:\Dave; 5、该行的blob定位指针存入PL/SQL的blob变量，使用select获取lob定位指针并送入本地变量。 Declare varB blob; varF Bfile; Begin select myfile into varB from blob_data where no = 1 for update; varF := bfileName(MYDIR,Dave.JPG); DBMS_LOB.open(varF); DBMS_LOB.loadfromfile(varB,varF,DBMS_LOB.getlength(varF)); DBMS_LOB.close(varF); commit; End; 6、将bfile文件数据全部载入到blob列上，创建过程存储图片。打开blob;关闭blob；关闭bfile；完成提交commit。 Create Or Replace Procedure setBLOB(vFileName varchar2) As varF bfile; varB blob; vno number(8); Begin varF := BFilename(MYDIR,vFileName); DBMS_LOB.Open(varF); select max(no) into vno from blob_data; if vno is null then vno := 1; else vno := vno + 1; end if; insert into blob_data values(vno,vFileName,empty_blob()); select myFile into varB from blob_data where no = vno for update; DBMS_LOB.loadfromfile(varB,varF,DBMS_LOB.getlength(varF)); DBMS_LOB.close(varF); commit; End; 7、执行过程 EXEC setBLOB(Dave.JPG); 显示blob中文件的长度大小 Declare varB blob; Begin select myfile into varB from myLob where no = 2; DBMS_output.put_line(长度为: ||DBMS_LOB.getlength(varB)); End;