《Oracle中使用PLSQL操作COM对象》由会员分享，可在线阅读，更多相关《Oracle中使用PLSQL操作COM对象（15页珍藏版）》请在金锄头文库上搜索。
1、Oracle 中使用 PL/SQL 操作 COM 对象PL/SQL 是由 Oracle 公司对标准 SQL 进行扩展，专用于 Oracle 数据库中程序设计的专用语言，属第三代过程式程序设计语言。从 Oracle8 开始提供了直接从PL/SQL 中调用外部 C 语言过程，允许开发人员用 PL/SQL 进行使用 C 语言编制的程序模块。从 Oracle8i 开始，又引入了 Java 程序。在本文中主要介绍外部例程的基本原理以及使用条件，介绍如何通过引用外部例程来操作 Windows 中的 COM 对象，并做了一个操作 Excel 对象的示例。 本文的运行环境全部建立在 Oracle9i 和 Wi
2、ndows2000。其中 ORACLE 的安装目录（ORACLE_HOME）为 D:oracleora92，SID 为 ORADB，主机名为CHANET。 必要性扩展后的 PL/SQL 语言已经集成了标准 SQL，在效率和安全上非常适合设计 Oracle 数据库程序，但对于应用的某些功能，其它的程序设计语言比PL/SQL 更适合，如：使用操作系统资源，C 语言在计算和引用系统对象及使用设备上优于 PL/SQL，而 Java 语言在网络上的应用优于 PL/SQL。如果在应用上要用到不适合用 PL/SQL 语言的话，这时就要使用其它语言进行编制，然后由 PL/SQL 作为外部例程进行调用。 在 O
3、racle8 之前的版本，PL/SQL 和其它语言的唯一通信是借助于DBMS_PIPE 和 DBMS_ALERT 包来实现，在使用之前必需建立一个 OCI 接口或预编译器编制的监护程序，使用比较复杂。外部例程的出现，只需在 PL/SQL 中建立一个函数映射到外部例程对应的函数，就像普通的 PL/SQL 函数使用一样，简化了使用过程。 基本原理当引用外部 C 语言例程时，Oracle 监听器将启动 extproc 进程，该进程将会动态地载入共享库（在 Windows 下称为动态链接库，即是 DLL 文件），进程起了一个缓冲的作用，当 PL/SQL 过程调用外部函数时，进程把命令发送到共享库，之后
4、把结果返回给 PL/SQL 过程。 进程被调用后随着共享库的使用会话（session）而存在，如果调用完毕或者关闭数据库用户会话，extproc 进程会自动关闭。 如下图 1-1 为调用外部例程的描述。 图 1 监听器与 extproc 进程 使用配置在调用外部例程之前，必需进行如下设置： 配置监听器。 配置 Net 组件服务。 配置监听器，打开 D:oracleora92networkadminlistener.ora 文件，修改文件参数。 LISTENER = (DESCRIPTION_LIST = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PR
5、OTOCOL = TCP)(HOST = CHANET)(PORT = 1521) ) (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1) ) ) ) SID_LIST_LISTENER = (SID_LIST = (SID_DESC = (SID_NAME = PLSExtProc) (ORACLE_HOME = D:oracleora92) (PROGRAM = extproc) ) (SID_DESC = (GLOBAL_DBNAME = ORADB) (ORACLE_HOME = D:oracleora92) (SID
6、_NAME = ORADB) ) )其中有两部份参数对于使用外部例程是很重要的。 (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1) 设置基于 IPC 协议的外部例程 (SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:oracleora92) (PROGRAM = extproc) ) 记录数据库的相关属性，SID_NAME 在默认的情况下是 PLSExtproc。 配置 Net 组件服务，打开 D:oracleora92networkadmintnsnames.ora文件
7、，把如下内容保存在该文件里。 EXTPROC_CONNECTION_DATA = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1) ) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO) ) ) 重要参数说明： (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO) 两设置必需与 listener.
8、ora 里的一致。重启监听器，并测试服务是否可用。 停止监听器：lsnrctl stop 启动监听器：lsnrctl start 测试服务是否可用： C:tnsping EXTPROC_CONNECTION_DATA TNS Ping Utility for 32-bit Windows: Version 9.2.0.1.0 - Production on 07-4 月 -2 005 16:57:00 Copyright (c) 1997 Oracle Corporation. All rights reserved. 已使用的参数文件: D:oracleora92networkadminsq
9、lnet.ora 已使用 TNSNAMES 适配器来解析别名 Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC) (KEY = EXTPROC1) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO) OK（30 毫秒） 测试 extproc 进程是否正常： D:oracleora92binextproc Oracle Corporation - 星期四 4 月 07 2005 17:37:18.968 Heterogeneous
10、 Agent Release 9.2.0.1.0 - Production 4、使用 COM 对象说明 COM 对象设计都会提供了三个基本操作给开发人员使用，分别为：获取属性值，设置属性值（只读属性除外），调用方法。Oracle 数据库在 Windows的平台下提供了操作 COM 对象的接口，属于 C 语言外部例程模式。 工作原理如下图： 图 2 操作 COM 对象工作原理在使用该功能之前，需明白如下内容： 1) 创建 COM 对象操作函数。 SQLCONNECT SYSTEM/chanetoradb SQLCREATE USER chanet identified by chanet; SQ
11、LGRANT CREATE LIBRARY TO chanet; SQLCONNECT chanet/chanetoradb; SQLD:oracleora92comcomwrap.sql; 2)配置监听器。 在 listener.ora 文件里，添加如下内容，并重启监听器。 STARTUP_WAIT_TIME_LISTENER = 0 CONNECT_TIMEOUT_LISTENER = 10 TRACE_LEVEL_LISTENER = off PASSWORDS_LINTENER = (oracle) 3) PL/SQL 数据类型与对应的 COM 对象类型表 1-1 数据类型比较 PL/
12、SQL 数据类型 COM API 数据类型VARCHAR2 BSTRBOOLEAN BOOLBINARY_INTEGER BYTE，INT，LONGDOUBLE PRECISION DOUBLE，FLOAT，CURRENCYDATE DATE4) 函数说明。 表 1-2 函数说明 名称 功能描述CreateObject 创建对象DestroyObject 关闭对象GetLastError 获取错误信息GetProperty 获取属性值SetProperty 设置属性值InitArg 为 Invoke 函数初始化参数InitOutArg 为 GetArg 初始化输出参数GetArg 获取输出参数
13、SetArg 为 Invoke 函数设置参数Invoke 调用 COM 对象的函数或过程5) 操作 Excel 示例 本节介绍如何操作 COM 对象（以 Excel 对象为例），将数据库里的表记录通过 PL/SQL 语句输出成 Excel 文件。通过对象浏览器可以查看 Excel 对象提供的属性和方法。（如：在 Excel 菜单，工具 - 宏 - 打开 Visual Basic 编辑器，在编辑器里，视图 - 对象浏览器）。 使用 Excel 对象一般针对单元格进行操作（如，设置第一个单元格字体大小的代码为：Range(A1).Font.Size = 20）。对应的 COM 外部例程操作的步骤为
14、：1、获取程序句柄；2、获取工作簿句柄；3、获取工作表句柄；4、获取 Range 区句柄；5、获取 Font 类句柄；6、设置 Size 属性。 如下为操作 Excel 对象的例子，首先建立示例表，然后建立操作包（package），最后是使用包函数的过程（procedure）。创建一个测试用表： - 销售表（脚本） CREATE TABLE IT_SALE_TAB(ITS_ID VARCHAR2(5),ITS_DATE DATE,ITS_TOTAL NUMBER); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(1,TO_D
15、ATE(2004-01-01,YYYY-MM-DD),250); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(2,TO_DATE(2004-02-01,YYYY-MM-DD),150); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(3,TO_DATE(2004-03-01,YYYY-MM-DD),80); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(4,TO_DATE(2004-0
16、4-01,YYYY-MM-DD),96); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(5,TO_DATE(2004-05-01,YYYY-MM-DD),300); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(6,TO_DATE(2004-06-01,YYYY-MM-DD),210); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(7,TO_DATE(2004-07-01,YYYY-MM-DD),320); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS
