首页
关于我们
服务项目
作品展示
服务支持
联系我们
友情链接
网站地图
　您当前位置：网络学院 -> 编程开发系-> 数据库-> SQL、ACCESS
Oracle中使用PL/SQL操作COM对象
作者：admin 来源：网络
日期: 2007-2-27
站内搜索
文章页数：[1] 
　　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对象的函数或过程
　　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对象）。

　　 除了限制外，调用外部例程会引起额外的系统资源开销，在使用外部例程之前要考虑是否一定要用到外部例程。
文章页数：[1] 
放大字体显示 缩小字体显示 打印文章 推荐给朋友
热门文章
·MS SQL 数据库备份和还原的几种方法
·SQL Server日志清除的两种方法
·全面接触SQL语法
·牢记！SQL Server数据库开发的二十一条军规
·SQLServer数据库安全规划全攻略
·SQL Server2000数据库文件损坏时如何恢复
·SQL 语法参考手册
·如何把ACCESS转成SQL数据库
·深入探讨SQL Server 2000对XML的支持
·SQL Server 2005数据加密技术应用研究
最新文章
·实战MSSQL 2000数据库之MSSQL 2000的安装
·SQL SERVER与ACCESS、EXCEL数据转换
·改善SQL Server内存管理
·如何为用户设置密码
·Asp备份与恢复SQLServer数据库
·SQL Server2000数据库文件损坏时如何恢复
·SQL 语法参考手册
·SQLServer数据库安全规划全攻略
·用Access将XLS与MDB文件格式互相转换
·Oracle与SQL Server在企业应用中的比较
相关主题
版权申明：除部分特别声明不要转载，或者授权本站独家播发的文章外，大家可以自由转载本站的原创文章，但原作者和来自本站的链接必须保留（非本站原创的，按照原来自一节，自行链接）。文章版权归本站和作者共有。
转载要求：转载之图片、文件，链接请不要盗链到本站，且不准打上各自站点的水印，亦不能抹去本站水印。
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。
发表评论　 打印　 刷新 　推荐给朋友　 返回顶部 　关闭

网上大名：
Copyright © 2004－2008 IT网络学院 版权所有 All rights reserved.
网站建设 | 网页设计 | 网站设计 | 网页制作 | 网站制作 | 程序开发 | .NET开发 | C#开发