PowerBuilder(PB)和Oracle分别是前端开发工具和RDBMS的主流产品。PB提供了两种与Oracle连接的接口：PowerSoft内置的数据库接口(Native

Database Interface)和ODBC接口。本文介绍使用PB6

0内置Oracle接口的方法，包括数据描述文件的设置、存储过程的调用和存储过程作为数据窗口数据源的操作方法等内容，使用的RDBMS的Oracle

7 3。

PowerBuilder与Oracle的连接

假定已安装Oracle客户端应用程序。可用Sqlplus或Tnsping等是否能连接到Oracle数据库，确定在SQL

NET配置文件中使用的数据库别名(Database Alias，又称服务器名，Server

Name)。如有疑问，可在Oracle客户端程序目录下tnsname.ora文件中找到。另外保证搜索路径已包括SQL*NET应用程序的安装目录(如C:\ORAWIN95\BIN)。

进入PB的Database Profiles画笔，可看到所有已安装的数据库接口(PB6

0缺“沧暗氖荗racle 7

3版的接口，如使用低版本的Oracle，需在安装时指定)，选择“O73 Oracle 7

3”，点击“New”按钮，进入Database

Profile

Setup对话框。在“Connection”页输入下列信息：Profile

Name：为该Database Profile起一个有意义的名称;

Server:@TNS:ServerName，其中ServerName为上述数据库别名(服务器名)，如@TNS:ORA73;注意：PB9.5则没有前面那个@TNS:!!!

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：数据窗口对象检索数据前是否检测SELECT语句的合法性;

在Syntax页，还可指定日期、时间的格式等。在Preview页可查看Database

Profile设置对应的PowerScript写法。

方法二使用方法：

在脚本中加入如下编码(以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 IN VARCHAR2,birthday IN

DATE)

PREPARE SQLSA FROM ″EXECUTE DEMO2(?，?);″

EXECUTE SQLSA USING:ls—name,:ldt—birthday;

如果是7

2以下版本的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)。