1、Oracle中使用PLSQL操作COM对象Oracle中使用PL/SQL操作COM对象PL/SQL是由Oracle公司对标准SQL进行扩展,专用于Oracle数据库中程序设计的专用语言,属第三代过程式程序设计语言。从Oracle8开始提供了直接从PL/SQL中调用外部C语言过程,允许开发人员用PL/SQL进行使用C语言编制的程序模块。从Oracle8i开始,又引入了Java程序。 在本文中主要介绍外部例程的基本原理以及使用条件,介绍如何通过引用外部例程来操作Windows中的COM对象,并做了一个操作Excel对象的示例。 本文的运行环境全部建立在Oracle9i和Windows2000。其中
2、ORACLE的安装目录(ORACLE_HOME)为D:oracleora92,SID为ORADB,主机名为CHANET。 必要性 扩展后的PL/SQL语言已经集成了标准SQL,在效率和安全上非常适合设计Oracle数据库程序,但对于应用的某些功能,其它的程序设计语言比PL/SQL更适合,如:使用操作系统资源,C语言在计算和引用系统对象及使用设备上优于PL/SQL,而Java语言在网络上的应用优于PL/SQL。 如果在应用上要用到不适合用PL/SQL语言的话,这时就要使用其它语言进行编制,然后由PL/SQL作为外部例程进行调用。 在Oracle8之前的版本,PL/SQL和其它语言的唯一通信是借助
3、于DBMS_PIPE和DBMS_ALERT包来实现,在使用之前必需建立一个OCI接口或预编译器编制的监护程序,使用比较复杂。外部例程的出现,只需在PL/SQL中建立一个函数映射到外部例程对应的函数,就像普通的PL/SQL函数使用一样,简化了使用过程。 基本原理 当引用外部C语言例程时,Oracle监听器将启动extproc进程,该进程将会动态地载入共享库(在Windows下称为动态链接库,即是DLL文件),进程起了一个缓冲的作用,当PL/SQL过程调用外部函数时,进程把命令发送到共享库,之后把结果返回给PL/SQL过程。 进程被调用后随着共享库的使用会话(session)而存在,如果调用完毕或
4、者关闭数据库用户会话,extproc进程会自动关闭。 如下图1-1为调用外部例程的描述。 图1 监听器与extproc进程 使用配置 在调用外部例程之前,必需进行如下设置: 配置监听器。 配置Net组件服务。 配置监听器,打开D:oracleora92networkadminlistener.ora 文件,修改文件参数。 LISTENER = (DESCRIPTION_LIST = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = CHANET)(PORT = 1521) ) (ADDRESS_LIST = (A
5、DDRESS = (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_NAME = ORADB) ) ) 其中有两部份参数对于使用外部例程是很重要的。 (ADDRESS_LIST = (ADD
6、RESS = (PROTOCOL = IPC)(KEY = extproc1) 设置基于IPC协议的外部例程 (SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:oracleora92) (PROGRAM = extproc) ) 记录数据库的相关属性,SID_NAME在默认的情况下是PLSExtproc。 配置Net组件服务,打开D:oracleora92networkadmintnsnames.ora文件,把如下内容保存在该文件里。 EXTPROC_CONNECTION_DATA = (DESCRIPTION = (ADDRESS_LIS
7、T = (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1) ) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO) ) ) 重要参数说明: (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO) 两设置必需与listener.ora里的一致。 重启监听器,并测试服务是否可用。 停止监听器:lsnrctl stop 启动监听器:lsnrctl start 测试服务
8、是否可用: 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:oracleora92networkadminsqlnet.ora 已使用 TNSNAMES 适配器来解析别名 Attempting to contact (DESCRIPTION = (A
9、DDRESS_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 Agent Release 9.2.0.1.0 - Production 4、使用COM对象说明 COM对象设计都会提供了三个基本操作给开发人员使
10、用,分别为:获取属性值,设置属性值(只读属性除外),调用方法。Oracle数据库在Windows的平台下提供了操作COM对象的接口,属于C语言外部例程模式。 工作原理如下图: 图2 操作COM对象工作原理 在使用该功能之前,需明白如下内容: 1) 创建COM对象操作函数。 SQLCONNECT SYSTEM/chanetoradb SQLCREATE USER chanet identified by chanet; SQLGRANT CREATE LIBRARY TO chanet; SQLCONNECT chanet/chanetoradb; SQLD:oracleora92comcomw
11、rap.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/SQL数据类型COM API 数据类型VARCHAR2BSTRBOOLEANBOOLBINARY_INTEGERBYTE,INT,LONGDOUBLE PRECISIONDOUBLE,F
12、LOAT,CURRENCYDATEDATE 4) 函数说明。 表1-2函数说明 名称功能描述CreateObject创建对象DestroyObject关闭对象GetLastError获取错误信息GetProperty获取属性值SetProperty设置属性值InitArg为Invoke函数初始化参数InitOutArg为GetArg初始化输出参数GetArg获取输出参数SetArg为Invoke函数设置参数Invoke调用COM对象的函数或过程5) 操作Excel示例 本节介绍如何操作COM对象(以Excel对象为例),将数据库里的表记录通过PL/SQL语句输出成Excel文件。通过对象浏览器
13、可以查看Excel对象提供的属性和方法。(如:在Excel菜单,工具 - 宏 - 打开Visual Basic编辑器,在编辑器里,视图 - 对象浏览器)。 使用Excel对象一般针对单元格进行操作(如,设置第一个单元格字体大小的代码为:Range(A1).Font.Size = 20)。对应的COM外部例程操作的步骤为: 1、获取程序句柄; 2、获取工作簿句柄; 3、获取工作表句柄; 4、获取Range区句柄; 5、获取Font类句柄; 6、设置Size属性。 如下为操作Excel对象的例子,首先建立示例表,然后建立操作包(package),最后是使用包函数的过程(procedure)。创建一
14、个测试用表: - 销售表(脚本) 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_DATE(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
15、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-04-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
16、(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_TOTAL) VALUES(8,TO_DATE(2004-08-01,YYYY-MM-DD),280); INSERT INTO IT_SALE_TAB(ITS_ID,I
17、TS_DATE,ITS_TOTAL) VALUES(9,TO_DATE(2004-09-01,YYYY-MM-DD),276); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(10,TO_DATE(2004-10-01,YYYY-MM-DD),368); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(11,TO_DATE(2004-11-01,YYYY-MM-DD),163); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE
18、,ITS_TOTAL) VALUES(12,TO_DATE(2004-12-01,YYYY-MM-DD),305); COMMIT; 操作Excel对象包(Package)。 CREATE OR REPLACE PACKAGE oraExcel IS xlThin BINARY_INTEGER DEFAULT 2; DummyToken BINARY_INTEGER; applicationToken BINARY_INTEGER:=-1; - Excel对象句柄 WorkBooksToken BINARY_INTEGER:=-1; - 工作簿句柄 WorkBookToken BINARY_I
19、NTEGER:=-1; WorkSheetToken BINARY_INTEGER:=-1; - 工作表句柄 WorkSheetToken1 BINARY_INTEGER:=-1; RangeToken BINARY_INTEGER:=-1; - Range区句柄 ChartObjectToken BINARY_INTEGER:=-1; - 图表对象句柄 ChartObject1 BINARY_INTEGER:=-1; Chart1Token BINARY_INTEGER:=-1; hLines BINARY_INTEGER:=-1; i BINARY_INTEGER; err_src VAR
20、CHAR2(255); err_desc VARCHAR2(255); err_hpf VARCHAR2(255); err_hpID BINARY_INTEGER; - 创建Excel对象 FUNCTION CreateExcelWorkSheet(servername VARCHAR2) RETURN BINARY_INTEGER; - 插入数据(字符型) FUNCTION setCellValues(RANGE VARCHAR2,data VARCHAR2,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 插入数据(日期型) FUNCTION setCell
21、Values(RANGE VARCHAR2,data DATE,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 插入数据(整型) FUNCTION setCellValues(RANGE VARCHAR2,data BINARY_INTEGER,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 插入数据(实型) FUNCTION setCellValuesReal(RANGE VARCHAR2,data DOUBLE PRECISION,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 设置列宽 FUN
22、CTION setCellColWidth(RANGE VARCHAR2,width DOUBLE PRECISION,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 设置表格 FUNCTION setCellLines(RANGE VARCHAR2,BordersIndex BINARY_INTEGER,weight BINARY_INTEGER DEFAULT xlThin,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 合并单元格 FUNCTION setCellMerge(RANGE VARCHAR2,bValues BO
23、OLEAN,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 设置字体属性 FUNCTION setCellFont(RANGE VARCHAR2,Property VARCHAR2, fontValues BINARY_INTEGER,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 调用方法 FUNCTION callMethod(RANGE VARCHAR2,MethodName VARCHAR2) RETURN BINARY_INTEGER; - 插入图表 FUNCTION InsertChart(xpos BINARY_IN
24、TEGER,ypos BINARY_INTEGER, width BINARY_INTEGER,height BINARY_INTEGER, RANGE VARCHAR2,TYPE VARCHAR2) RETURN BINARY_INTEGER; - 保存文件 FUNCTION SaveToFile(filename VARCHAR2) RETURN BINARY_INTEGER; - 关闭Excel对象 FUNCTION CloseExcel RETURN BINARY_INTEGER; END oraExcel; 数据包体内容(PACKAGE BODY) CREATE OR REPLACE
25、 PACKAGE BODY oraExcel IS FUNCTION CreateExcelWorkSheet(servername VARCHAR2) RETURN BINARY_INTEGER IS BEGIN - 创建Excel对象 i:=ordcom.CreateObject(Excel.Application, 0, servername,applicationToken); IF (i!=0) THEN - 创建失败,提示返回的错误信息 ordcom.GetLastError(err_src, err_desc, err_hpf, err_hpID); raise_applicat
26、ion_error(-20000,err_src | err_desc | err_hpf | err_hpID); END IF; - 通过程序对象句柄获取工作簿句柄 i:=ordcom.GetProperty(applicationToken, WorkBooks, 0, WorkBooksToken); ordcom.InitArg(); ordcom.SetArg(-4167,I4); i:=ordcom.Invoke(WorkBooksToken, Add, 1, WorkBookToken); ordcom.InitArg(); ordcom.SetArg(Sheet 1,BSTR
27、); - 获取工作表句柄 i:=ordcom.GetProperty(applicationToken, WorkSheets, 0, WorkSheetToken1); i:=ordcom.Invoke(WorkSheetToken1, Add, 0, WorkSheetToken); RETURN i; END CreateExcelWorkSheet; FUNCTION setCellValues(RANGE VARCHAR2,data VARCHAR2, TYPE VARCHAR2) RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); or
28、dcom.SetArg(RANGE,BSTR); - 获取Range区句柄,之后将数据写入到指定的单元格 i:=ordcom.GetProperty(WorkSheetToken, Range, 1, RangeToken); i:=ordcom.SetProperty(RangeToken, Value, data, TYPE); i:=ordcom.DestroyObject(RangeToken); RETURN i; END setCellValues; FUNCTION setCellValues(RANGE VARCHAR2,data BINARY_INTEGER,TYPE VAR
29、CHAR2) RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.SetArg(RANGE, BSTR); i:=ordcom.GetProperty(WorkSheetToken, Range, 1, RangeToken); i:=ordcom.SetProperty(RangeToken, Value, data, type); i:=ordcom.DestroyObject(RangeToken); RETURN i; END setCellValues; FUNCTION setCellValuesReal(RANGE VARCHAR2,data DOUBLE PRECISION,TYPE VARCHAR2) RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.SetArg(RANGE, BSTR); i:=ordcom.GetProperty(WorkSheetToken, Range, 1, RangeToken); i:=ordcom.SetProperty(RangeToken, Value, data, type); i:=ordcom
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1