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

2024-08-29 13:31:46

字體：大中小

供稿：網(wǎng)友

　　pl/sql是由oracle公司對標(biāo)準(zhǔn)sql進(jìn)行擴(kuò)展，專用于oracle數(shù)據(jù)庫中程序設(shè)計(jì)的專用語言，屬第三代過程式程序設(shè)計(jì)語言。從oracle8開始提供了直接從pl/sql中調(diào)用外部c語言過程，允許開發(fā)人員用pl/sql進(jìn)行使用c語言編制的程序模塊。從oracle8i開始，又引入了java程序。

　　在本文中主要介紹外部例程的基本原理以及使用條件，介紹如何通過引用外部例程來操作windows中的com對象，并做了一個操作excel對象的示例。

　　本文的運(yùn)行環(huán)境全部建立在oracle9i和windows2000。其中oracle的安裝目錄（oracle_home）為d:/oracle/ora92，sid為oradb，主機(jī)名為chanet。

　　必要性

　　擴(kuò)展后的pl/sql語言已經(jīng)集成了標(biāo)準(zhǔn)sql，在效率和安全上非常適合設(shè)計(jì)oracle數(shù)據(jù)庫程序，但對于應(yīng)用的某些功能，其它的程序設(shè)計(jì)語言比pl/sql更適合，如：使用操作系統(tǒng)資源，c語言在計(jì)算和引用系統(tǒng)對象及使用設(shè)備上優(yōu)于pl/sql，而java語言在網(wǎng)絡(luò)上的應(yīng)用優(yōu)于pl/sql。

　　如果在應(yīng)用上要用到不適合用pl/sql語言的話，這時就要使用其它語言進(jìn)行編制，然后由pl/sql作為外部例程進(jìn)行調(diào)用。

　　在oracle8之前的版本，pl/sql和其它語言的唯一通信是借助于dbms_pipe和dbms_alert包來實(shí)現(xiàn)，在使用之前必需建立一個oci接口或預(yù)編譯器編制的監(jiān)護(hù)程序，使用比較復(fù)雜。外部例程的出現(xiàn)，只需在pl/sql中建立一個函數(shù)映射到外部例程對應(yīng)的函數(shù)，就像普通的pl/sql函數(shù)使用一樣，簡化了使用過程。

　　基本原理

　　當(dāng)引用外部c語言例程時，oracle監(jiān)聽器將啟動extproc進(jìn)程，該進(jìn)程將會動態(tài)地載入共享庫（在windows下稱為動態(tài)鏈接庫，即是dll文件），進(jìn)程起了一個緩沖的作用，當(dāng)pl/sql過程調(diào)用外部函數(shù)時，進(jìn)程把命令發(fā)送到共享庫，之后把結(jié)果返回給pl/sql過程。

　　進(jìn)程被調(diào)用后隨著共享庫的使用會話（session）而存在，如果調(diào)用完畢或者關(guān)閉數(shù)據(jù)庫用戶會話，extproc進(jìn)程會自動關(guān)閉。

　　如下圖1-1為調(diào)用外部例程的描述。

圖1 監(jiān)聽器與extproc進(jìn)程
　　使用配置

　　在調(diào)用外部例程之前，必需進(jìn)行如下設(shè)置：

　　 ·配置監(jiān)聽器。

　　 ·配置net組件服務(wù)。

　　配置監(jiān)聽器，打開d:/oracle/ora92/network/admin/listener.ora 文件，修改文件參數(shù)。

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) 
) 
)

　　其中有兩部份參數(shù)對于使用外部例程是很重要的。

　　 ·(address_list = (address = (protocol = ipc)(key = extproc1))

　　設(shè)置基于ipc協(xié)議的外部例程

　　 ·(sid_desc =(sid_name = plsextproc) (oracle_home = d:/oracle/ora92) (program = extproc) )

　　記錄數(shù)據(jù)庫的相關(guān)屬性，sid_name在默認(rèn)的情況下是plsextproc。

　　配置net組件服務(wù)，打開d:/oracle/ora92/network/admin/tnsnames.ora文件，把如下內(nèi)容保存在該文件里。

extproc_connection_data = 
(description = 
　 (address_list = 
　　 (address = (protocol = ipc)(key = extproc1)) 
　 ) 
　 (connect_data = 
　　 (sid = plsextproc) 
　　 (presentation = ro) 
　 ) 
)

　　重要參數(shù)說明：

　　　 ·(address = (protocol = ipc)(key = extproc1))

　　　 ·(connect_data = (sid = plsextproc) (presentation = ro)

　　兩設(shè)置必需與listener.ora里的一致。

　　重啟監(jiān)聽器，并測試服務(wù)是否可用。

　　停止監(jiān)聽器：lsnrctl stop

　　啟動監(jiān)聽器：lsnrctl start

　　測試服務(wù)是否可用：

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.

　　已使用的參數(shù)文件:

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進(jìn)程是否正常：

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對象設(shè)計(jì)都會提供了三個基本操作給開發(fā)人員使用，分別為：獲取屬性值，設(shè)置屬性值（只讀屬性除外），調(diào)用方法。oracle數(shù)據(jù)庫在windows的平臺下提供了操作com對象的接口，屬于c語言外部例程模式。

　　工作原理如下圖：

圖2 操作com對象工作原理
　　在使用該功能之前，需明白如下內(nèi)容：

　　 1) 創(chuàng)建com對象操作函數(shù)。

sql>connect system/[email protected] 
sql>create user chanet identified by chanet; 
sql>grant create library to chanet; 
sql>connect chanet/[email protected]; 
sql>@d:/oracle/ora92/com/comwrap.sql;

　　 2)配置監(jiān)聽器。

　　在listener.ora文件里，添加如下內(nèi)容，并重啟監(jiān)聽器。

startup_wait_time_listener = 0 
connect_timeout_listener = 10 
trace_level_listener = off 
passwords_lintener = (oracle)

　　 3) pl/sql數(shù)據(jù)類型與對應(yīng)的com對象類型

　　表1-1數(shù)據(jù)類型比較

pl/sql數(shù)據(jù)類型	com api 數(shù)據(jù)類型
varchar2	bstr
boolean	bool
binary_integer	byte，int，long
double precision	double，float，currency
date	date

　　 4) 函數(shù)說明。

　　表1-2函數(shù)說明

名稱	功能描述
createobject	創(chuàng)建對象
destroyobject	關(guān)閉對象
getlasterror	獲取錯誤信息
getproperty	獲取屬性值
setproperty	設(shè)置屬性值
initarg	為invoke函數(shù)初始化參數(shù)
initoutarg	為getarg初始化輸出參數(shù)
getarg	獲取輸出參數(shù)
setarg	為invoke函數(shù)設(shè)置參數(shù)
invoke	調(diào)用com對象的函數(shù)或過程

　 5) 操作excel示例

　　本節(jié)介紹如何操作com對象（以excel對象為例），將數(shù)據(jù)庫里的表記錄通過pl/sql語句輸出成excel文件。通過對象瀏覽器可以查看excel對象提供的屬性和方法。（如：在excel菜單，工具 -> 宏 -> 打開visual basic編輯器，在編輯器里，視圖 -> 對象瀏覽器）。

　　使用excel對象一般針對單元格進(jìn)行操作（如，設(shè)置第一個單元格字體大小的代碼為：range("a1").font.size = 20）。對應(yīng)的com外部例程操作的步驟為：

　　 1、獲取程序句柄；

　　 2、獲取工作簿句柄；

　　 3、獲取工作表句柄；

　　 4、獲取range區(qū)句柄；

　　 5、獲取font類句柄；

　　 6、設(shè)置size屬性。

　　如下為操作excel對象的例子，首先建立示例表，然后建立操作包（package），最后是使用包函數(shù)的過程（procedure）。創(chuàng)建一個測試用表：

　　 -- 銷售表（腳本）

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區(qū)句柄 
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; 
-- 創(chuàng)建excel對象 
function createexcelworksheet(servername varchar2) return binary_integer; 
-- 插入數(shù)據(jù)(字符型) 
function setcellvalues(range varchar2,data varchar2,type varchar2) 
return binary_integer; 
-- 插入數(shù)據(jù)(日期型) 
function setcellvalues(range varchar2,data date,type varchar2) 
return binary_integer; 
-- 插入數(shù)據(jù)(整型) 
function setcellvalues(range varchar2,data binary_integer,type varchar2) 
return binary_integer; 
-- 插入數(shù)據(jù)(實(shí)型) 
function setcellvaluesreal(range varchar2,data double precision,type varchar2) 

return binary_integer; 
-- 設(shè)置列寬 
function setcellcolwidth(range varchar2,width double precision,type varchar2) return 
binary_integer; 
-- 設(shè)置表格 
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; 
-- 設(shè)置字體屬性 
function setcellfont(range varchar2,property varchar2, 
fontvalues binary_integer,type varchar2) return binary_integer; 
-- 調(diào)用方法 
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; 
-- 關(guān)閉excel對象 
function closeexcel return binary_integer; 
end oraexcel;

　　數(shù)據(jù)包體內(nèi)容（package body）

create or replace package body oraexcel is 
function createexcelworksheet(servername varchar2) return binary_integer is 
begin 
-- 創(chuàng)建excel對象 
i:=ordcom.createobject(’excel.application’, 0, servername,applicationtoken); 
if (i!=0) then -- 創(chuàng)建失敗,提示返回的錯誤信息 
ordcom.getlasterror(err_src, err_desc, err_hpf, err_hpid); 
raise_application_error(-20000,err_src || err_desc || err_hpf || err_hpid); 
end if; 
-- 通過程序?qū)ο缶浔@取工作簿句柄 
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區(qū)句柄,之后將數(shù)據(jù)寫入到指定的單元格 
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); -- 畫表格的具體載入?yún)?shù) 
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’); -- 載入圖表對象位置參數(shù) 
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); -- 選取區(qū)域 
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); -- 調(diào)用對象的方法 
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); 
-- 關(guān)閉所有句柄 
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;

　　成功創(chuàng)建oraexcel包后，最后創(chuàng)建使用包的存儲過程，實(shí)現(xiàn)把數(shù)據(jù)表里的字符型、日期型和數(shù)值型分別傳到excel工作表里，對數(shù)值型數(shù)據(jù)進(jìn)行統(tǒng)計(jì)和使用excel中的圖表。該過程具體操作步驟為：

　　 ·創(chuàng)建excel對象。

　　 ·建立表頭，設(shè)置列寬。

　　 ·將游標(biāo)數(shù)據(jù)傳到工作表。

　　 ·畫表格。

　　 ·設(shè)置字體屬性。

　　 ·插入圖表。

　　 ·保存為excel格式文件，關(guān)閉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,’合計(jì)’,’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’); 
-- 設(shè)置字體屬性 
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’,’合計(jì)’,’bstr’); 
-- 插入圖表 
i:=oraexcel.setcellcolwidth(’b:b’, 12.75,’cy’); -- 設(shè)置列寬 
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(); -- 關(guān)閉對象 
end;

　　小結(jié)

　　本文介紹如何從pl/sql中直接調(diào)用c程序的外部例程，并以操作excel對象為示例。在調(diào)用該外部例程時，有如下相關(guān)的限制：

　　 ·操作系統(tǒng)必需支持動態(tài)鏈接庫（dll）和共享庫功能。

　　 ·監(jiān)聽器和extproc進(jìn)程必須運(yùn)行在數(shù)據(jù)庫所在的同一臺機(jī)子上，不支持遠(yuǎn)程數(shù)據(jù)庫。

　　 ·extproc唯一支持的是c例程，但可以通過先調(diào)用c外部例程去使用其它對象（如：com對象）。

　　除了限制外，調(diào)用外部例程會引起額外的系統(tǒng)資源開銷，在使用外部例程之前要考慮是否一定要用到外部例程。

上一篇：從Oracle遷移到SQL Server的陷阱

下一篇：Oracle與SQL Server在企業(yè)應(yīng)用中的比較