PB內(nèi)置OEACLE數(shù)據(jù)庫接口的使用方法

1、PB內(nèi)置OEACLE數(shù)據(jù)庫接口的使用方法（深圳：獨孤求敗 2003-05-16）    PowerBuilder(PB)和Oracle分別是前端開發(fā)工具和RDBMS的主流產(chǎn)品。PB提供了兩種與Oracle連接的接口：PowerSoft內(nèi)置的數(shù)據(jù)庫接口 (Native Database Interface)和ODBC接口。本文介紹使用PB6.0內(nèi)置Oracle接口的方法，包括數(shù)據(jù)描述文件的設置、存儲過程的調(diào)用和存儲 過程作為數(shù)據(jù)窗口數(shù)據(jù)源的操作方法等內(nèi)容，使用的RDBMS的Oracle 7.3。P

2、owerBuilder與Oracle的連接假定已安裝Oracle客戶端應用程序。可用Sqlplus或Tnsping等是否能連接到Oracle數(shù)據(jù)庫，確定在SQL.NET配置文件中使用的數(shù)據(jù)庫別名 (Database Alias，又稱服務器名，Server Name)。如有疑問，可在Oracle客戶端程序目錄下tnsname.ora文件中找到。另外保證搜索路徑已 包括SQL.NET應用程序的安裝目錄(如C:ORAWIN95BIN)。進入PB的Database Profiles畫筆，可看到所有已安裝的數(shù)據(jù)庫接口(PB6.0缺省安裝的是Oracle&

3、#160;7.3版的接口，如使用低版本的Oracle， 需在安裝時指定)，選擇“Oracle 7.3”，點擊“New”按鈕，進入Database Profile Setup對話框。在“Connection”頁輸入下列信息： Profile Name：為該Database Profile起一個有意義的名稱；Server:TNS:ServerName，其中ServerName為上述數(shù)據(jù)庫別名(服務器名)，如TNS:ORA73；Login ID：Oracle數(shù)據(jù)庫中實際的用戶名，由于PB初次連接到數(shù)據(jù)庫時要自動建立五個系

4、統(tǒng)表(PowerBuilder Catalog  Table:PBCATTBL,PBCATCOL,PBCATEDT,PBCATFMT, PBCATVLD,存儲表的擴展屬性)，因此第一個連接到Oracle的用戶必須具有建表、給PUBLIC角 色授權等權限。例如可用SYSTEM用戶進行第一次連接，此后的連接對用戶則無特殊要求；Password：該用戶的口令。設置上述內(nèi)容后，即可連上Oracle。為優(yōu)化數(shù)據(jù)庫連接，還可設置下列選項：Prompt for Database Information：連接時是否提示用戶輸入用戶

5、名和口令；Generate Trace：啟動DB跟蹤工具，跟蹤連接；Thread Safe：開發(fā)需要多線程環(huán)境支持的分布式應用時，選擇該項。缺省為未選，適用于非分布應用；PBDBMS：與存儲過程調(diào)用方式有關的參數(shù)。Oracle為7.2或更高版本時，清除該選項，此時帶IN OUT參數(shù)的存儲過程可作為數(shù)據(jù)窗口數(shù)據(jù) 源。7.2版本以下，選擇該項，調(diào)用PBDBMS.PutLine建立存儲過程的SQL語句，缺省是選中；Commit on Disconnect：斷開連接時，指定提交或回退未提交的事務；Case Sensitive：連接的

6、Oracle服務器是否區(qū)分大小寫。注意該項選中時，所有主鍵、包含主鍵的表名、外鍵須全為大寫字符。PowerBuilder Catalog Tables Owner：指定擁有PB系統(tǒng)表的用戶，缺省為“SYSTEM”。如果要使用多種顯示格式或有效性規(guī)則，可以在 不同的用戶下建立幾套系統(tǒng)表；Table Criteria：指定滿足哪些條件的表、視圖和同義詞可在“Select Tables”對話框中顯示出來。例如DEV用戶下銷售子系統(tǒng)的表都 以SALE開頭，則可以用SALE、DEV、“TABLE”、“VIEW”指定只顯示DEV用戶以S

7、ALE開頭的表和視圖；Asynchronous：選擇該項，可在一個復雜的SQL語句執(zhí)行過程中，返回第一行結(jié)果前，切換到其他操作；Number of Seconds to Wait：若上一項選中，還可進一步通過該項指定檢索數(shù)據(jù)時，等待數(shù)據(jù)庫響應的時間 ；Retrieve Blocking Factor：決定數(shù)據(jù)窗口對象一次可從數(shù)據(jù)庫取出的記錄數(shù)；Number of SQL Staments Cached：PB可將數(shù)據(jù)窗口對象產(chǎn)生的SQL語句和嵌入式SQL語句保存在SQL語句緩沖區(qū)，該參數(shù)

8、指定緩沖區(qū)為PB 保留的SQL語句數(shù)目。該數(shù)值可由下式計算：SQLCache=服務器OPENCURSORS數(shù)5(保留的游標數(shù))本連接預期使用的最大游標數(shù)；Disable Bind：指定是否將輸入變量與SQL語句綁定，此參數(shù)影響PB為數(shù)據(jù)窗口對象生成INSERT語句的方式；Static Bind：數(shù)據(jù)窗口對象檢索數(shù)據(jù)前是否檢測SELECT語句的合法性；在Syntax頁，還可指定日期、時間的格式等。在Preview頁可查看Database Profile設置對應的PowerScript寫法。Oracle存儲過程的使用歸納起來PB60中調(diào)用Oracle存儲過程

9、有以下四種方法。方法一：以關鍵字RPCFUNC聲明存儲過程；方法二：以DECLARE PROCEDURE語句聲明存儲過程；方法三：以動態(tài)SQL語句實現(xiàn)；方法四：調(diào)用函數(shù)PBDBMS.PutLine。一般情況下，方法一能得到較好的運行效率和更完善的功能。因此推薦使用方法一。但是某些類型的存儲過程只能使用其他方法。以下 重點介紹方法一和方法二。兩種方法比較起來，有以下幾點主要區(qū)別：1)方法一適用于具有IN、OUT和IN OUT參數(shù)的存儲過程，而方法二僅支持IN和OUT參數(shù)，不支持IN OUT參數(shù)；2)方法一對參數(shù)的數(shù)目無限制，方法二最多支持255個參數(shù)；3)

10、方法一不支持記錄(Recorder)的傳遞，方法二可傳遞和接收記錄。方法一操作步驟：1)在用戶對象畫筆中創(chuàng)建一個ClassStandard類型的，從Transaction繼承的用戶對象。2)在此用戶對象中，聲明Local External Functions，將存儲過程以RPCFUNC關鍵字聲明為外部函數(shù)。在Declare Local External  Functions對話框中按Procedures按鈕選擇要調(diào)用的后臺存儲過程，或直接輸入類似subroutine TEST(long id,ref st

11、ring name)RPCFUNC  ALIAS FOR “DEVTEST”的語句。例如中DEVTEST的參數(shù)為(id IN NUMBER,name IN OUT VARCHAR2)。3)保存該用戶對象。4)在Application畫筆中，進入應用屬性對話框，在Variable Types頁，將上Transaction用戶對象設置為缺省的全局變量SQLCA。5)腳本中，編碼調(diào)用相應的外部函數(shù)。形式：SQLCA函數(shù)名(參數(shù))。如可用“SQLCATEST(lnid,lsname 

12、);”調(diào)用例子中定義的 DEVTEST存儲過程。其中l(wèi)nid, lsname為調(diào)用參數(shù)。方法一注意事項：1)由于PB中String類型的數(shù)據(jù)長度是動態(tài)分配的，因此對Ref String類型的參數(shù)，每次調(diào)用前需要申請足夠的空間。例如上例從輸入的 id值檢索name，后臺聲明的NAME數(shù)據(jù)類型為VARCHAR2(30)，每次調(diào)用SQLCATEST前需要用lsname=SPACE(30)置lsname為足夠長度的空 串。2)類似地當傳遞的參數(shù)為數(shù)組(后臺稱PL/SQL Table) 時，聲明參數(shù)為相應類型的動態(tài)數(shù)組，并在每次調(diào)用前

13、設置數(shù)組上界為足夠大的 值。例如：DEV用戶的DEPT包中聲明了TYPE tblname IS TABLE OF VARCHAR2(30) INDEX BY BINARYINTEGER；存儲過程EMPOFDEPT (deptid IN NUMBER,name OUT DEPT.tblname)返回部門編寫為deptid的部門的所有員工，置name數(shù)組中。假定所有部門的員工數(shù)目不 超過100，則可用以下語句聲明和調(diào)用DEVEMPOFDEPT：Dec

14、lare External Functions對話框中：Subroutine EMPOFDEPT(long deptid,ref string name) RPCFUNC ALIAS FOR DEV.EMPOFDEPT PowerScript腳本中：long ln=deptidstring lsanamelsaname100= /置動態(tài)數(shù)組lsaname上界為 100lndeptid=2SQLCA.EMPOFDEPT(lndeptid,lsana

15、me) / /檢索部門2的所有員工的名字方法二使用方法：在腳本中加入如下編碼(以DEVTEST為例)：long lnidstring lsnamelnid=100DECLARE test PROCEDURE FOR DEV.TEST(:lnid); /test有一個IN參數(shù)，一個OUT參數(shù)EXECUTE test;FETCH test INTO:lsname;方法三使用方法：根據(jù)輸入輸出參數(shù)的不同，PB中的動態(tài)SQL語句有四種格式：1)無輸入輸出參數(shù)；2)只有輸入?yún)?shù)，無輸出

16、參數(shù)；3)有確定數(shù)目輸入輸出 參數(shù)；4)輸出結(jié)果列的數(shù)目不定。其中第1)、第2)中格式的動態(tài)SQL語句也可用來調(diào)用簡單的存儲過程。1)沒有輸入輸出參數(shù)的存儲過程。例如DEVDEMO1存儲過程沒有輸入輸出參數(shù)，可用下列語句調(diào)用： sqlstring=EXECUTE DEMO1()EXECUTE IMMEDIATE:sqlstring;2)只有輸入?yún)?shù)的存儲過程。例如DEV.DEMO2(name IN VARCHAR2,birthday IN DATE)PREPARE SQLSA FROM 

17、;EXECUTE DEMO2(?，?);EXECUTE SQLSA USING:lsname,:ldtbirthday;如果是72以下版本的Oracle，可用方法四PBDMBS.PutLine()函數(shù)調(diào)用建立存儲過程。此時需選上DatabaseProfile中的PBDBMS復選框。存儲過程作為數(shù)據(jù)窗口的數(shù)據(jù)源以一個簡單數(shù)據(jù)窗口(顯示服務器的系統(tǒng)時間)為例說明怎樣創(chuàng)建存儲過程作為數(shù)據(jù)源的數(shù)據(jù)窗口。1)在某個包(如PACKTYPE)中定義日期類型的Recorder自定義數(shù)據(jù)類型datarec；2)創(chuàng)建返回系統(tǒng)時間的存儲過程：PROCEDURE getsysdata(sysdt IN