pb与各种数据库连接

1.Power script 语言里的事务处理对象怎么理解

PowerBuilder
程序与数据库之间传递信息的一个结构变量，共有15个成员.你可以详细列表它的所有成员看看它的组成,PB的应用程序会初始化一个全局的结构体变量,SQLCA,当然你也可以自定义一个自己的事务对象.

1 DBMS string 所使用的数据库管理系统的名字，如Sybase,Oracle,ODBC。
2 Database string 要连接的数据库名字。
3 UserID string 连接数据库所用的用户名。有的DBMS不需要此项。
4 DBPass string 用户连接数据库的口令。
5 Lock string 这是数据库的保护级别，一般不必给出。
6 LogID string 登录到数据库服务器上的用户名，有的DBMS不需要此项，但Sybase和Oracle需要指定这个参数。
7 LogPass string 登录到数据库服务器上的用户口令。这个属性可设可不设，但Sybase和Oracle需要指定口令。
8 ServerName string 数据库服务器名。
9 AutoCommit boolean
指定是否将数据库设置成自动提交所有事务。默认是False，也就是说，必须在应用程序中进行事务管理，并在适当的时候对数据库提交事务。如果选择True，则每个事务都由系统自动提交。

10 DBParm string 用于向数据库传递特殊信息的属性。
11 SQLCode long 指示最近一次SQL操作失败或成功。它的取值为： 返回结果 0 无错误。 -1 出现一个错误。 100
没有检索到数据。
12 SQLNRows long 最近一次SQL操作影响的行数，数据库不同其含义也不同。
13 SQLDBCode long 数据库错误代码。不同的数据库的含义不同。
14 SQLErrText string 相应于SQLDBCode属性中错误码的文字说明。
15 SQLReturnData string 返回DBMS执行SQL的附加信息，不同的DBMS其值不同。

2.我常见到做好的PB程序使用.ini文件来控制与数据库连接，可以方便的进行应用程序移植只需修改其中与数据库连接参数即可，我想问这些.ini文件只能使用手工编写吗，我见到很多.ini文件参数极多不象手写好象是机器生成的，不知道如何生成啊？请大家指教

1、其实PB中在新建---点TOOL----FILE EDIT 可以生成（编辑）INI文件。最直接就是工具栏中的EDIT图标。
2、机器生成代码是：点DATABASE图标-----选择连接方式。如：选 MSS MICROSOFT SQL SERVER 右键-NEW
PROFILE 按要求填定一些参数后在--PREVIEW中可以看到代码，把它复制到INI文件中就行了。

3.编程经验--PB数据库连接

　　通常在使用PB和数据库管理系统(DBMS)连接时，使用两种方式：
　　一、开放数据源接口(ODBC)连接

　　ODBC是通过支持美国微软公司开放服务结构（WOSA,Windows Open Services
Architecture）中的一部分.在PB 中通过配置
SQLCA.DBMS=‘ODBC’对象的属性可使应用程序通过ODBC连接到数据库。
　　ODBC的具体配置包含了数据源、驱动程序类型、缓冲池等各种细节参数。
例子：
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm="ConnectString='DSN=xxx_dsn;UID=xxx;PWD="',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"

　　二、专用数据库接口

　　每个数据库管理系统(DBMS)均提供相应的客户端驱动,为了更好的服务于数据库。
　　在这里我们使用的是Microsoft sqlserver 2000 的客户端程序。通过设置 SQLCA.DBMS ="MSS
Microsoft SQL Server" 使客户端通过专用数据库接口连接到数据库。
　　
该类接口的参数配置除了服务器名、数据库名、LogId、LogPass外还包含了连接协议等用户验证方式等，可通过服务器端或客户端的配置程序进行配置。
SQLCA.dbms= "MSS Microsoft SQL Server" //接口类型
SQLCA.database= "master" //数据库
SQLCA.userid= ""
SQLCA.dbpass= ""
SQLCA.logid= "sa"
SQLCA.logpass= "xxxx"
SQLCA.serverName= "./xxx"//服务器名
SQLCA.dbparm= "CommitOnDisconnect='No'"
SQLCA.autocommit= false
以上介绍的是PB与数据库连接时常用的方法。

　　往往根据不同的应用环境选择连接方式,
在单机环境下多采用的是ODBC连接,因为在发行环节上相对要容易些。在网络环境下多采用专用数据库连接,这样可以提高系统的可靠性与执行效率。专用数据库的发行环节往往要配上相应DBMS客户端的动态连接库(DLL),并把它存放在应用程序当前路径，或存放在%SYSTEM%下面。
　　我在开发中用到了对BLOB类型的数据进行存取,大家都知道POWERBUILDER
对BLOB字段的支持是有限的,每次只能处理32KB的数据块,如果一个文件大于32K必须编写相应的程序进行处理。当时的开发环境是PWOERBUILDER
9.0 + MS SQL SERVER 2000 +WINDOWS2000 。
　　当通过ODBC连接数据读取BLOB字段时，通过MESSAGEBOX弹出的字节数,观察到只要超过32K的文件出现,LEN(BLOB)就会出错，始终返回是32K字节的长度。当时很令人费解,随即怀疑系统问题，检查病毒，重新安装相应的开发环境,结果依旧，这才怀疑到ODBC可能存在问题，因为微软是问题专家，同时也是解决问题的专家。当通过SQLSERVER
专用接口连接后,一切正常。由此证明了ODBC 与专用数据库接口之间存在着一定的问题。
　　由此可说明各种同类技术之间的细微差别，可能会给我们带来意想不到的问题。在开发时还需谨慎、全面的考虑所用技术的可靠性。

PowerBuilder 与 Sybase ASA 数据库连接问题

QUOTE:
Sybse ASA (Adaptive Server Anywhere) 在安装完整版 PowerBuilder 时可以选择安装 ,
PowerBuilder 的例程也是以 ASA 作为数据库的.

一. ASA 数据库连接步骤

QUOTE:
1.
添加数据源。在WINDOWS中点击我的电脑,选择控制面版,选择ODBC数据源32位,选择系统DSN,点击"添加",然后选择你使用的数据库.
2. 在工具条上点击DB PROFILE 选择已建立好的数据库连接，单击 EDIT 在弹出的对话框中选PREVIEW
里面就是连接数据库的语句，直接 COPY就OK了。

二. ASA DB_profile写法 (以lin.com的tax例程为例)

tax.ini

CODE:
[Database]
DBMS=ODBC
Database=test
DbParm=connectstring='dsn=sybase_lin;UID=dba;PWD=sql'
[Copy to clipboard]

三. 打包所需文件
参看以下文章:
http://www.laozang.com/pbbbs/read.php?tid-233.html

四. 容易出现的问题及解决方法

导致ASA数据库无法连接的问题有以下几种：
1、ODBC配置错误。没有配置数据源，数据库的用户名或口令错误等都会导致数据库无法连接。
解决的办法：检查数据源的配置，如果没有在ODBC中配置数据源则按照向导添加数据源即可；口令错误只需改为正确的即可。
2、连接时提示LOG文件错误。这样的问题大多出现在重装系统后、源码移植到其他系统、数据库文件路径改变之后。
解决的办法：在创建ASA数据库的时候不创建LOG文件，如果已经创建了LOG文件则可以利用PB自带的工具Sybase
central来去掉LOG文件和数据库文件的关联。操作步骤如下：
a)启动Sybase central在左边的树型目录中选择Utilities；
b)双击右边出现的条目中的change log file settings，直接next；
c)点Browse选择需要去除log文件的数据库文件，选好后next；
d)这里你会看到一些数据库的信息，log文件名，文件大小等。next；
e)去掉Maintin the following transaction log
file前面的对勾，Finish；
f)配置ODBC连接数据库就可以了。
3、数据库文件损坏。此类错误一般不常见，可能由于病毒破坏或误操作引起。
解决的办法：如果以前有备份用备份文件覆盖原文件即可，如果没有备份文件就只能重新建库了！

PB8如何使用OLE DB练到ASA数据库
(本文来自sybase网站 翻译 by 金色年华)
原文出处:
http://www.sybase.com.cn/cn/content/support/exp_jszc_pb_dbms_00017.htm
　　
Connecting to ASA Server (7.01 GA) via OLE DB in PowerBuilder 8
Adaptive Server Anywhere includes an OLE DB provider named ASAProv.
One of the features of ASAProv (dboledb7.dll) is that you do not
have to deploy ODBC. In other words, you can connect to an ASA
database either via OLE DB or via OLE DB/ODBC bridge.

在pb中通过OLE DB连接到ASA数据库的步骤如下:

在命令提示符下键入如下命令,启动 ASADEMO:
dbsrv7 asademo -x tcpip -n asademo

("asademo" - 你选择运行的数据库. 确定你没有正在运行一个同名的数据库,否则会出错)

有两个方法通过 OLE DB 连接到 ASA Server:

1) OLE DB/ODBC bridge
对于这种连接,你必须在数据库参数中,指定有效的 ODBC 数据源,连接的脚本如下:
// Profile asa_oledb
SQLCA.DBMS = "OLE DB"
SQLCA.LogPass = "sql"
SQLCA.LogId = "dba"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PROVIDER='ASAProv',DATASOURCE='asa'"

2) OLE DB (不需要配置 ODBC)
你可以通过一个扩展名为.udl的单独的文件,提供连接信息,在OLE DB中访问数据.这个文件与 Microsoft DataLink
(.udl) file 类似. 你必须在系统中安装 Datalink API 以便于创建和使用 .udl 文件.

创建 .udl文件的方法:
在当前目录里的空白处单击鼠标右键,选择新建文件,选择 Microsoft Data Link.如果没有创建 Microsoft Data
Link 的选项,需要创建一个文本文件,然后更改扩展名为
.udl.双击这个文件,添加连接信息.详情请访问msdn.microsoft.com 搜索 Data
Link(此处原文有乱码,具体内容不详).

在pb中使用 .udl 文件时,要确认在数据库中已经创建了 Catalog Tables
(由pbcat...名字开头,然后用这几张表存放一些PB中的信息，如果这几张表无法创建，就会出现出错信息).你可以通过连接到系统中已有的ODBC
数据源. 如果这些表不存在,就会提示 Catalog Tables没有被创建.

用以下信息来创建.udl文件:
Provider Tab:
Select "Adaptive Server Anywhere Provider"
Connection Tab:
Location: eng=asademo;dbn=asademo;Links=TCPIP{};
Select radio button for

一.连接步骤
1）服务器安装SQL Server并启动，创建数据库。
2）客户机安装SQL Server客户端。
3）启动PB，配置数据源描述（通过直连接口，不建议用ODBC）。
4）连接。
二.DB_profile的写法

在ini文件里设置
[Database]
DBMS=MSS Microsoft SQL Server 6.x
Database=databasename
UserId=
LogID=
DatabasePassword=
LogPass=
ServerName=
AutoCommit=False
在程序里用profilestring读取

附加资料:ms sql server 配置文件设置
ms sql server 配置文件设置:
dbms="mss"//只须在*.ini文件中用这个代码便告诉pb使用的ms sql server
Database:所用数据库
LogId:sql server的登陆账号
LogPass=口令
servername:允许数据库服务器连接的计算机名
autocommit:控制pb 是工作在事务处理范围内还是工作在事务处理范围外
dbparm:dbms的专用连接参数
以下参数:
language:在显示错误消息和日期格式时指定要使用的语言,在服务器上必须设置该直.
lock:事务处理隔离层
log:文本和图像数据的更新是否应该纪录到事务日志中.
systemprocs:系统存储过程和用户定义的存储过程是否显示在各种各样的pb画板中.
pbcatalogowner:pb存储中表的缺省者.
async:允许在服务器上进行同步操作.0:同步,1:异步
dbgettime:当async=1时,使用该参数设置用户在检索行时pb等待来自pb的响应的秒数.
cursorlock:release和cursorscroll参数一起使用可设置光标的锁定选项.lock,opt,optval,readonly
cursorscroll:设置光标的滚动选项.
staticbind:控制pb是否在检索数据前获取dbms中的结果集描述.
dbtextlimit:控制返回的文本字段的最大长度而不用将文本作为二进制大型数据对象来处理.
appname:设置连接时所使用的应用程序名.
host:设置连接似的工作站名.
packetsize:设置使服务器向pb传送数据时所设置的包大小.
secure:设置是否想使用winnt集成逻辑安全性和安全sql server连接 缺省0使用标准安全性,1集成安全性.

PowerBuilder与Oracle 7.3 的连接

PowerBuilder与Oracle的连接

PowerBuilder(PB)和Oracle分别是前端开发工具和RDBMS的主流产品。PB提供了两种与Oracle连接的接口：PowerSoft内置的数据库接口(Native
Database
Interface)和ODBC接口。本文介绍使用PB6.0内置Oracle接口的方法，包括数据描述文件的设置、存储过程的调用和存储过程作为数据窗口数据源的操作方法等内容，使用的RDBMS的Oracle
7.3。

　PowerBuilder与Oracle的连接

　　假定已安装Oracle客户端应用程序。可用Sqlplus或Tnsping等是否能连接到Oracle数据库，确定在SQLNET配置文件中使用的数据库别名(Database
Alias，又称服务器名，Server
Name)。如有疑问，可在Oracle客户端程序目录下tnsname.ora文件中找到。另外保证搜索路径已包括SQLNET应用程序的安装目录(如C:/ORAWIN95/BIN)。

进入PB的Database Profiles画笔，可看到所有已安装的数据库接口(PB6.0缺省安装的是Oracle
7.3版的接口，如使用低版本的Oracle，需在安装时指定)，选择“O73 Oracle
7.3”，点击“New”按钮，进入Database Profile 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：数据窗口对象检索数据前是否检测SELECT语句的合法性；

　　在Syntax页，还可指定日期、时间的格式等。在Preview页可查看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关键字声明为外部函数。在Declare Local External
Functions对话框中按Procedures按钮选择要调用的后台存储过程，或直接输入类似subroutine TEST(long
id,ref string name)RPCFUNC ALIAS FOR “DEV TEST”的语句。例如中DEV
TEST的参数为(id IN
NUMBER,name IN OUT VARCHAR2)。

　　3)保存该用户对象。

　　4)在Application画笔中，进入应用属性对话框，在Variable
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 BY
BINARY—INTEGER；存储过程EMP—OF—DEPT(dept—id IN NUMBER,name OUT
DEPT.tbl—name)返回部门编写为dept—id的部门的所有员工，置name数组中。假定所有部门
的员工数目不超过100，则可用以下语句声明和调用DEV.EMP—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的所有员工的名字

　　方法二使用方法：

　　在脚本中加入如下编码(以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)。

Support for Using PowerBuilder and Oracle 8.x and 9.x and 10g
Oracle 8.x and 9.x and 10g 的 pb 支持情况

http://www.sybase.com/detail?id=1011566

PB10连接SQL Server的配置

可能初次使用pb10的朋友无法顺利连接到sql server，一方面没有了mssql
server专用接口了，另一方面数据库管理系统(DBMS)换成了“OLE DB”，配置起来有点不顺手！下面就来介绍pb10中用OLE
DB连接sql 2000数据库。

在安装pb10的时候选择custom/full方式安装（默认的安装方式不会安装ole
db接口），next－》如果你没有安装.net则不要选择列表中的ADO.net....项。一路next完成安装。

在数据库画板中找到OLE microsoft OLE DB项，在其上右键新建一个配置，在弹出的配置窗口中：

profile name：填写配置文件名 //任意即可

provider：选择数据库管理系统类型，这里选择“SQLOLEDB”项

data
source：服务器名（和之前的版本不太一样）。可以在下拉列表中选择，也可以填入服务器名或IP地址如：127.0.0.1等。如果上面的provider不是“SQLOLEDB”则此下拉列表中可能没有选项。

user ID：用户名。我的用户名是默认的sa

password：对应上面user ID的密码，我的密码是空的，所以不填。

到这里你就可以顺利的连接到sql
server了。但是连接到哪个数据库呢？上面的参数都没有指明，我也找了半天:P。不要着急，在Extended里填入
“database=数据库名” 就可以了。（不要引号）

最后的配置文件内容为：

// Profile his
SQLCA.DBMS = "OLE DB"
SQLCA.LogId = "sa" //我的用户名是sa
SQLCA.AutoCommit = False
SQLCA.DBParm =
"PROVIDER='SQLOLEDB',DATASOURCE='NETMANAGER',PROVIDERSTRING='database=zs'"
//我的数据库名是：zs；datasource后面也可以是IP地址：DATASOURCE='127.0.0.1'

至此就完成了pb10下用OLE DB连接sql server的配置！

轻易不出手，出手必伤人!伤着你了可别怨我哦!

[4 楼] | Posted: 2005-06-26 23:37

laozang

全心全意,为您服务

级别: P.T ChairMan
精华: 1
发帖: 542
威望: 212 点
P.T Money: 942 PB
贡献值: 325 点
在线时间:109(小时)
注册时间:2005-04-26
最后登录:2006-12-12

在PB中使用FoxPro数据库的方法

重庆工业管理学院 蒋波

---- Power Builder
是十分优秀的用于客户/服务器环境信息管理系统开发工具，其优秀之处不仅是因为可以开发基于客户/服务器模式的系统，而且简单、易学，Power
Builder
自身是没有数据库管理系统（DBMS）的，它是首先通过不同的驱动程序联接不同的数据库，再通过这种联接，实现对数据的管理。Power
Builder同时随盘附带有一个小型的数据库管理系统：SQL Anywhere，所以用户也可以直接开发用于单机的完整的信息管理系统。

----
本人以前曾开发过基于FoxPro环境下的数据库系统，但FoxPro的编程太麻烦，不但要处理数据的管理，而且还要花大量的精力处理输入、输出的格式等。但有着可视化编程环境的Power
Builder却不同，处理输入、输出是件相当简单的事情，于是，本人偿试用Power Builder来管理以前的数据库。 c在Power
Builder系统中，使用FoxPro的数据库有两种方法：一是利用ODBC联接FoxPro数据库；另一种方法是将FoxPro的数据库转换到SQL
Anywhere的数据格式。

---- 一、 利用ODBC联接FoxPro数据库

---- 在Power Builder中，直接访问FoxPro数据库只能通过ODBC方式。

---- 在开发环境下，可以直接在PowerBar画板上配置ODBC，联接FoxPro数据库，方法如下：

单击Configure ODBC工具钮

在Installed Drivers目录框中选择：Microsoft Foxpro Driver (*.dbf)

单击“Create”按钮

命名数据源名、选择版本

取消“使用当前工作目录”选项

单击选定目录，选择被联接数据库所在的目录

确定退出

----
通过ODBC方式联接的FoxPro的数据库，一定要满足FoxPro的数据库格式，即数据库文件结构必须是：“32字节文件描述若干个32字节的字段描述
结构描述结束符（0D） 记录1，记录2，…… 文件结束符（1A）”。由此看来，传统的DBF数据库文件均可通过该方式联接。对于Visual
FoxPro环境下建立的表（Table），其结构与传统的数据库结构是不同的，它在字段描述结束符（0D）与记录之间加上了二百多个字节的内容，但在未纳入VFP的数据库（Dbc）之前，其内容为“00”，此时仍可以通过这种方式联接，一旦纳入数据库中，该段字节已被填上了其它内容，无法再联接。

---- 在Power
Builder应用程序中，使用事务处理对象来联接数据库，这种事务处理对象，即有默认的SQLCA，用户也可以自己生成，以方便访问多个数据库。在程序中使用事务处理对象时，一般必须先指明DBMS、DbParm两个属性，对于FoxPro数据库，还必须指明
Database、 userid、servername、几个属性，这一点是与访问其他类型的数据库不同的地方。

sqlca.dbms="ODBC" // 指定联接方式ODBC
sqlca.database="D:/prg/pubdata" // 指定被联接数据库所在目录
sqlca.userid="public" // 用户识别号，都为 public
sqlca.servername="FOXPRO" // 服务器名：均为FOXPRO
sqlca.dbparm="Connectstring='DSN=tscxs'" //数据源名

connect using sqlca; // 实施联接
……

---- 通过对FoxPro数据库的联接，用户便可以在Power
Builder开发环境下、应用程序中使用这些数据库，快速地开发出自己的信息管理系统，实现对这些数据库的维护与管理。

---- 二、 将DBF文件转换为SQL Anywhere 的DB文件格式

---- 在Power Builder环境下，附带有一个数据库系统——SQL Anywhere，在Power
Builder中利用它，用户可以直接建立、维护数据库。在SQL
Anywhere中，数据库结构虽然与VFP不同，但概念是一致的，即：数据库是系统中相关的各种数据，这些数据又因不同用途组织成不同的表，这些表共同构成数据库，与传统的数据库（DBF）相类比，PB、VFP中的表即是传统意义的数据库，PB、VFP中的数据库类似于传统的数据库（DBF）文件所在的目录。SQL
Anywhere中提供了将传统的DBF文件转换为该系统下的数据库文件（DB）中的表的工具。为了实现这一转换，用户必须先建立一个新的表，再将DBF格式的文件内容导入该表中。

----
对于DBF文件，必须是传统意义上的数据库，如FoxPro、dBase、FoxBASE环境下的数据库文件。该种数据库文件严格遵循“数据文件==数据库结构+数据库记录”这一格式。其结构如下：“32字节文件描述若干个32字节的字段描述
结构描述结束符（0D） 记录1，记录2，…… 文件结束符（1A）”

03 62 0A 07 02 00 00 00 - 81 00 4C
00 00 00 00 00 // 文件描述：时间、长
00 00 00 00 00 00 00 00 - 00 00 00
00 00 00 00 00 度、记录长、记录数
4E 41 4D 45 00 00 00 00 - 00 00 00
43 01 00 00 00 // 第一个字段：名、类
28 00 00 00 00 00 00 00 - 00 00 00
00 00 00 00 00 型、长、起始位
41 55 54 48 4F 52 00 00 - 00 00 00
43 29 00 00 00 // 第二个字段
0F 00 00 00 00 00 00 00 - 00 00 00
00 00 00 00 00 ……
0D 20 50 6F 77 65 72 42 - 75 69 6C
64 65 72 20 50 // 结构结束符（0D）、
72 6F 67 72 61 6D 6D 69 - 6E 67 20
20 20 20 20 20 记录1
20 20 20 20 20 20 20 20 - 20 20 4A
6F 68 6E 20 53 ……
6D 69 74 68 20 20 20 20 - 20 1A
// 文件结束符（1A）

---- 将DBF文件直接转换为PB（SQL Anywhere）中的表，操作步骤如下：

在PB 中建立新表

打开新建的表

单击数据库画板中的“数据操作(Data manipulation)”按钮

选择菜单：Rows ? Import

从“文件类型”下拉框中选择dbaseII & III(*.dbf)

选择被导入文件所在的目录及文件名

单击“打开”按钮

系统将打开指定的文件，将该文件中的所有记录导入新建的表中。

---- 但系统不提供直接将导入数据保存在本数据库（表）中。如果要将导入的记录保存为SQL Anywhere
环境下的数据库（表）中，可以先将导入数据行以SQL格式保存在 .sql 类型文件中，在利用SQL语句将这些数据行插入新表中。步骤如下：

按上面所列的步骤导入数据库（DBF）文件中的数据

选择菜单：File ? Save Row As …

在“存为类型”列表框中选择：SQL

选择保存路径，输入保存文件名，单击保存

关闭“Data manipulation”窗口，回到数据库画板

单击“DB Administration”（数据库管理器）

选择菜单：File ? Open

确信文件类型为：SQL (*.sql)

选择第4步中所保存的文件，单击“打开”按钮

删除文件起始部分的第一条SQL语句：CREATE TABLE

单击“Execute”（执行）按钮，系统将把原数据库中的所有行插入到新表中。

---- 需要注意的是，新建的表在字段设置上必须与原DBF文件中的字段保持一致，即：

新表中的字段数必须等于或大于原DBF文件中的字段数

新表中的字段顺序要与原文件中的字段顺序一样，即使新表中字段数更多，但新的字段必须放在最后

新表与旧文件中字段名可以不一样

新表中的数据类型必须与旧表中的数据类型兼容：字符 ? 字符， 数值 ? 数字，数字 ? 字符……

数据格式相一致，如两个文件中的日期格式必须一致

新表中字段长度必须能容纳旧数据库文件中的对应字段中的数据，如：旧数据库某一字段宽度为C20，但库中所有记录在该字段的实际最长为14，那么，新表中的字段宽度至少应为C14

---- 如果你愿意，也可以将原FoxPro中的数据库先转换到TXT格式文件，再将TXT格式的文件导入SQL
Anywhere数据库（表）中，不过TXT文件中一条记录独占一行，各字段间必须用Tab键（符）隔开，其导入方法与DBF文件中数据的导入方法类似。

---- 以上两种办法均可实现在Power Builder下访问FoxPro数据库，但两种方法之间有些不同之处：

从系统需求来看：第一种方式使用ODBC直接访问DBF文件，只要Power
Builder基本系统即可，不需要安装数据库管理系统（DBMS）；而第二种方式必须安装SQL Anywhere系统。

从运行效率来看：第一种方式速度要慢一些，后一种方式稍快。笔者在应用程序中比较了两种方式在速度上的差异：将FoxPro系统中的一个有15000余条记录的数据库，用第一种方式联接、在数据窗口控制中显示（Retieve）记录，需要6秒钟左右，后来又用第二种方式：在SQL
Anywhere
中新建一个表，将这15000条记录导入表中，联接、显示记录，需要时间为3-4秒。对另一个拥有19万余条记录的FoxPro数据库直接使用ODBC，联接、显示的时间为85秒钟。

---- 使用Power Builder
的主要优势体现在建立客户/服务器模式的系统上。对于一般的单机系统、规模较小的系统，可能大多数人不会想到它。但如果你觉得FoxPro太老土，Visual
FoxPro又太难学的的话，不妨试试Power Builder。

如果不曾跟着世界旋转，那么就在安静中寻找自我...

[5 楼] | Posted: 2005-07-11 12:33

lffym1

级别: 见习程序员
精华: 0
发帖: 1
威望: 0 点
P.T Money: 1 PB
贡献值: 0 点
在线时间:0(小时)
注册时间:2005-07-29
最后登录:2006-05-11

PB连接my sql数据库!(by laozang)

ok 非常好！支持！

Edit by laozang

真是失败!没有给自己多留几个位置,只能在这里弄了!
有几位朋友说要pb连接mysql的数据库,我在网上找了一个例子,不知道正确不正确,大家看看,好使的话,就说一声!

PB下连接Mysql

需要安装myodbc,具体的安装和设置请参阅:
http://dev.mysql.com/doc/refman/5.0/en/myodbc-installation-binary.html#myodbc-installation-binary-windows-installer

使用DSN方式:
ConnectString='DSN=dl;DESC=MySQL ODBC 3.51 Driver
DSN;DATABASE=xxxx;SERVER=xxx.xxx.xxx.xxx;UID=xxxx;PASSWORD=xxxx;PORT=3306;SOCKET=;OPTION=3;STMT=;'

或者
ConnectString='DRIVER={MySQL ODBC 3.51
Driver};SERVER=xxx.xxx.xxx.xxx;DATABASE=xxxx;UID=xxxx;PWD=xxxx;PORT=3306;OPTION=3'

[6 楼] | Posted: 2005-07-31 10:44

zhj149

级别: 见习程序员
精华: 0
发帖: 5
威望: 0 点
P.T Money: 0 PB
贡献值: 0 点
在线时间:0(小时)
注册时间:2005-08-10
最后登录:2005-08-10

PB中连接Access数据库的三种方法

QUOTE:
太好了,对于我们这些新手来说,太有帮助了!

Edit by laozang

PB中连接Access数据库的三种方法

方式一：
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='driver=Microsoft Access Driver
(*.mdb);DBQ=c:/foodmart.mdb'"

CONNECT;

IF SQLCA.SQLCode <> 0 THEN
MessageBox("数据库连接失败","请与管理员联系。错误号:" + String(SQLCA.SQLCode) +
"~r~n错误原因:" + SQLCA.SQLErrText)
RETURN
else
MessageBox("数据库连接成功","现在进入系统... ...")
end if

方式二：
SQLCA.DBMS = "OLE DB"
SQLCA.AutoCommit = False
SQLCA.DBParm =
"PROVIDER='Microsoft.Jet.OLEDB.4.0',DATASOURCE='C:/foodmart.mdb'"
CONNECT;

方式三：
建立DSN，通过ODBC连接。这个就不用多说了。
例如:
// Profile my_ass
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=my_ass'"

catalog tables could not be created and are not available for use
问题解决方法:

这种情况多见于从SQL server 转到 Access 数据库,用ODBC连接的情况
把sqlserver数据库里的五个‘pb’字母开头的数据表导入到access数据库里去，再连接就不提示了

关于动态注册ODBC数据源

关于动态注册Access数据源

//***********************************************
// 函数名: gf_setodbc_access
// 功能: 完成access数据源的注册功能
// 输入参数:
// as_database 数据库名
// (即Access数据库文件名字，不含扩展名)
// as_path 数据库文件所在的目录
// 返回值:
// true 表示自动配置成功
// false 表示自动配置失败
// 设计者: Adamswater
// 完成时间: 2005年6月
//***************************************************
boolean lb_rtn
string ls_root,ls_root_dsn,ls_root_Jet,ls_root_Engines
integer li_rtn
string ls_dsnname,ls_dbfullname,ls_driver,temp,ls_version
string ls_syspath
environment env

integer rtn

ls_syspath = Space( 40 )
//获得*作系统的目录
GetSystemDirectoryA(ls_syspath,60)
ls_driver = ls_syspath + "/odbcjt32.dll"
lb_rtn = true
ls_root = "HKEY_LOCAL_MACHINE/software/odbc/odbc.ini"
//数据源名字为：文件名字+“_DT”
ls_dsnname = as_database + "_DT"
ls_root_dsn = ls_root + "/" + ls_dsnname
ls_root_Engines = ls_root_dsn + "/" + "Engines"
ls_root_Jet = ls_root_Engines + "/" + "Jet"
ls_dbfullname = as_path + "/" + as_database + ".mdb"
//注册数据源的名字
li_rtn = registryset(ls_root,ls_dsnname,regstring!,"")
if li_rtn= - 1 then
return false
end if
//注册数据库名字
li_rtn = registryset(ls_root_dsn,"DBQ",regstring!,ls_dbfullname)
if li_rtn= - 1 then
return false
end if
//注册数据库驱动程序
li_rtn = registryset(ls_root_dsn,"Driver",regstring!,ls_driver)
if li_rtn= - 1 then
return false

[7 楼] | Posted: 2005-08-10 15:50

clmcclm

级别: 见习程序员
精华: 0
发帖: 1
威望: 0 点
P.T Money: 1 PB
贡献值: 0 点
在线时间:0(小时)
注册时间:2005-08-13
最后登录:2005-08-13

用PB连接Access数据库(.mdb文件)在注册表中的ODBC配置相关项-

QUOTE:
顶楼的拐子，你真是那个事。蛮欣赏你！

用PB连接Access数据库(.mdb文件)在注册表中的ODBC配置相关项

//***************************************************************************/
ODBC相关的键，主要有下面几项：
HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/ODBCDRIVER
记录所有已安装的ODBC驱动程序；
HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI 记录各种ODBC驱动程序的相关信息；
HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/ODBC Data Sources
记录各种数据源的类型；
HKEY_CURRENT_USER/Software/ODBC/ODBC.INI 记录各种数据源的详细信息。
//***************************************************************************/
//ODBC下Access数据库的键的配置
HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/数据源名称(如TEST)

//说明："..."="HKEY_CURRENT_USER/Software/ODBC"

//键值设置
.../ODBC.INI/数据源名称(如TEST)/DBQ REG_SZ 数据库文件所在路径
.../ODBC.INI/数据源名称(如TEST)/Driver REG_SZ
odbc驱动所在路径(C:/WINNT/System32/odbcjt32.dll)
.../ODBC.INI/数据源名称(如TEST)/DriverId REG_DWORD 0x00000019(25)
.../ODBC.INI/数据源名称(如TEST)/FIL REG_SZ MS Access;
.../ODBC.INI/数据源名称(如TEST)/SafeTransactions REG_DWORD 0x00000000(0)
.../ODBC.INI/数据源名称(如TEST)/UID REG_SZ
//子键没有也可以
//子键配置(.../ODBC.INI/数据源名称(如TEST)/Engines) 无(默认)
//子键配置(.../ODBC.INI/数据源名称(如TEST)/Engines/Jet)
.../ODBC.INI/数据源名称(如TEST)/Engines/Jet/ImplicitCommitSync REG_SZ
.../ODBC.INI/数据源名称(如TEST)/Engines/Jet/MaxBufferSize REG_DWORD
0x00000800(2048)
.../ODBC.INI/数据源名称(如TEST)/Engines/Jet/PageTimeout REG_DWORD
0x00000005(5)
.../ODBC.INI/数据源名称(如TEST)/Engines/Jet/Threads REG_DWORD
0x00000003(3)
.../ODBC.INI/数据源名称(如TEST)/Engines/Jet/UserCommitSync REG_SZ Yes
//***************************************************************************/
//PB中相关注册表操作函数
RegistryGet ( key, valuename, { valuetype }, valuevariable )
RegistryKeys ( key, subkeys )
RegistrySet ( key, valuename, valuetype, value )
RegistryValues ( key, valuename )

//valuetype:
RegString!
RegExpandString!
RegBinary!
ReguLong!
ReguLongBigEndian!
RegLink!
RegMultiString!
//***************************************************************************/
//获取操作系统的system目录,并保存到ls_location变量
li_sysdir =
RegistryGet("KYEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Setup","SysDir",RegString!ls_location)；

IF li_sysdir = -1 THEN
　　Messagebox('错误','应用程序无法获取Windows的系统目录，系统将终止运行!',Stopsign!);
RETURN;
END IF

//然后根据系统目录得出odbc驱动(odbcjt32.dll)的路径
//***************************************************************************/
//数据库事务连接
SQLCA.DBMS = "ODBC"
SQLCA.Database = 数据库文件名
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
sqlca.DbParm="Connectstring='DSN=数据源名称;UID=sa;PWD=;"

connect using sqlca;

PowerBuilder连接Sybase SQL Server的注意事项

QUOTE:
怎样连接到ACCESS啊？？？——可以不使用ODBC设置，直接用代码完成吗？？

还是占个地方！ by laozang

PowerBuilder连接Sybase SQL Server的注意事项

首先, 确认Open Client 已经安装, 并正确配置, 且能够通过wisql 或Sybase
Advantage查询SERVER端数据库中的数据.

PowerBuilder连接不上Sybase数据库, 主要原因有以下几点:

1) locales.dat 未正确设置

locales.dat 是Client端字符集设置文件, 一般在c:/sybase/locales/
目录下。若操作系统平台是Windows 95, 则修改[NT]节下的相关内容；若操作系统平台是Windows 3.x,
则修改[win3]节下的相关内容。
a、应该有一行有关中国的国别设置：
locale = chs, us_english, iso_1
b、Client端的缺省字符集设置应该和Server端的字符集设置一致。
本例中将Client端的缺省字符集设为iso_1：
locale = default, us_english, iso_1

2) 重装SQL SERVER后未运行pbsyc.sql
pbsyc.sql用于在Sybase数据库中创建PowerBuilder所需的系统表和存储过程，它在PowerBuilder安装盘的server目录下。当PowerBuilder第一次连接数据库之前，或Sybase重装之后，需要在isql或SybaseAdvantage中，用"sa"登录到"master"数据库，运行pbsyc.sql
. 另外，若连接的是Adaptive Server 11.5，需要先对pbsyc.sql文件做如下改动：
将"@@"替换为"@"，但保留"@@error"和"@@isolation"

3) PowerBuilder是32位的，但Open Client是16位的，由于PowerBuilder需要通过Open
Client实现与数据库的连接，所以Open Client必须与PowerBuilder同为32位，或同为16位。

4) 未安装Sybase的直连接口(Native Driver)或ODBC接口(ODBC
Driver)PowerBuilder需要通过Native Driver或ODBC
Driver才能访问数据库，所以若需要访问Sybase数据库，Native Driver或ODBC Driver是必需的。

5) Open Client中定义的Server Name与PowerBuilder应用中SQLCA.ServerName
设置的值不一致。

6)
未将PowerBuilder的DLL库的路径名加到系统搜索路径上由于PowerBuilder应用程序运行时需要一些DLL库的支持，所以需要将PowerBuilder的DLL库的路径加到系统搜索路径上。

下面是系统缺省的DLL库安装路径：
长文件名安装时：(PB6.0)
c:/Program Files/Powersoft/Shared/
长文件名安装时：(PB5.0)
c:/Program Files/Common Files/Powersoft Shared/
短文件名安装时：
c:/pwrs/sys32/

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lzp_lrp/archive/2009/04/28/4134606.aspx