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

2024-08-29 13:51:44

字體：大中小

供稿：網(wǎng)友

　　PowerBuilder(PB)和Oracle分別是前端開(kāi)發(fā)工具和RDBMS的主流產(chǎn)品。PB提供了兩種與Oracle連接的接口：PowerSoft內(nèi)置的數(shù)據(jù)庫(kù)接口(Native Database Interface)和ODBC接口。本文介紹使用PB60內(nèi)置Oracle接口的方法，包括數(shù)據(jù)描述文件的設(shè)置、存儲(chǔ)過(guò)程的調(diào)用和存儲(chǔ)過(guò)程作為數(shù)據(jù)窗口數(shù)據(jù)源的操作方法等內(nèi)容，使用的RDBMS的Oracle 73。　　PowerBuilder與Oracle的連接　　假定已安裝Oracle客戶端應(yīng)用程序。可用Sqlplus或Tnsping等是否能連接到Oracle數(shù)據(jù)庫(kù)，確定在SQLNET配置文件中使用的數(shù)據(jù)庫(kù)別名(Database Alias，又稱服務(wù)器名，Server Name)。如有疑問(wèn)，可在Oracle客戶端程序目錄下tnsname.ora文件中找到。另外保證搜索路徑已包括SQL*NET應(yīng)用程序的安裝目錄(如C:/ORAWIN95/BIN)。　　進(jìn)入PB的Database PRofiles畫筆，可看到所有已安裝的數(shù)據(jù)庫(kù)接口(PB60缺省安裝的是Oracle 73版的接口，如使用低版本的Oracle，需在安裝時(shí)指定)，選擇“O73 Oracle 73”，點(diǎn)擊“New”按鈕，進(jìn)入Database Profile Setup對(duì)話框。在“Connection”頁(yè)輸入下列信息：Profile Name：為該Database Profile起一個(gè)有意義的名稱;　　Server:@TNS:ServerName，其中ServerName為上述數(shù)據(jù)庫(kù)別名(服務(wù)器名)，如@TNS:ORA73;注重：PB9.5則沒(méi)有前面那個(gè)@TNS:!!!　　Login ID：Oracle數(shù)據(jù)庫(kù)中實(shí)際的用戶名，由于PB初次連接到數(shù)據(jù)庫(kù)時(shí)要自動(dòng)建立五個(gè)系統(tǒng)表(PowerBuilder　　Catalog Table:PBCATTBL,PBCATCOL,PBCATEDT,PBCATFMT,PBCATVLD,存儲(chǔ)表的擴(kuò)展屬性)，因此第一個(gè)連接到Oracle　　的用戶必須具有建表、給PUBLIC角色授權(quán)等權(quán)限。例如可用SYSTEM用戶進(jìn)行第一次連接;，此后的連接對(duì)用戶則無(wú)非凡要求　　PassWord：該用戶的口令。　　設(shè)置上述內(nèi)容后，即可連上Oracle。為優(yōu)化數(shù)據(jù)庫(kù)連接，還可設(shè)置下列選項(xiàng)：　　Prompt for Database Information：連接時(shí)是否提示用戶輸入用戶名和口令;　　Generate Trace：?jiǎn)?dòng)DB跟蹤工具，跟蹤連接;　　Thread Safe：開(kāi)發(fā)需要多線程環(huán)境支持的分布式應(yīng)用時(shí)，選擇該項(xiàng)。缺省為未選，適用于非分布應(yīng)用;　　PBDBMS：與存儲(chǔ)過(guò)程調(diào)用方式有關(guān)的參數(shù)。Oracle為72或更高版本時(shí)，清除該選項(xiàng)，此時(shí)帶IN OUT參數(shù)的存儲(chǔ)過(guò)程可作為數(shù)據(jù)窗口數(shù)據(jù)源。72版本以下，選擇該項(xiàng)，調(diào)用PBDBMS.Put-Line建立存儲(chǔ)過(guò)程的SQL語(yǔ)句，缺省是選中;　　Commit on Disconnect：斷開(kāi)連接時(shí)，指定提交或回退未提交的事務(wù);　　Case Sensitive：連接的Oracle服務(wù)器是否區(qū)分大小寫。注重該項(xiàng)選中時(shí)，所有主鍵、包含主鍵的表名、外鍵須全為大寫字符。　　PowerBuilder Catalog Tables Owner：指定擁有PB系統(tǒng)表的用戶，缺省為“SYSTEM”。假如要使用多種顯示　　格式或有效性規(guī)則，可以在不同的用戶下建立幾套系統(tǒng)表;　　Table Criteria：指定滿足哪些條件的表、視圖和同義詞可在“Select Tables”對(duì)話框中顯示出來(lái)。例如DEV　　用戶下銷售子系統(tǒng)的表都以SALE開(kāi)頭，則可以用SALE%、DEV、“TABLE”、“VIEW”指定只顯示DEV用戶以SALE開(kāi)頭的表和視圖;　　Asynchronous：選擇該項(xiàng)，可在一個(gè)復(fù)雜的SQL語(yǔ)句執(zhí)行過(guò)程中，返回第一行結(jié)果前，切換到其他操作;　　Number of Seconds to Wait：若上一項(xiàng)選中，還可進(jìn)一步通過(guò)該項(xiàng)指定檢索數(shù)據(jù)時(shí)，等待數(shù)據(jù)庫(kù)響應(yīng)的時(shí)間;　　Retrieve Blocking Factor：決定數(shù)據(jù)窗口對(duì)象一次可從數(shù)據(jù)庫(kù)取出的記錄數(shù);　　Number of SQL Staments Cached：PB可將數(shù)據(jù)窗口對(duì)象產(chǎn)生的SQL語(yǔ)句和嵌入式SQL語(yǔ)句保存在SQL語(yǔ)句緩沖區(qū)，該參數(shù)指定緩沖區(qū)為PB保留的SQL語(yǔ)句數(shù)目。該數(shù)值可由下式計(jì)算：SQLCache=服務(wù)器OPEN—CURSORS數(shù)-5(保留的游標(biāo)數(shù))-本連接預(yù)期使用的最大游標(biāo)數(shù);　　Disable Bind：指定是否將輸入變量與SQL語(yǔ)句綁定，此參數(shù)影響PB為數(shù)據(jù)窗口對(duì)象生成INSERT語(yǔ)句的方式;　　Static Bind：數(shù)據(jù)窗口對(duì)象檢索數(shù)據(jù)前是否檢測(cè)SELECT語(yǔ)句的合法性;　　在Syntax頁(yè)，還可指定日期、時(shí)間的格式等。在Preview頁(yè)可查看Database Profile設(shè)置對(duì)應(yīng)的PowerScript寫法。

　　Oracle存儲(chǔ)過(guò)程的使用　　歸納起來(lái)PB60中調(diào)用Oracle存儲(chǔ)過(guò)程有以下四種方法。　　方法一：以要害字RPCFUNC聲明存儲(chǔ)過(guò)程;　　方法二：以DECLARE PROCEDURE語(yǔ)句聲明存儲(chǔ)過(guò)程;　　方法三：以動(dòng)態(tài)SQL語(yǔ)句實(shí)現(xiàn);　　方法四：調(diào)用函數(shù)PBDBMS.Put-Line。　　一般情況下，方法一能得到較好的運(yùn)行效率和更完善的功能。因此推薦使用方法一。但是某些類型的存儲(chǔ)過(guò)程只能使用其他方法。以下重點(diǎn)介紹方法一和方法二。　　兩種方法比較起來(lái)，有以下幾點(diǎn)主要區(qū)別：　　1)方法一適用于具有IN、OUT和IN OUT參數(shù)的存儲(chǔ)過(guò)程，而方法二僅支持IN和OUT參數(shù)，不支持IN OUT參數(shù);　　2)方法一對(duì)參數(shù)的數(shù)目無(wú)限制，方法二最多支持255個(gè)參數(shù);　　3)方法一不支持記錄(Recorder)的傳遞，方法二可傳遞和接收記錄。　　方法一操作步驟：　　1)在用戶對(duì)象畫筆中創(chuàng)建一個(gè)Class-Standard類型的，從Transaction繼續(xù)的用戶對(duì)象。　　2)在此用戶對(duì)象中，聲明Local External Functions，將存儲(chǔ)過(guò)程以RPCFUNC要害字聲明為外部函數(shù)。在Declare Local External Functions對(duì)話框中按Procedures按鈕選擇要調(diào)用的后臺(tái)存儲(chǔ)過(guò)程，或直接輸入類似subroutin　　e TEST(long id,ref string name)RPCFUNC ALIAS FOR “DEVTEST”的語(yǔ)句。例如中DEVTEST的參數(shù)為(id IN NUMBER,name IN OUT VARCHAR2)。　　3)保存該用戶對(duì)象。　　4)在application畫筆中，進(jìn)入應(yīng)用屬性對(duì)話框，在Variable Types頁(yè)，將上Transaction用戶對(duì)象設(shè)置為缺省的全局變量SQLCA。　　5)腳本中，編碼調(diào)用相應(yīng)的外部函數(shù)。形式：SQLCA函數(shù)名(參數(shù))。如可用“SQLCATEST(ln—id,ls—name);”調(diào)用例子中定義的DEVTEST存儲(chǔ)過(guò)程。其中l(wèi)n—id,ls—name為調(diào)用參數(shù)。　　方法一注重事項(xiàng)：　　1)由于PB中String類型的數(shù)據(jù)長(zhǎng)度是動(dòng)態(tài)分配的，因此對(duì)Ref String類型的參數(shù)，每次調(diào)用前需要申請(qǐng)足夠的　　空間。例如上例從輸入的id值檢索name，后臺(tái)聲明的NAME數(shù)據(jù)類型為VARCHAR2(30)，每次調(diào)用SQLCATEST前需要　　用ls—name=SPACE(30)置ls—name為足夠長(zhǎng)度的空串。　　2)類似地當(dāng)傳遞的參數(shù)為數(shù)組(后臺(tái)稱PL/SQL Table)時(shí)，聲明參數(shù)為相應(yīng)類型的動(dòng)態(tài)數(shù)組，并在每次調(diào)用前設(shè)　　置數(shù)組上界為足夠大的值。例如：DEV用戶的DEPT包中聲明了TYPE tbl—name IS TABLE OF VARCHAR2(30) INDEX B　　Y BINARY—INTEGER;存儲(chǔ)過(guò)程EMP—OF—DEPT(dept—id IN NUMBER,name OUT DEPT.tbl—name)返回部門編寫為de　　pt—id的部門的所有員工，置name數(shù)組中。假定所有部門的員工數(shù)目不超過(guò)100，則可用以下語(yǔ)句聲明和調(diào)用DEV.EMP—OF—DEPT：　　Declare External Functions對(duì)話框中：　　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]=″ //置動(dòng)態(tài)數(shù)組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有一個(gè)IN參數(shù)，一個(gè)OUT參數(shù)　　EXECUTE test;　　FETCH test INTO:ls—name;　　方法三使用方法：　　根據(jù)輸入輸出參數(shù)的不同，PB中的動(dòng)態(tài)SQL語(yǔ)句有四種格式：1)無(wú)輸入輸出參數(shù);2)只有輸入?yún)?shù)，無(wú)輸出參　　數(shù);3)有確定數(shù)目輸入輸出參數(shù);4)輸出結(jié)果列的數(shù)目不定。其中第1)、第2)中格式的動(dòng)態(tài)SQL語(yǔ)句也可用來(lái)調(diào)用簡(jiǎn)　　單的存儲(chǔ)過(guò)程。　　1)沒(méi)有輸入輸出參數(shù)的存儲(chǔ)過(guò)程。例如DEVDEMO1存儲(chǔ)過(guò)程沒(méi)有輸入輸出參數(shù)，可用下列語(yǔ)句調(diào)用：　　sqlstring=″EXECUTE DEMO1()″　　EXECUTE IMMEDIATE:sqlstring;　　2)只有輸入?yún)?shù)的存儲(chǔ)過(guò)程。例如DEV.DEMO2(name IN VARCHAR2,birthday IN DATE)　　PREPARE SQLSA FROM ″EXECUTE DEMO2(?，?);″　　EXECUTE SQLSA USING:ls—name,:ldt—birthday;　　假如是72以下版本的Oracle，可用方法四PBDMBS.Put—Line()函數(shù)調(diào)用建立存儲(chǔ)過(guò)程。此時(shí)需選上Database Profile中的PBDBMS復(fù)選框。　　存儲(chǔ)過(guò)程作為數(shù)據(jù)窗口的數(shù)據(jù)源　　以一個(gè)簡(jiǎn)單數(shù)據(jù)窗口(顯示服務(wù)器的系統(tǒng)時(shí)間)為例說(shuō)明怎樣創(chuàng)建存儲(chǔ)過(guò)程作為數(shù)據(jù)源的數(shù)據(jù)窗口。
　　1)在某個(gè)包(如PACK—TYPE)中定義日期類型的Recorder自定義數(shù)據(jù)類型datarec;　　2)創(chuàng)建返回系統(tǒng)時(shí)間的存儲(chǔ)過(guò)程：　　PROCEDURE get—sysdata(sysdt IN OUT PACK-TYPE　　.datarec)IS　　BEGIN　　open sysdt for select sysdate from dual;　　END;　　3)新建數(shù)據(jù)窗口，數(shù)據(jù)源選擇Stored Procedure;　　4)在隨后的Select Stored Procedure對(duì)話框中選擇get—sysdate即可。　　假如作為數(shù)據(jù)源的存儲(chǔ)過(guò)程有IN參數(shù)，則這些參數(shù)就是數(shù)據(jù)窗口的檢索參數(shù)(Retrieve Argument)。

上一篇：圖文：詳解數(shù)據(jù)庫(kù)Oracle 11g的基本安裝

下一篇：處理Oracle數(shù)據(jù)庫(kù)中一張有效的Drop大表