Oracle 一些内置的程序包（转载）

Oracle 一些内置的程序包

         STANDARD和DBMS_STANDARD 定义和扩展PL/SQL语言环境

         DBMS_LOG 提供对 Oracle LOB数据类型进行操作的功能

         DBMS_LOCK 用户定义的锁

         DBMS_OUTPUT 处理PL/SQL 块和子程序输出调试信息

         DBMS_SESSION 提供ALTER SESSION 命令的PL/SQL等效功能

         DBMS_ROWID 获得ROWID 的详细信息

         DBMS_RANDOM 提供随机生成器

         DBMS_SQL 允许用户使用动态SQL,构造和执行任意DML和DDL语句

         DBMS_JOB 提交和管理在数据库中执行的定时任务

         DBMS_XMLDOM 用DOM模型读写XML类型的数据

         DBMS_XMLPARSER XML解析,处理XML文档内容和结构

         DBMS_XMLGEN 将SQL 查询结果转换为规范的XML格式

         DBMS_XMLQUERY 提供将数据转换为XML类型的功能 DBMS_XSLPROCESSOR 提供XSLT功能. 转换XML文档

         UTL_FILE 用PL/SQL程序来读写操作系统文本文件

 

 

例: DBMS_XMLQUERY 将查询结构转换为

XML sql>

declare result CLOB;

xmlstr varchar2(32767); l

ine varchar2(2000);

line_no INTEGER :=1;

BEGIN result :=DBMS_XMLQuery.getXml('select empno,ename from employee');

xmlstr :=DBMS_LOB.SUBSTR(result,32767);

LOOP EXIT WHEN xmlstr IS NULL;

line :=SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10)) -1);

DBMS_OUTPUT.PUT_LINE(line_no || ':' || line);

xmlstr :=SUBSTR(xmlstr,INSTR(xmlstr,CHR(10))+1);

line_no :=line_no +1; END LOOP;

END; / 结果为: E001 JOAA <....>

 

DBMS_RANDOM //得到随机数

SQL> declare l_num NUMBER;

counter NUMBER; BEGIN counter:=1;

WHILE counter <=10

LOOP l_num :=ABS((DBMS_RANDOM.RANDOM MOD 100 )) +1;

DBMS_OUTPUT.PUT_LINE(1_num);

counter :=counter+1; END LOOP; END;

/ UTL_FILE 包用于从PL/SQL程序中读写操作系统文本文件,

如XML文件.文件所在位置必须基于Oracle 的DIRECTORY 对象指定的目录.不能直接使

用绝对路径: CREATE DIRECTORY TEST_DIR AS 'C:/DEVELOP';

 

 

--通过UTL_FILE将DBMS_XMLQuery 包的查询结果保存到文件中 SQL>DECLARE str CLOB;

xmlfile UTL_FILE.FILE_TYPE;

length INTEGER;

butter VARCHAR2(16384);

BEGIN src:=DBMS_XMLQuery.getXml('select * from emp');

lengh:=DBMS_LOG.GETLENGTH(src);

DBMS_LOB.READ(src,length,1,buffer);

xmlfile:=UTL_FILE.FOPEN('TEST_DIR','employees.xml','w'); UTL_FILE.PUT(xmlfile,buffer); UTL_FILE.FCLOSE(xmlfile);

END; / --演示如何从XML文件中读取文本 SQL> DECLARE input_file UTL_FILE.FILE_TYPE;

input_buffer VARCHAR2(4000);

BEGIN input_file:=UTL_FILE.FOPEN('TEST_DIR','employess,xml','r');

FOR I IN 1.11 LOOP UTL_FILE.GET_LINE(input_file,input_buffer);

DBMS_OUTPUT.PUT_LINE(input_buffer); END LOOP; UTL_FILE.FCLOSE(input_file);

EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('---------'); END; / 结果 <...> //相关表所有列的值