PB 內置 OEACLE 數據庫接口的使用方法

 PowerBuilder(PB)和 Oracle 分別是前端開發工具和 RD
BMS 的主流產品。PB 提供了兩種與 Oracle 連接的接口：Pow
erSoft 內置的數據庫接口(Native Database Interface)
和 ODBC 接口。本文介紹使用 PB6 0 內置 Oracle 接口的方法
，包括數據描述文件的設置、存儲過程的調用和存儲過程
作為數據窗口數據源的操作方法等內容，使用的 RDBMS 的 Or
acle 7 3。
 PowerBuilder 與 Oracle 的連接
 假定已安裝 Oracle 客戶端應用程序?？捎?Sqlplus 或 T
nsping 等是否能連接到 Oracle 數據庫，確定在 SQL NET 配
置文件中使用的數據庫別名(Database Alias，又稱服務
器名，Server Name)。如有疑問，可在 Oracle 客戶端程序
目錄下 tnsname.ora 文件中找到。另外保證搜索路徑已包括
SQL NET 應用程序的安裝目錄(如 C:\ORAWIN95\BIN)。
 進入 PB 的 Database Profiles 畫筆，可看到所有已安
裝的數據庫接口(PB6 0 缺省安裝的是 Oracle 7 3 版的接
口，如使用低版本的 Oracle，需在安裝時指定)，選擇“O7
3 Oracle 7 3”，點擊“New”按鈕，進入 Database Pro
file Setup 對話框。在“Connection”頁輸入下列信息：


 Profile Name：為該 Database Profile 起一個有意義
的名稱；
 Server:@TNS:ServerName，其中 ServerName 為上述數
據庫別名(服務器名)，如@TNS:ORA73；
 Login ID：Oracle 數據庫中實際的用戶名，由于 PB 初
次連接到數據庫時要自動建立五個系統表(PowerBuilder
Catalog Table:PBCATTBL,PBCATCOL,PBCATEDT,PBCATFMT,
PBCATVLD,存儲表的擴展屬性)，因此第一個連接到 Oracle
的用戶必須具有建表、給 PUBLIC 角色授權等權限。例如可
用 SYSTEM 用戶進行第一次連接，此后的連接對用戶則無特
殊要求；
 Password：該用戶的口令。
 設置上述內容后，即可連上 Oracle。為優化數據庫連
接，還可設置下列選項：
 Prompt for Database Information：連接時是否提
示用戶輸入用戶名和口令；
 Generate Trace：啟動 DB 跟蹤工具，跟蹤連接；
 Thread Safe：開發需要多線程環境支持的分布式應
用時，選擇該項。缺省為未選，適用于非分布應用；
 PBDBMS：與存儲過程調用方式有關的參數。Oracle 為
7 2 或更高版本時，清除該選項，此時帶 IN OUT 參數的存
儲過程可作為數據窗口數據源。7 2 版本以下，選擇該項
，調用 PBDBMS.Put－Line 建立存儲過程的 SQL 語句，缺省
是選中；
 Commit on Disconnect：斷開連接時，指定提交或回
退未提交的事務；
 Case Sensitive：連接的 Oracle 服務器是否區分大小
寫。注意該項選中時，所有主鍵、包含主鍵的表名、外鍵
須全為大寫字符。
 PowerBuilder Catalog Tables Owner：指定擁有 PB
系統表的用戶，缺省為“SYSTEM”。如果要使用多種顯示
格式或有效性規則，可以在不同的用戶下建立幾套系統表
；
 Table Criteria：指定滿足哪些條件的表、視圖和同
義詞可在“Select Tables”對話框中顯示出來。例如 DEV
用戶下銷售子系統的表都以 SALE 開頭，則可以用 SALE％、
DEV、“TABLE”、“VIEW”指定只顯示 DEV 用戶以 SALE 開
頭的表和視圖；
 Asynchronous：選擇該項，可在一個復雜的 SQL 語句
執行過程中，返回第一行結果前，切換到其他操作；
 Number of Seconds to Wait：若上一項選中，還可
進一步通過該項指定檢索數據時，等待數據庫響應的時間
；
 Retrieve Blocking Factor：決定數據窗口對象一次
可從數據庫取出的記錄數；
 Number of SQL Staments Cached：PB 可將數據窗口
對象產生的 SQL 語句和嵌入式 SQL 語句保存在 SQL 語句緩沖區
，該參數指定緩沖區為 PB 保留的 SQL 語句數目。該數值可
由下式計算：SQLCache=服務器 OPEN—CURSORS 數－5(保留
的游標數)－本連接預期使用的最大游標數；
 Disable Bind：指定是否將輸入變量與 SQL 語句綁定
，此參數影響 PB 為數據窗口對象生成 INSERT 語句的方式；
 Static Bind：數據窗口對象檢索數據前是否檢測 SEL
ECT 語句的合法性；
 在 Syntax 頁，還可指定日期、時間的格式等。在 Prev
iew 頁可查看 Database Profile 設置對應的 PowerScript 寫
法。
 Oracle 存儲過程的使用
 歸納起來 PB6 0 中調用 Oracle 存儲過程有以下四種方
法。
 方法一：以關鍵字 RPCFUNC 聲明存儲過程；
 方法二：以 DECLARE PROCEDURE 語句聲明存儲過程；
 方法三：以動態 SQL 語句實現；
 方法四：調用函數 PBDBMS.Put－Line。
 一般情況下，方法一能得到較好的運行效率和更完善
的功能。因此推薦使用方法一。但是某些類型的存儲過程
只能使用其他方法。以下重點介紹方法一和方法二。
 兩種方法比較起來，有以下幾點主要區別：
 1)方法一適用于具有 IN、OUT 和 IN OUT 參數的存儲過
程，而方法二僅支持 IN 和 OUT 參數，不支持 IN OUT 參數；
 2)方法一對參數的數目無限制，方法二最多支持 255
個參數；
 3)方法一不支持記錄(Recorder)的傳遞，方法二可傳
遞和接收記錄。
 方法一操作步驟：
 1)在用戶對象畫筆中創建一個 Class－Standard 類型
的，從 Transaction 繼承的用戶對象。
 2)在此用戶對象中，聲明 Local External Functions
，將存儲過程以 RPCFUNC 關鍵字聲明為外部函數。在 Decla
re Local External Functions 對話框中按 Procedures 按
鈕選擇要調用的后臺存儲過程，或直接輸入類似 subroutin
e TEST(long id,ref string name)RPCFUNC ALIAS FOR
“DEV TEST”的語句。例如中 DEV TEST 的參數為(id IN
NUMBER,name IN OUT VARCHAR2)。
 3)保存該用戶對象。
 4)在 Application 畫筆中，進入應用屬性對話框，在 V
ariable Types 頁，將上 Transaction 用戶對象設置為缺省
的全局變量 SQLCA。
 5)腳本中，編碼調用相應的外部函數。形式：SQLCA
函數名(參數)。如可用“SQLCA TEST(ln—id,ls—name
);”調用例子中定義的 DEV TEST 存儲過程。其中 ln—id,
ls—name 為調用參數。
 方法一注意事項：
 1)由于 PB 中 String 類型的數據長度是動態分配的，因
此對 Ref String 類型的參數，每次調用前需要申請足夠的
空間。例如上例從輸入的 id 值檢索 name，后臺聲明的 NAME
數據類型為 VARCHAR2(30)，每次調用 SQLCA TEST 前需要
用 ls—name=SPACE(30)置 ls—name 為足夠長度的空串。
 2)類似地當傳遞的參數為數組(后臺稱 PL/SQL Table)
時，聲明參數為相應類型的動態數組，并在每次調用前設
置數組上界為足夠大的值。例如：DEV 用戶的 DEPT 包中聲
明了 TYPE tbl—name IS TABLE OF VARCHAR2(30) INDEX B
Y BINARY—INTEGER；存儲過程 EMP—OF—DEPT(dept—id
IN NUMBER,name OUT DEPT.tbl—name)返回部門編寫為 de
pt—id 的部門的所有員工，置 name 數組中。假定所有部門
的員工數目不超過 100，則可用以下語句聲明和調用 DEV
EMP—OF—DEPT：
 Declare External Functions 對話框中：
 Subroutine EMP—OF—DEPT(long dept—id,ref str
ing name[]) RPCFUNC ALIAS FOR ″DEV.EMP—OF—DEPT 
″
 PowerScript 腳本中：
 long ln=dept—id
 string lsa—name[]
 ……
 lsa—name[100]=″ //置動態數組 lsa—name 上界為
100
 ln—dept—id=2
 SQLCA.EMP—OF—DEPT(ln—dept—id,lsa—name) /
/檢索部門 2 的所有員工的名字
 方法二使用方法：
 在腳本中加入如下編碼(以 DEV TEST 為例)：
 long ln—id
 string ls—name
 ln—id=100
 DECLARE test PROCEDURE FOR DEV.TEST(:ln—id);
//test 有一個 IN 參數，一個 OUT 參數
 EXECUTE test;
 FETCH test INTO:ls—name;
 方法三使用方法：
 根據輸入輸出參數的不同，PB 中的動態 SQL 語句有四
種格式：1)無輸入輸出參數；2)只有輸入參數，無輸出參
數；3)有確定數目輸入輸出參數；4)輸出結果列的數目不
定。其中第 1)、第 2)中格式的動態 SQL 語句也可用來調用簡
單的存儲過程。
 1)沒有輸入輸出參數的存儲過程。例如 DEV DEMO1 存
儲過程沒有輸入輸出參數，可用下列語句調用：
 sqlstring=″EXECUTE DEMO1()″
 EXECUTE IMMEDIATE:sqlstring;
 2)只有輸入參數的存儲過程。例如 DEV.DEMO2(name I
N VARCHAR2,birthday IN DATE)
 PREPARE SQLSA FROM ″EXECUTE DEMO2(?，?);″
 EXECUTE SQLSA USING:ls—name,:ldt—birthday;
 如果是 7 2 以下版本的 Oracle，可用方法四 PBDMBS.P
ut—Line()函數調用建立存儲過程。此時需選上 Database
Profile 中的 PBDBMS 復選框。
 存儲過程作為數據窗口的數據源
 以一個簡單數據窗口(顯示服務器的系統時間)為例說
明怎樣創建存儲過程作為數據源的數據窗口。
 1)在某個包(如 PACK—TYPE)中定義日期類型的 Record
er 自定義數據類型 datarec；
 2)創建返回系統時間的存儲過程：
 PROCEDURE get—sysdata(sysdt IN OUT PACK－TYPE
.datarec)IS
 BEGIN
 open sysdt for select sysdate from dual;
 END;
 3)新建數據窗口，數據源選擇 Stored Procedure；
 4)在隨后的 Select Stored Procedure 對話框中選擇 g
et—sysdate 即可。
 如果作為數據源的存儲過程有 IN 參數，則這些參數就
是數據窗口的檢索參數(Retrieve Argument)。