Oracle數(shù)據(jù)庫(kù)中程序設(shè)計(jì)的語(yǔ)言有哪些
PL/SQL是由Oracle公司對(duì)標(biāo)準(zhǔn)SQL進(jìn)行擴(kuò)展，專(zhuān)用于Oracle數(shù)據(jù)庫(kù)中程序設(shè)計(jì)的專(zhuān)用語(yǔ)言，屬第三代過(guò)程式程序設(shè)計(jì)語(yǔ)言。從Oracle8開(kāi)始提供了直接從PL/SQL中調(diào)用外部C語(yǔ)言過(guò)程，允許開(kāi)發(fā)人員用PL/SQL進(jìn)行使用C語(yǔ)言編制的程序模塊。從Oracle8i開(kāi)始，又引入了Java程序。
在本文中主要介紹外部例程的基本原理以及使用條件，介紹如何通過(guò)引用外部例程來(lái)操作Windows中的COM對(duì)象，并做了一個(gè)操作Excel對(duì)象的示例。
本文的運(yùn)行環(huán)境全部建立在Oracle9i和Windows2000。其中ORACLE的安裝目錄（ORACLE_HOME）為D:oracleora92，SID為ORADB，主機(jī)名為CHANET。
必要性
擴(kuò)展后的PL/SQL語(yǔ)言已經(jīng)集成了標(biāo)準(zhǔn)SQL，在效率和安全上非常適合設(shè)計(jì)Oracle數(shù)據(jù)庫(kù)程序，但對(duì)于應(yīng)用的某些功能，其它的程序設(shè)計(jì)語(yǔ)言比PL/SQL更適合，如：使用操作系統(tǒng)資源，C語(yǔ)言在計(jì)算和引用系統(tǒng)對(duì)象及使用設(shè)備上優(yōu)于PL/SQL，而Java語(yǔ)言在網(wǎng)絡(luò)上的應(yīng)用優(yōu)于PL/SQL。
如果在應(yīng)用上要用到不適合用PL/SQL語(yǔ)言的話，這時(shí)就要使用其它語(yǔ)言進(jìn)行編制，然后由PL/SQL作為外部例程進(jìn)行調(diào)用。
在Oracle8之前的版本，PL/SQL和其它語(yǔ)言的唯一通信是借助于DBMS_PIPE和DBMS_ALERT包來(lái)實(shí)現(xiàn)，在使用之前必需建立一個(gè)OCI接口或預(yù)編譯器編制的監(jiān)護(hù)程序，使用比較復(fù)雜。外部例程的出現(xiàn)，只需在PL/SQL中建立一個(gè)函數(shù)映射到外部例程對(duì)應(yīng)的函數(shù)，就像普通的PL/SQL函數(shù)使用一樣，簡(jiǎn)化了使用過(guò)程。
基本原理
當(dāng)引用外部C語(yǔ)言例程時(shí)，Oracle監(jiān)聽(tīng)器將啟動(dòng)extproc進(jìn)程，該進(jìn)程將會(huì)動(dòng)態(tài)地載入共享庫(kù)（在Windows下稱為動(dòng)態(tài)鏈接庫(kù)，即是DLL文件），進(jìn)程起了一個(gè)緩沖的作用，當(dāng)PL/SQL過(guò)程調(diào)用外部函數(shù)時(shí)，進(jìn)程把命令發(fā)送到共享庫(kù)，之后把結(jié)果返回給PL/SQL過(guò)程。
進(jìn)程被調(diào)用后隨著共享庫(kù)的使用會(huì)話（session）而存在，如果調(diào)用完畢或者關(guān)閉數(shù)據(jù)庫(kù)用戶會(huì)話，extproc進(jìn)程會(huì)自動(dòng)關(guān)閉。
使用配置
在調(diào)用外部例程之前，必需進(jìn)行如下設(shè)置：
·配置監(jiān)聽(tīng)器
·配置Net組件服務(wù)。
配置監(jiān)聽(tīng)器，打開(kāi)D:oracleora92networkadminlistener.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:oracleora92)
- (PROGRAM = extproc)
- )
- (SID_DESC =
- (GLOBAL_DBNAME = ORADB)
- (ORACLE_HOME = D:oracleora92)
- (SID_NAME = ORADB)
- )
- )
其中有兩部份參數(shù)對(duì)于使用外部例程是很重要的。
- ·(ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1))
設(shè)置基于IPC協(xié)議的外部例程
- ·(SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:oracleora92) (PROGRAM = extproc) )
記錄Oracle數(shù)據(jù)庫(kù)的相關(guān)屬性，SID_NAME在默認(rèn)的情況下是PLSExtproc。
配置Net組件服務(wù)，打開(kāi)D:oracleora92networkadmintnsnames.ora文件，把如下內(nèi)容保存在該文件里。
- EXTPROC_CONNECTION_DATA =
- (DESCRIPTION =
- (ADDRESS_LIST =
- (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1))
- )
- (CONNECT_DATA =
- (SID = PLSExtProc)
- (PRESENTATION = RO)
- )
- )
重要參數(shù)說(shuō)明：
- ·(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1))
- ·(CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO)
兩設(shè)置必需與listener.ora里的一致。
重啟監(jiān)聽(tīng)器，并測(cè)試服務(wù)是否可用。
停止監(jiān)聽(tīng)器：lsnrctl stop
啟動(dòng)監(jiān)聽(tīng)器：lsnrctl start
測(cè)試服務(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:oracleora92networkadminsqlnet.ora
已使用 TNSNAMES 適配器來(lái)解析別名
- Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)
- (KEY = EXTPROC1))) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO)))
OK（30毫秒）
測(cè)試extproc進(jìn)程是否正常：
D:oracleora92bin＞extproc
Oracle Corporation --- 星期四 4月 07 2005 17:37:18.968
Heterogeneous Agent Release 9.2.0.1.0 - Production
4、使用COM對(duì)象說(shuō)明
COM對(duì)象設(shè)計(jì)都會(huì)提供了三個(gè)基本操作給開(kāi)發(fā)人員使用，分別為：獲取屬性值，設(shè)置屬性值（只讀屬性除外），調(diào)用方法。Oracle數(shù)據(jù)庫(kù)在Windows的平臺(tái)下提供了操作COM對(duì)象的接口，屬于C語(yǔ)言外部例程模式。
在使用該功能之前，需明白如下內(nèi)容：
1) 創(chuàng)建COM對(duì)象操作函數(shù)。
- 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:oracleora92comcomwrap.sql;
2)配置監(jiān)聽(tīng)器。
在listener.ora文件里，添加如下內(nèi)容，并重啟監(jiān)聽(tīng)器。
- STARTUP_WAIT_TIME_LISTENER = 0
- CONNECT_TIMEOUT_LISTENER = 10
- TRACE_LEVEL_LISTENER = off
- PASSWORDS_LINTENER = (oracle)
3) PL/SQL數(shù)據(jù)類(lèi)型與對(duì)應(yīng)的COM對(duì)象類(lèi)型
表1-1數(shù)據(jù)類(lèi)型比較
PL/SQL數(shù)據(jù)類(lèi)型 COM API 數(shù)據(jù)類(lèi)型
- VARCHAR2 BSTR
- BOOLEAN BOOL
- BINARY_INTEGER BYTE，INT，LONG
- DOUBLE PRECISION DOUBLE，F(xiàn)LOAT，CURRENCY
- DATE DATE
4) 函數(shù)說(shuō)明。
表1-2函數(shù)說(shuō)明
名稱 功能描述
CreateObject 創(chuàng)建對(duì)象
DestroyObject 關(guān)閉對(duì)象
GetLastError 獲取錯(cuò)誤信息
GetProperty 獲取屬性值
SetProperty 設(shè)置屬性值
InitArg 為Invoke函數(shù)初始化參數(shù)
InitOutArg 為GetArg初始化輸出參數(shù)
GetArg 獲取輸出參數(shù)
SetArg 為Invoke函數(shù)設(shè)置參數(shù)
Invoke 調(diào)用COM對(duì)象的函數(shù)或過(guò)程
5) 操作Excel示例
本節(jié)介紹如何操作COM對(duì)象（以Excel對(duì)象為例），將Oracle數(shù)據(jù)庫(kù)里的表記錄通過(guò)PL/SQL語(yǔ)句輸出成Excel文件。通過(guò)對(duì)象瀏覽器可以查看Excel對(duì)象提供的屬性和方法。（如：在Excel菜單，工具 -＞ 宏 -＞ 打開(kāi)Visual Basic編輯器，在編輯器里，視圖 -> 對(duì)象瀏覽器）。
使用Excel對(duì)象一般針對(duì)單元格進(jìn)行操作（如，設(shè)置第一個(gè)單元格字體大小的代碼為：Range("A1").Font.Size = 20）。對(duì)應(yīng)的COM外部例程操作的步驟為：
1、獲取程序句柄；
2、獲取工作簿句柄；
3、獲取工作表句柄；
4、獲取Range區(qū)句柄；
5、獲取Font類(lèi)句柄；
6、設(shè)置Size屬性。
【編輯推薦】
- Oracle11g認(rèn)證考試的3個(gè)主要途徑
- Oracle存儲(chǔ)過(guò)程的編寫(xiě)經(jīng)驗(yàn)總結(jié)
- Oracle SQL的優(yōu)化的規(guī)則描述
- Oracle SQL的優(yōu)化規(guī)則解析
- 深入高性能的Oracle動(dòng)態(tài)SQL開(kāi)發(fā)
