PB內置OEACLE數據庫接口的使用方法
系統
1890 0
馬長明
PowerBuilder
PowerBuilder
與Oracle的連接
@TNS:ServerName
注意：PB9.5則沒有前面那個@TNS:！！！嗚，我的時間在此悄悄走過
由于PB初次連接到數據庫時要自動建立五個系統表(PowerBuilder
Catalog Table:PBCATTBL,PBCATCOL,PBCATEDT,PBCATFMT,PBCATVLD,存儲表的擴展屬性)，因此第一個連接到Oracle
的用戶必須具有建表、給PUBLIC角色授權等權限。例如
可用SYSTEM用戶進行第一次連接；(嗚，我的時間就在這里流逝了)
，此后的連接對用戶則無特殊要求
PowerBuilder
Oracle存儲過程的使用
方法一注意事項：
方法二使用方法：
方法三使用方法：
存儲過程作為數據窗口的數據源
(PB)和Oracle分別是前端開發工具和RDBMS的主流產品。PB提供了兩種與Oracle連接的接口：PowerSoft內置的數據庫接口(Native Database Interface)和ODBC接口。本文介紹使用PB60內置Oracle接口的方法，包括數據描述文件的設置、存儲過程的調用和存儲過程作為數據窗口數據源的操作方法等內容，使用的RDBMS的Oracle 73。 假定已安裝Oracle客戶端應用程序。可用Sqlplus或Tnsping等是否能連接到Oracle數據庫，確定在SQLNET配置文件中使用的數據庫別名(Database Alias，又稱服務器名，Server Name)。如有疑問，可在Oracle客戶端程序目錄下tnsname.ora文件中找到。另外保證搜索路徑已包括SQL*NET應用程序的安裝目錄(如C:\ORAWIN95\BIN)。 進入PB的Database Profiles畫筆，可看到所有已安裝的數據庫接口(PB60缺省安裝的是Oracle 73版的接口，如使用低版本的Oracle，需在安裝時指定)，選擇“O73 Oracle 73”，點擊“New”按鈕，進入Database Profile Setup對話框。在“Connection”頁輸入下列信息：Profile Name：為該Database Profile起一個有意義的名稱； Server:，其中ServerName為上述數據庫別名(服務器名)，如@TNS:ORA73； Login ID：Oracle數據庫中實際的用戶名， Password：該用戶的口令。 設置上述內容后，即可連上Oracle。為優化數據庫連接，還可設置下列選項： Prompt for Database Information：連接時是否提示用戶輸入用戶名和口令； Generate Trace：啟動DB跟蹤工具，跟蹤連接； Thread Safe：開發需要多線程環境支持的分布式應用時，選擇該項。缺省為未選，適用于非分布應用； PBDBMS：與存儲過程調用方式有關的參數。Oracle為72或更高版本時，清除該選項，此時帶IN OUT參數的存儲過程可作為數據窗口數據源。72版本以下，選擇該項，調用PBDBMS.Put－Line建立存儲過程的SQL語句，缺省是選中； Commit on Disconnect：斷開連接時，指定提交或回退未提交的事務； Case Sensitive：連接的Oracle服務器是否區分大小寫。注意該項選中時，所有主鍵、包含主鍵的表名、外鍵須全為大寫字符。 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：數據窗口對象檢索數據前是否檢測SELECT語句的合法性； 在Syntax頁，還可指定日期、時間的格式等。在Preview頁可查看Database Profile設置對應的PowerScript寫法。 歸納起來PB60中調用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關鍵字聲明為外部函數。在Declare Local External Functions對話框中按Procedures按鈕選擇要調用的后臺存儲過程，或直接輸入類似subroutine TEST(long id,ref string name)RPCFUNC ALIAS FOR “DEVTEST”的語句。例如中DEVTEST的參數為(id IN NUMBER,name IN OUT VARCHAR2)。 3)保存該用戶對象。 4)在Application畫筆中，進入應用屬性對話框，在Variable Types頁，將上Transaction用戶對象設置為缺省的全局變量SQLCA。 5)腳本中，編碼調用相應的外部函數。形式：SQLCA函數名(參數)。如可用“SQLCATEST(ln—id,ls—name);”調用例子中定義的DEVTEST存儲過程。其中ln—id,ls—name為調用參數。 1)由于PB中String類型的數據長度是動態分配的，因此對Ref String類型的參數，每次調用前需要申請足夠的空間。例如上例從輸入的id值檢索name，后臺聲明的NAME數據類型為VARCHAR2(30)，每次調用SQLCATEST前需要用ls—name=SPACE(30)置ls—name為足夠長度的空串。 2)類似地當傳遞的參數為數組(后臺稱PL/SQL Table)時，聲明參數為相應類型的動態數組，并在每次調用前設置數組上界為足夠大的值。例如：DEV用戶的DEPT包中聲明了TYPE tbl—name IS TABLE OF VARCHAR2(30) INDEX BY BINARY—INTEGER；存儲過程EMP—OF—DEPT(dept—id IN NUMBER,name OUT DEPT.tbl—name)返回部門編寫為dept—id的部門的所有員工，置name數組中。假定所有部門的員工數目不超過100，則可用以下語句聲明和調用DEVEMP—OF—DEPT： Declare External Functions對話框中： Subroutine EMP—OF—DEPT(long dept—id,ref string 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的所有員工的名字 在腳本中加入如下編碼(以DEVTEST為例)： 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)沒有輸入輸出參數的存儲過程。例如DEVDEMO1存儲過程沒有輸入輸出參數，可用下列語句調用： sqlstring=″EXECUTE DEMO1()″ EXECUTE IMMEDIATE:sqlstring; 2)只有輸入參數的存儲過程。例如DEV.DEMO2(name IN VARCHAR2,birthday IN DATE) PREPARE SQLSA FROM ″EXECUTE DEMO2(?，?);″ EXECUTE SQLSA USING:ls—name,:ldt—birthday; 如果是72以下版本的Oracle，可用方法四PBDMBS.Put—Line()函數調用建立存儲過程。此時需選上Database Profile中的PBDBMS復選框。 以一個簡單數據窗口(顯示服務器的系統時間)為例說明怎樣創建存儲過程作為數據源的數據窗口。 1)在某個包(如PACK—TYPE)中定義日期類型的Recorder自定義數據類型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對話框中選擇get—sysdate即可。 如果作為數據源的存儲過程有IN參數，則這些參數就是數據窗口的檢索參數(Retrieve Argument)。
PB內置OEACLE數據庫接口的使用方法
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
