Oracle中使用PLSQL操作COM对象Word下载.docx
《Oracle中使用PLSQL操作COM对象Word下载.docx》由会员分享,可在线阅读,更多相关《Oracle中使用PLSQL操作COM对象Word下载.docx(18页珍藏版)》请在冰点文库上搜索。
\oracle\ora92\network\admin\listener.ora文件,修改文件参数。
LISTENER=
(DESCRIPTION_LIST=
(DESCRIPTION=
(ADDRESS_LIST=
(ADDRESS=(PROTOCOL=TCP)(HOST=CHANET)(PORT=1521))
)
(ADDRESS=(PROTOCOL=IPC)(KEY=extproc1))
SID_LIST_LISTENER=
(SID_LIST=
(SID_DESC=
(SID_NAME=PLSExtProc)
(ORACLE_HOME=D:
\oracle\ora92)
(PROGRAM=extproc)
(GLOBAL_DBNAME=ORADB)
(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=
(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里的一致。
重启监听器,并测试服务是否可用。
停止监听器:
lsnrctlstop
启动监听器:
lsnrctlstart
测试服务是否可用:
C:
\>
tnspingEXTPROC_CONNECTION_DATA
TNSPingUtilityfor32-bitWindows:
Version9.2.0.1.0-Productionon07-4月-2
00516:
57:
00
Copyright(c)1997OracleCorporation.Allrightsreserved.
已使用的参数文件:
D:
\oracle\ora92\network\admin\sqlnet.ora
已使用TNSNAMES适配器来解析别名
Attemptingtocontact(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=IPC)
(KEY=EXTPROC1)))(CONNECT_DATA=(SID=PLSExtProc)(PRESENTATION=RO)))
OK(30毫秒)
测试extproc进程是否正常:
\oracle\ora92\bin>
extproc
OracleCorporation---星期四4月07200517:
37:
18.968
HeterogeneousAgentRelease9.2.0.1.0-Production
4、使用COM对象说明
COM对象设计都会提供了三个基本操作给开发人员使用,分别为:
获取属性值,设置属性值(只读属性除外),调用方法。
Oracle数据库在Windows的平台下提供了操作COM对象的接口,属于C语言外部例程模式。
工作原理如下图:
图2操作COM对象工作原理
在使用该功能之前,需明白如下内容:
1)创建COM对象操作函数。
SQL>
CONNECTSYSTEM/chanet@oradb
CREATEUSERchanetidentifiedbychanet;
GRANTCREATELIBRARYTOchanet;
CONNECTchanet/chanet@oradb;
@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数据类型
COMAPI数据类型
VARCHAR2
BSTR
BOOLEAN
BOOL
BINARY_INTEGER
BYTE,INT,LONG
DOUBLEPRECISION
DOUBLE,FLOAT,CURRENCY
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菜单,工具->
宏->
打开VisualBasic编辑器,在编辑器里,视图->
对象浏览器)。
使用Excel对象一般针对单元格进行操作(如,设置第一个单元格字体大小的代码为:
Range("
A1"
).Font.Size=20)。
对应的COM外部例程操作的步骤为:
1、获取程序句柄;
2、获取工作簿句柄;
3、获取工作表句柄;
4、获取Range区句柄;
5、获取Font类句柄;
6、设置Size属性。
如下为操作Excel对象的例子,首先建立示例表,然后建立操作包(package),最后是使用包函数的过程(procedure)。
创建一个测试用表:
--销售表(脚本)
CREATETABLEIT_SALE_TAB(ITS_IDVARCHAR2(5),ITS_DATEDATE,ITS_TOTALNUMBER);
INSERTINTOIT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
VALUES(’1’,TO_DATE(’2004-01-01’,’YYYY-MM-DD’),250);
VALUES(’2’,TO_DATE(’2004-02-01’,’YYYY-MM-DD’),150);
VALUES(’3’,TO_DATE(’2004-03-01’,’YYYY-MM-DD’),80);
VALUES(’4’,TO_DATE(’2004-04-01’,’YYYY-MM-DD’),96);
VALUES(’5’,TO_DATE(’2004-05-01’,’YYYY-MM-DD’),300);
VALUES(’6’,TO_DATE(’2004-06-01’,’YYYY-MM-DD’),210);
VALUES(’7’,TO_DATE(’2004-07-01’,’YYYY-MM-DD’),320);
VALUES(’8’,TO_DATE(’2004-08-01’,’YYYY-MM-DD’),280);
VALUES(’9’,TO_DATE(’2004-09-01’,’YYYY-MM-DD’),276);
VALUES(’10’,TO_DATE(’2004-10-01’,’YYYY-MM-DD’),368);
VALUES(’11’,TO_DATE(’2004-11-01’,’YYYY-MM-DD’),163);
VALUES(’12’,TO_DATE(’2004-12-01’,’YYYY-MM-DD’),305);
COMMIT;
操作Excel对象包(Package)。
CREATEORREPLACEPACKAGEoraExcelIS
xlThinBINARY_INTEGERDEFAULT2;
DummyTokenBINARY_INTEGER;
applicationTokenBINARY_INTEGER:
=-1;
--Excel对象句柄
WorkBooksTokenBINARY_INTEGER:
--工作簿句柄
WorkBookTokenBINARY_INTEGER:
WorkSheetTokenBINARY_INTEGER:
--工作表句柄
WorkSheetToken1BINARY_INTEGER:
RangeTokenBINARY_INTEGER:
--Range区句柄
ChartObjectTokenBINARY_INTEGER:
--图表对象句柄
ChartObject1BINARY_INTEGER:
Chart1TokenBINARY_INTEGER:
hLinesBINARY_INTEGER:
iBINARY_INTEGER;
err_srcVARCHAR2(255);
err_descVARCHAR2(255);
err_hpfVARCHAR2(255);
err_hpIDBINARY_INTEGER;
--创建Excel对象
FUNCTIONCreateExcelWorkSheet(servernameVARCHAR2)RETURNBINARY_INTEGER;
--插入数据(字符型)
FUNCTIONsetCellValues(RANGEVARCHAR2,dataVARCHAR2,TYPEVARCHAR2)
RETURNBINARY_INTEGER;
--插入数据(日期型)
FUNCTIONsetCellValues(RANGEVARCHAR2,dataDATE,TYPEVARCHAR2)
--插入数据(整型)
FUNCTIONsetCellValues(RANGEVARCHAR2,dataBINARY_INTEGER,TYPEVARCHAR2)
--插入数据(实型)
FUNCTIONsetCellValuesReal(RANGEVARCHAR2,dataDOUBLEPRECISION,TYPEVARCHAR2)
--设置列宽
FUNCTIONsetCellColWidth(RANGEVARCHAR2,widthDOUBLEPRECISION,TYPEVARCHAR2)RETURN
BINARY_INTEGER;
--设置表格
FUNCTIONsetCellLines(RANGEVARCHAR2,BordersIndexBINARY_INTEGER,weight
BINARY_INTEGERDEFAULTxlThin,TYPEVARCHAR2)RETURNBINARY_INTEGER;
--合并单元格
FUNCTIONsetCellMerge(RANGEVARCHAR2,bValuesBOOLEAN,TYPEVARCHAR2)
--设置字体属性
FUNCTIONsetCellFont(RANGEVARCHAR2,PropertyVARCHAR2,
fontValuesBINARY_INTEGER,TYPEVARCHAR2)RETURNBINARY_INTEGER;
--调用方法
FUNCTIONcallMethod(RANGEVARCHAR2,MethodNameVARCHAR2)RETURNBINARY_INTEGER;
--插入图表
FUNCTIONInsertChart(xposBINARY_INTEGER,yposBINARY_INTEGER,
widthBINARY_INTEGER,heightBINARY_INTEGER,
RANGEVARCHAR2,TYPEVARCHAR2)RETURNBINARY_INTEGER;
--保存文件
FUNCTIONSaveToFile(filenameVARCHAR2)RETURNBINARY_INTEGER;
--关闭Excel对象
FUNCTIONCloseExcelRETURNBINARY_INTEGER;
ENDoraExcel;
数据包体内容(PACKAGEBODY)
CREATEORREPLACEPACKAGEBODYoraExcelIS
FUNCTIONCreateExcelWorkSheet(servernameVARCHAR2)RETURNBINARY_INTEGERIS
BEGIN
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);
ENDIF;
--通过程序对象句柄获取工作簿句柄
=ordcom.GetProperty(applicationToken,’WorkBooks’,0,WorkBooksToken);
ordcom.InitArg();
ordcom.SetArg(-4167,’I4’);
=ordcom.Invoke(WorkBooksToken,’Add’,1,WorkBookToken);
ordcom.SetArg(’Sheet1’,’BSTR’);
--获取工作表句柄
=ordcom.GetProperty(applicationToken,’WorkSheets’,0,WorkSheetToken1);
=ordcom.Invoke(WorkSheetToken1,’Add’,0,WorkSheetToken);
RETURNi;
ENDCreateExcelWorkSheet;
FUNCTIONsetCellValues(RANGEVARCHAR2,dataVARCHAR2,TYPEVARCHAR2)
RETURNBINARY_INTEGERIS
ordcom.SetArg(RANGE,’BSTR’);
--获取Range区句柄,之后将数据写入到指定的单元格
=ordcom.GetProperty(WorkSheetToken,’Range’,1,RangeToken);
=ordcom.SetProperty(RangeToken,’Value’,data,TYPE);
=ordcom.DestroyObject(RangeToken);
ENDsetCellValues;
ordcom.SetArg(RANGE,’BSTR’);
=ordcom.SetProperty(RangeToken,’Value’,data,type);
=ordcom