Oracle BLOB内容批量导出
2015-11-11 17:03
1311 查看
将存储图片的BLOB字段批量导出
--(1)生成图片存储过程 CREATE OR REPLACE PROCEDURE TMU_TMEDMS.GET_PIC_BLOB(i_xh VARCHAR2) IS l_file UTL_FILE.FILE_TYPE; l_buffer RAW(32767); l_amount BINARY_INTEGER := 32767; l_pos INTEGER := 1; l_blob BLOB; l_blob_len INTEGER; I_doc varchar2(50); BEGIN select s.content,s.doc_id into l_blob,I_doc from TMU_TMEDMS.T_TMEDMS_TM_SCAN_FILES s where s.id=i_xh; l_blob_len := DBMS_LOB.GETLENGTH(l_blob); l_file := UTL_FILE.FOPEN('BLOBDIR', I_doc || '.jpg', 'WB', l_blob_len); WHILE l_pos < l_blob_len LOOP DBMS_LOB.READ(l_blob, l_amount, l_pos, l_buffer); UTL_FILE.PUT_RAW(l_file, l_buffer, TRUE); l_pos := l_pos + l_amount; END LOOP; UTL_FILE.FCLOSE(l_file); EXCEPTION --WHEN NO_DATA_FOUND THEN --DBMS_OUTPUT.put_line('no data : ' || i_xh); WHEN OTHERS THEN IF UTL_FILE.IS_OPEN(l_file) THEN UTL_FILE.FCLOSE(l_file); RAISE; END IF; END GET_PIC_BLOB; --(2)创建导出文件存放路径 create or replace directory BLOBDIR as '/tmp/jpg'; --(3)批量导出图片SQL语句块 declare cursor cur is select s.id from TMU_TMEDMS.T_TMEDMS_TM_BASE_INFO t, TMU_TMEDMS.T_TMEDMS_TM_SCAN_FILES S where t.flow_type_code = 'TMZC' and t.file_type_code = 'ZCSQ' AND T.APP_NUM >= '15823555' AND T.APP_NUM <= '15827984' AND substr(t.barcode, 0, 5) = 'B1011' AND T.ID = S.DOC_ID AND S.DOC_TYPE_CODE = 'TMIM'; begin for rec in cur loop TMU_TMEDMS.GET_PIC_BLOB(rec.id); INSERT INTO record (id) VALUES (rec.id); commit; end loop; end;
相关文章推荐
- 基于 Red Hat 的发行版 Oracle Linux 正式发布Oracle Linux 7.1
- Oracle Containers for J2EE远程安全漏洞(CVE-2014-0413)
- Oracle 10g R2不能使用EM的问题
- 表空间操作
- PreparedStatement中in子句的处理
- VMware下RedHat4.8_64位安装Oracle 10g RAC--简略脚本
- oracle sql日期比较
- 基于 Red Hat 的发行版 Oracle Linux 正式发布Oracle Linux 7.1
- OS block size和Oracle block size,查找OS Blocksize的方法
- oracle中创建数据库和表空间的几点总结
- 数据库自动备份脚本
- oracle的nvl函数的使用介绍
- 解决oracle用户连接失败的解决方法
- oracle的一些tips技巧
- Oracle 下的开发日积月累
- Oracle存储过程之数据库中获取数据实例
- Windows下ORACLE 10g完全卸载的方法分析
- Oracle 函数大全[字符串函数,数学函数,日期函数]第1/4页
- ORACLE LATERAL-SQL-INJECTION 个人见解