Oracle中使用PL/SQL操作COM对象

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为调用外部例程的描述。

图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

已使用 TNSNAMES 适配器来解析别名

Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)

(KEY = EXTPROC1))) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO)))

OK（30毫秒）

测试extproc进程是否正常：

D:\oracle\ora92\bin>extproc

Oracle Corporation --- 星期四 4月 07 2005 17:37:18.968

Heterogeneous Agent Release 9.2.0.1.0 - Production

4、使用COM对象说明

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;

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 数据类型

VARCHAR2

BSTR

BOOLEAN

BOOL

BINARY_INTEGER

BYTE，INT，LONG

DOUBLE PRECISION

DOUBLE，FLOAT，CURRENCY

DATE

DATE

4) 函数说明。

表1-2函数说明

名称

功能描述

CreateObject

创建对象

DestroyObject

关闭对象

GetLastError

获取错误信息

GetProperty

获取属性值

SetProperty

设置属性值

InitArg

为Invoke函数初始化参数

InitOutArg

为GetArg初始化输出参数

GetArg

获取输出参数

SetArg

为Invoke函数设置参数

Invoke

调用COM对象的函数或过程 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）。创建一个测试用表：

-- 销售表（脚本）

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;

操作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_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;

数据包体内容（PACKAGE BODY）

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;

成功创建oraExcel包后，最后创建使用包的存储过程，实现把数据表里的字符型、日期型和数值型分别传到Excel工作表里，对数值型数据进行统计和使用Excel中的图表。该过程具体操作步骤为：

·创建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 SQL性能优化系列 (十三)
• ·ORACLE SQL性能优化系列 (十二)
• ·Oracle 9i新特性研究二(轻松取得建表和
• ·Oracle 9i新特性研究一(数据库默认临时
• ·用Oracle9ias开发无线应用程序
• ·Oracle 8i中字符集乱码问题析及其解决办
• ·Oracle 数据表分区的策略
• ·Oracle PL/SQL入门之慨述
• ·Oracle平台应用数据库系统的设计与开发
• ·Oracle数据库日常维护手册