Oracle中使用PL/SQL操作COM对象
2007-11-09 23:24
627 查看
PL/SQL是由Oracle公司对标准SQL进行扩展,专用于Oracle数据库中程序设计的专用语言,属第三代过程式程序设计语言。从Oracle8开始提供了直接从PL/SQL中调用外部C语言过程,允许开发人员用PL/SQL进行使用C语言编制的程序模块。从Oracle8i开始,又引入了Java程序。
在本文中主要介绍外部例程的基本原理以及使用条件,介绍如何通过引用外部例程来操作Windows中的COM对象,并做了一个操作Excel对象的示例。
本文的运行环境全部建立在Oracle9i和Windows2000。其中ORACLE的安装目录(ORACLE_HOME)为D:/oracle/ora92,SID为ORADB,主机名为CHANET。
必要性
扩展后的PL/SQL语言已经集成了标准SQL,在效率和安全上非常适合设计Oracle数据库程序,但对于应用的某些功能,其它的程序设计语言比PL/SQL更适合,如:使用操作系统资源,C语言在计算和引用系统对象及使用设备上优于PL/SQL,而Java语言在网络上的应用优于PL/SQL。
如果在应用上要用到不适合用PL/SQL语言的话,这时就要使用其它语言进行编制,然后由PL/SQL作为外部例程进行调用。
在Oracle8之前的版本,PL/SQL和其它语言的唯一通信是借助于DBMS_PIPE和DBMS_ALERT包来实现,在使用之前必需建立一个OCI接口或预编译器编制的监护程序,使用比较复杂。外部例程的出现,只需在PL/SQL中建立一个函数映射到外部例程对应的函数,就像普通的PL/SQL函数使用一样,简化了使用过程。
基本原理
当引用外部C语言例程时,Oracle监听器将启动extproc进程,该进程将会动态地载入共享库(在Windows下称为动态链接库,即是DLL文件),进程起了一个缓冲的作用,当PL/SQL过程调用外部函数时,进程把命令发送到共享库,之后把结果返回给PL/SQL过程。
进程被调用后随着共享库的使用会话(session)而存在,如果调用完毕或者关闭数据库用户会话,extproc进程会自动关闭。
如下图1-1为调用外部例程的描述。
使用配置
在调用外部例程之前,必需进行如下设置:
·配置监听器。
·配置Net组件服务。
配置监听器,打开D:/oracle/ora92/network/admin/listener.ora 文件,修改文件参数。
其中有两部份参数对于使用外部例程是很重要的。
·(ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1))
设置基于IPC协议的外部例程
·(SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:/oracle/ora92) (PROGRAM = extproc) )
记录数据库的相关属性,SID_NAME在默认的情况下是PLSExtproc。
配置Net组件服务,打开D:/oracle/ora92/network/admin/tnsnames.ora文件,把如下内容保存在该文件里。
重要参数说明:
·(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1))
·(CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO)
两设置必需与listener.ora里的一致。
重启监听器,并测试服务是否可用。
停止监听器:lsnrctl stop
启动监听器:lsnrctl start
测试服务是否可用:
已使用的参数文件:
已使用 TNSNAMES 适配器来解析别名
测试extproc进程是否正常:
4、使用COM对象说明
COM对象设计都会提供了三个基本操作给开发人员使用,分别为:获取属性值,设置属性值(只读属性除外),调用方法。Oracle数据库在Windows的平台下提供了操作COM对象的接口,属于C语言外部例程模式。
工作原理如下图:
在使用该功能之前,需明白如下内容:
1) 创建COM对象操作函数。
2)配置监听器。
在listener.ora文件里,添加如下内容,并重启监听器。
3) PL/SQL数据类型与对应的COM对象类型
表1-1数据类型比较
4) 函数说明。
表1-2函数说明
5) 操作Excel示例
本节介绍如何操作COM对象(以Excel对象为例),将数据库里的表记录通过PL/SQL语句输出成Excel文件。通过对象浏览器可以查看Excel对象提供的属性和方法。(如:在Excel菜单,工具 -> 宏 -> 打开Visual Basic编辑器,在编辑器里,视图 -> 对象浏览器)。
使用Excel对象一般针对单元格进行操作(如,设置第一个单元格字体大小的代码为:Range("A1").Font.Size = 20)。对应的COM外部例程操作的步骤为:
1、获取程序句柄;
2、获取工作簿句柄;
3、获取工作表句柄;
4、获取Range区句柄;
5、获取Font类句柄;
6、设置Size属性。
如下为操作Excel对象的例子,首先建立示例表,然后建立操作包(package),最后是使用包函数的过程(procedure)。创建一个测试用表:
-- 销售表(脚本)
操作Excel对象包(Package)。
数据包体内容(PACKAGE BODY)
成功创建oraExcel包后,最后创建使用包的存储过程,实现把数据表里的字符型、日期型和数值型分别传到Excel工作表里,对数值型数据进行统计和使用Excel中的图表。该过程具体操作步骤为:
·创建Excel对象。
·建立表头,设置列宽。
·将游标数据传到工作表。
·画表格。
·设置字体属性。
·插入图表。
·保存为Excel格式文件,关闭Excel对象。
如下为dp_toExcel存储过程:
小结
本文介绍如何从PL/SQL中直接调用C程序的外部例程,并以操作Excel对象为示例。在调用该外部例程时,有如下相关的限制:
·操作系统必需支持动态链接库(DLL)和共享库功能。
·监听器和extproc进程必须运行在数据库所在的同一台机子上,不支持远程数据库。
·extproc唯一支持的是C例程,但可以通过先调用C外部例程去使用其它对象(如:COM对象)。
除了限制外,调用外部例程会引起额外的系统资源开销,在使用外部例程之前要考虑是否一定要用到外部例程
在本文中主要介绍外部例程的基本原理以及使用条件,介绍如何通过引用外部例程来操作Windows中的COM对象,并做了一个操作Excel对象的示例。
本文的运行环境全部建立在Oracle9i和Windows2000。其中ORACLE的安装目录(ORACLE_HOME)为D:/oracle/ora92,SID为ORADB,主机名为CHANET。
必要性
扩展后的PL/SQL语言已经集成了标准SQL,在效率和安全上非常适合设计Oracle数据库程序,但对于应用的某些功能,其它的程序设计语言比PL/SQL更适合,如:使用操作系统资源,C语言在计算和引用系统对象及使用设备上优于PL/SQL,而Java语言在网络上的应用优于PL/SQL。
如果在应用上要用到不适合用PL/SQL语言的话,这时就要使用其它语言进行编制,然后由PL/SQL作为外部例程进行调用。
在Oracle8之前的版本,PL/SQL和其它语言的唯一通信是借助于DBMS_PIPE和DBMS_ALERT包来实现,在使用之前必需建立一个OCI接口或预编译器编制的监护程序,使用比较复杂。外部例程的出现,只需在PL/SQL中建立一个函数映射到外部例程对应的函数,就像普通的PL/SQL函数使用一样,简化了使用过程。
基本原理
当引用外部C语言例程时,Oracle监听器将启动extproc进程,该进程将会动态地载入共享库(在Windows下称为动态链接库,即是DLL文件),进程起了一个缓冲的作用,当PL/SQL过程调用外部函数时,进程把命令发送到共享库,之后把结果返回给PL/SQL过程。
进程被调用后随着共享库的使用会话(session)而存在,如果调用完毕或者关闭数据库用户会话,extproc进程会自动关闭。
如下图1-1为调用外部例程的描述。
图1 监听器与extproc进程 |
在调用外部例程之前,必需进行如下设置:
·配置监听器。
·配置Net组件服务。
配置监听器,打开D:/oracle/ora92/network/admin/listener.ora 文件,修改文件参数。
LISTENER = (DESCRIPTION_LIST = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = 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:/oracle/ora92) (PROGRAM = extproc) ) (SID_DESC = (GLOBAL_DBNAME = ORADB) (ORACLE_HOME = D:/oracle/ora92) (SID_NAME = ORADB) ) ) |
·(ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1))
设置基于IPC协议的外部例程
·(SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:/oracle/ora92) (PROGRAM = extproc) )
记录数据库的相关属性,SID_NAME在默认的情况下是PLSExtproc。
配置Net组件服务,打开D:/oracle/ora92/network/admin/tnsnames.ora文件,把如下内容保存在该文件里。
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.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:/oracle/ora92/network/admin/sqlnet.ora |
Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC) (KEY = EXTPROC1))) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO))) OK(30毫秒) |
D:/oracle/ora92/bin>extproc Oracle Corporation --- 星期四 4月 07 2005 17:37:18.968 Heterogeneous Agent Release 9.2.0.1.0 - Production |
COM对象设计都会提供了三个基本操作给开发人员使用,分别为:获取属性值,设置属性值(只读属性除外),调用方法。Oracle数据库在Windows的平台下提供了操作COM对象的接口,属于C语言外部例程模式。
工作原理如下图:
图2 操作COM对象工作原理 |
1) 创建COM对象操作函数。
SQL> CONNECT SYSTEM/chanet@oradb SQL> CREATE USER chanet identified by chanet; SQL> GRANT CREATE LIBRARY TO chanet; SQL> CONNECT chanet/chanet@oradb; SQL> @D:/oracle/ora92/com/comwrap.sql; |
在listener.ora文件里,添加如下内容,并重启监听器。
STARTUP_WAIT_TIME_LISTENER = 0 CONNECT_TIMEOUT_LISTENER = 10 TRACE_LEVEL_LISTENER = off PASSWORDS_LINTENER = (oracle) |
表1-1数据类型比较
PL/SQL数据类型 | COM API 数据类型 |
VARCHAR2 | BSTR |
BOOLEAN | BOOL |
BINARY_INTEGER | BYTE,INT,LONG |
DOUBLE PRECISION | DOUBLE,FLOAT,CURRENCY |
DATE | DATE |
表1-2函数说明
名称 | 功能描述 |
CreateObject | 创建对象 |
DestroyObject | 关闭对象 |
GetLastError | 获取错误信息 |
GetProperty | 获取属性值 |
SetProperty | 设置属性值 |
InitArg | 为Invoke函数初始化参数 |
InitOutArg | 为GetArg初始化输出参数 |
GetArg | 获取输出参数 |
SetArg | 为Invoke函数设置参数 |
Invoke | 调用COM对象的函数或过程 |
本节介绍如何操作COM对象(以Excel对象为例),将数据库里的表记录通过PL/SQL语句输出成Excel文件。通过对象浏览器可以查看Excel对象提供的属性和方法。(如:在Excel菜单,工具 -> 宏 -> 打开Visual Basic编辑器,在编辑器里,视图 -> 对象浏览器)。
使用Excel对象一般针对单元格进行操作(如,设置第一个单元格字体大小的代码为:Range("A1").Font.Size = 20)。对应的COM外部例程操作的步骤为:
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_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 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(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,ITS_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,ITS_TOTAL) VALUES(’12’,TO_DATE(’2004-12-01’,’YYYY-MM-DD’),305); COMMIT; |
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_INTEGER:=-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 VARCHAR2(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 setCellValues(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; -- 设置列宽 FUNCTION 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 BOOLEAN,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_INTEGER,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; |
CREATE OR REPLACE 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_application_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’); -- 获取工作表句柄 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(); ordcom.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 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.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.DestroyObject(RangeToken); RETURN i; END setCellValuesReal; FUNCTION setCellValues(RANGE VARCHAR2,data DATE,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.DestroyObject(RangeToken); RETURN i; END setCellColWidth; FUNCTION setCellMerge(RANGE VARCHAR2,bValues BOOLEAN,TYPE VARCHAR2) RETURN i; END setCellValues; FUNCTION setCellColWidth(RANGE VARCHAR2,width 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,’ColumnWidth’,width,TYPE); i:=ordcom.DestroyObject(RangeToken); RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.SetArg(RANGE,’BSTR’); i:=ordcom.GetProperty(WorkSheetToken,’Range’,1,RangeToken); i:=ordcom.SetProperty(RangeToken,’MergeCells’,bValues,’BOOLEAN’); i:=ordcom.DestroyObject(RangeToken); RETURN i; END setCellMerge; FUNCTION setCellLines(RANGE VARCHAR2,BordersIndex BINARY_INTEGER, weight BINARY_INTEGER DEFAULT xlThin,TYPE VARCHAR2) RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.SetArg(RANGE,’BSTR’); i:=ordcom.GetProperty(WorkSheetToken,’Range’,1,RangeToken); ordcom.InitArg(); ordcom.SetArg(BordersIndex,TYPE); -- 画表格的具体载入参数 i:=ordcom.GetProperty(RangeToken,’Borders’,1,hLines); i:=ordcom.SetProperty(hLines,’weight’,weight,TYPE); i:=ordcom.DestroyObject(hLines); i:=ordcom.DestroyObject(RangeToken); RETURN i; END setCellLines; FUNCTION setCellFont(RANGE VARCHAR2,Property VARCHAR2,fontValues BINARY_INTEGER,TYPE VARCHAR2) RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.SetArg(RANGE,’BSTR’); i:=ordcom.GetProperty(WorkSheetToken,’Range’,1,RangeToken); ordcom.InitArg(); ordcom.SetArg(Property,TYPE); ordcom.InitArg(); i:=ordcom.GetProperty(WorkSheetToken, ’ChartObjects’, 0, ChartObjectToken); ordcom.InitArg(); ordcom.SetArg(xpos,’I2’); -- 载入图表对象位置参数 ordcom.SetArg(ypos,’I2’); ordcom.SetArg(width,’I2’); ordcom.SetArg(height,’I2’); i:=ordcom.Invoke(ChartObjectToken, ’Add’, 4, ChartObject1); -- 添加图表 i:=ordcom.GetProperty(ChartObject1, ’Chart’, 0,Chart1Token); ordcom.InitArg(); ordcom.SetArg(RANGE, ’BSTR’); i:=ordcom.GetProperty(WorkSheetToken,’Range’, 1, RangeToken); -- 选取区域 ordcom.InitArg(); ordcom.SetArg(RangeToken, ’DISPATCH’); IF TYPE=’xlPie’ THEN charttype := -4102; ELSIF TYPE=’xl3DBar’ THEN charttype := -4099; ELSIF TYPE=’xlBar’ THEN charttype := 2; ELSIF TYPE=’xl3dLine’ THEN i:=ordcom.GetProperty(RangeToken,’Font’,0,hLines); -- 获取字体对象 i:=ordcom.SetProperty(hLines,Property,fontValues,TYPE); i:=ordcom.DestroyObject(hLines); i:=ordcom.DestroyObject(RangeToken); RETURN i; END; FUNCTION callMethod(RANGE VARCHAR2,MethodName VARCHAR2) RETURN BINARY_INTEGER IS reti BINARY_INTEGER := -1; BEGIN ordcom.InitArg(); ordcom.SetArg(RANGE,’BSTR’); i:=ordcom.GetProperty(WorkSheetToken,’Range’,1,RangeToken); ordcom.InitArg(); i:=ordcom.Invoke(RangeToken,MethodName,0,reti); -- 调用对象的方法 i:=ordcom.DestroyObject(RangeToken); RETURN reti; END; FUNCTION InsertChart(xpos BINARY_INTEGER, ypos BINARY_INTEGER, width BINARY_INTEGER, height BINARY_INTEGER, RANGE VARCHAR2, TYPE VARCHAR2) RETURN BINARY_INTEGER IS charttype BINARY_INTEGER:= -4099; BEGIN charttype:= -4101; END IF; ordcom.SetArg(charttype,’I4’); i:=ordcom.Invoke(Chart1Token,’ChartWizard’, 2, DummyToken); i:=ordcom.DestroyObject(RangeToken); i:=ordcom.DestroyObject(ChartObjectToken); i:=ordcom.DestroyObject(ChartObject1); i:=ordcom.DestroyObject(Chart1Token); RETURN i; END InsertChart; FUNCTION SaveToFile(filename VARCHAR2) RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.SetArg(filename,’BSTR’); i:=ordcom.Invoke(WorkBookToken, ’SaveAs’, 1, DummyToken); -- 保存文件 IF (i!=0) THEN ordcom.GetLastError(err_src, err_desc, err_hpf, err_hpID); raise_application_error(-20000,err_src || err_desc || err_hpf || err_hpID); END IF; RETURN i; END SaveToFile; FUNCTION CloseExcel RETURN BINARY_INTEGER IS BEGIN ordcom.InitArg(); ordcom.InitArg(); ordcom.SetArg(FALSE,’BOOL’); i:=ordcom.Invoke(WorkBookToken, ’Close’, 0, DummyToken); i:=ordcom.DestroyObject(WorkBookToken); ordcom.InitArg(); i:=ordcom.Invoke(WorkBooksToken, ’Close’, 0, DummyToken); i:=ordcom.DestroyObject(WorkBooksToken); i:=ordcom.Invoke(applicationToken, ’Quit’, 0, DummyToken); -- 关闭所有句柄 i:=ordcom.DestroyObject(WorkSheetToken); i:=ordcom.DestroyObject(WorkSheetToken1); i:=ordcom.DestroyObject(applicationToken); i:=ordcom.DestroyObject(ChartObjectToken); i:=ordcom.DestroyObject(Chart1Token); i:=ordcom.DestroyObject(hLines); i:=ordcom.DestroyObject(ChartObject1); i:=ordcom.DestroyObject(dummyToken); RETURN i; END CloseExcel; END oraExcel; |
·创建Excel对象。
·建立表头,设置列宽。
·将游标数据传到工作表。
·画表格。
·设置字体属性。
·插入图表。
·保存为Excel格式文件,关闭Excel对象。
如下为dp_toExcel存储过程:
CREATE OR REPLACE PROCEDURE dp_ToExcel IS CURSOR c1 IS SELECT ITS_ID,ITS_DATE,ITS_TOTAL FROM IT_SALE_TAB; n BINARY_INTEGER:=2; i BINARY_INTEGER; filename VARCHAR2(255); cellIndex VARCHAR2(40); cellValue VARCHAR2(40); cellColumn VARCHAR2(10); returnedTime VARCHAR2(20); currencyvalue DOUBLE PRECISION; dateValue DATE; xlThin BINARY_INTEGER:=2; xlEdgeLeft BINARY_INTEGER:=7; xlEdgeTop BINARY_INTEGER:=8; xlEdgeBottom BINARY_INTEGER:=9; xlEdgeRight BINARY_INTEGER:=10; xlInsideVertical BINARY_INTEGER:=11; xlInsideHorizontal BINARY_INTEGER:=12; BEGIN i:=oraExcel.CreateExcelWorkSheet(’’); i:=oraExcel.setCellValues(’A2’, ’序号’, ’BSTR’); i:=oraExcel.setCellValues(’B2’, ’日期’, ’BSTR’); i:=oraExcel.setCellValues(’C2’, ’销售’, ’BSTR’); cellValue:=c1_rec.ITS_TOTAL; currencyValue:=cellValue; i:=oraExcel.setCellValuesReal(cellIndex, currencyValue, ’CY’); n:=n+1; END LOOP; i:=oraExcel.setCellValues(’A’||n,’合计’,’BSTR’); i:=oraExcel.setCellValues(’C’||n,’=SUM(C3:C’||to_char(n-1)||’)’,’BSTR’); -- 画表格 i:=oraExcel.setCellLines(’A1:C’||n,xlEdgeLeft,xlThin,’I2’); i:=oraExcel.setCellLines(’A1:C’||n,xlEdgeTop,xlThin,’I2’); i:=oraExcel.setCellLines(’A1:C’||n,xlEdgeBottom,xlThin,’I2’); i:=oraExcel.setCellLines(’A1:C’||n,xlEdgeRight,xlThin,’I2’); i:=oraExcel.setCellLines(’A1:C’||n,xlInsideVertical,xlThin,’I2’); i:=oraExcel.setCellLines(’A1:C’||n,xlInsideHorizontal,xlThin,’I2’); -- 设置字体属性 i:=oraExcel.setCellFont(’A1:C1’,’Size’,20,’I2’); i:=oraExcel.setCellFont(’A1:C1’,’Bold’,1,’I2’); i:=oraExcel.callMethod(’A1:C1’,’Merge’); -- 合并单元格 i:=oraExcel.setCellValues(’A1:C1’,’合计’,’BSTR’); -- 插入图表 i:=oraExcel.setCellColWidth(’B:B’, 12.75,’CY’); -- 设置列宽 i:=oraExcel.setCellColWidth(’C:C’, 12.75,’CY’); n:=3; For c1_rec IN c1 LOOP cellColumn:=TO_CHAR(n); cellIndex:= ’A’||cellColumn; cellValue:= TO_CHAR(c1_rec.ITS_ID); i:=oraExcel.setCellValues(cellIndex, cellValue, ’BSTR’); cellIndex:= ’B’ || cellColumn; dateValue:=c1_rec.ITS_DATE; i:=oraExcel.setCellValues(cellIndex, dateValue, ’DATE’); cellIndex:= ’C’ || cellColumn; i:=oraExcel.InsertChart(350,200,250,250,’C3:C’||TO_CHAR(n-1),’xlPie’); SELECT TO_CHAR(SYSDATE, ’HH24MISS’) INTO returnedTime FROM dual; filename:=’D:/testExcel’ || returnedTime || ’.xls’; i:=oraExcel.SaveToFile(filename); -- 保存文件 i:=oraExcel.closeExcel(); -- 关闭对象 END; |
本文介绍如何从PL/SQL中直接调用C程序的外部例程,并以操作Excel对象为示例。在调用该外部例程时,有如下相关的限制:
·操作系统必需支持动态链接库(DLL)和共享库功能。
·监听器和extproc进程必须运行在数据库所在的同一台机子上,不支持远程数据库。
·extproc唯一支持的是C例程,但可以通过先调用C外部例程去使用其它对象(如:COM对象)。
除了限制外,调用外部例程会引起额外的系统资源开销,在使用外部例程之前要考虑是否一定要用到外部例程
相关文章推荐
- Oracle使用PL/SQL操作COM对象
- Oracle使用PL/SQL操作COM对象
- Oracle中使用PL/SQL操作COM对象
- 在Oracle中使用PL/SQL操作COM对象
- Oracle中哄骗PL/SQL使用COM对象-2
- 免安装Oracle客户端使用PL/SQL连接Oracle
- PL/SQL ORACLE游标的使用方法
- 不安装oracle客户端也可以使用pl/sql developer
- 怎么配置 Oracle 侦听器来使用SQL操作ST_Geometry
- ORACLE PL/SQL 中序列(sequence)的简易使用方法介绍
- oracle学习(使用了PL/SQL)——2
- 免安装Oracle客户端使用PL/SQL(Server2008 R2 64位问题也可解决)
- Oracle 使用PL/SQL 读取CSV文件,将数据拆分到表中丢失数据行
- Oracle笔记 九、PL/SQL 游标的使用
- oracle 10g 学习之PL/SQL简介和简单使用(10)
- oracle使用PL/SQL创建用户
- Windows下安装Oracle Instant Client并使用 PL/SQL Developer.
- 使用pl/sql来Oracle创建表空间和创建用户 .
- 免安装Oracle客户端使用PL/SQL
- 本机不安装Oracle客户端,使用PL/SQL Developer连接远程数据库