程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle數據庫基礎 >> 在Oracle中使用PL/SQL操作COM對象

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

編輯：Oracle數據庫基礎

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對象）。

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