用PB怎么连接多个数据库？

pb连接oracle数据库的方法。

一是：通过odbc，在database-odbc-utilities-双击odbcadministrator，添加数据源，

上图：

添加新的数据源

上图：为数据源选择驱动程序

上图：这里data

source

name栏中输入数据库名，tns

servicename栏输入（选择）服务器名：。然后完成，单击ok

上图：在新建proflie与数据库相连

添上profile

name，还有data

source

，userid

，password，这样就加上了数据库，在connect就可以用了

在powerbuilder软件界面，点击上面数据库图标。

2

d出Database Profiles窗口，在此窗口内，双击图中标注ODBC Administrator项。

3

在d出的ODBC数据源管理器中点击右侧的添加按钮。

在d出的创建新数据源窗口中，点击最下方SQL Server Native Client 10.0项。

d出创建到SQL Server的新数据源窗口，输入任意名称、描述，服务器处输入（local），点击下一步。

在新的界面最上方“更改默认数据库为”前勾选，下方选择你的程序想要连接的数据库。点击下一步。

一直点击下一步直到如图界面，到此数据源的添加基本完成，点击下方测试数据源，提示成功后关闭此界面即可；如果不成功请从头再次 *** 作，注意每一个小细节。

上个步骤关闭窗口后，回到原来的ODBC数据源管理器窗口，可以看到列表上方出现了刚刚创建的数据源，关闭此窗口。

回到Database Profiles窗口，如图，点击ODB ODBC，然后点击右侧New按钮。

新d出Database Profile Setup-ODBC窗口，填写Profile Name，下拉列表选择对应Data Source项。（如果你的数据库没有设置登录密码，则下方的user id和password项不需填写）

中间穿插一步，如图，在这个窗口上方点击Preview标签，复制下方的一段代码，留待后面使用。

点击OK，关闭此窗口。

点击新添加的那一项，如图，点击右侧Connect按钮，然后数据库小图标会出现一个绿色小勾。到这里，连接数据库的所有配置已经完成，只需在程序中添加连接数据库的代码就可以了。

如图，我在我的一个程序窗口的open事件中添加了刚刚复制的那段代码，这样这个窗口在打开时就可以直接连上数据库了。

连接数据库：

// Profile his

SQLCA.DBMS = "MSS Microsoft SQL Server"

SQLCA.Database = "数据库名称"

SQLCA.ServerName = "."

SQLCA.LogId = "sa"

SQLCA.AutoCommit = False

SQLCA.DBParm = ""

CONNECT USING SQLCA

IF SQLCA.SQLCode <>0 THEN

MessageBox('成功','数据库连接成功！')

ELSE

MessageBox('失败','数据库连接失败！')

END IF

//定义变量

String ls_id,ls_pass,ls_type

Long ll_number,i

ls_id = sle_user.Text

ls_pass = sle_pass.Text

//==============================================================================

// 判断用户名及用户密码是否正确，打开主窗口

//==============================================================================

IF ls_id = '' THEN

MessageBox('提示','用户代码为空，请重新输入!')

sle_user.SetFocus()

RETURN

END IF

SELECT count(*) INTO :ll_number FROM login Where id = :ls_id AND Password = :ls_pass

IF ll_number >0 THEN

SELECT Style INTO :ls_type FROM login Where id = :ls_id

gs_id = ls_id

gs_type = ls_type

Open(w_main)

Close(w_login)

ELSE

IF i <= 2 THEN

MessageBox('错误','密码错误，请重新输入!')

sle_pass.Text = ""

sle_pass.SetFocus()

i++

ELSE

MessageBox("警告!","输入用户口令的错误次数超过3次!")

Close(w_login)

END IF

END IF

---