ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Power Builder同时连接多个数据库(转)

Power Builder同时连接多个数据库(转)

原创 Linux操作系统 作者:jcszjswkzhou 时间:2019-05-04 11:39:04 0 删除 编辑
只 需 设 置 两 个 TRANSACTION对 象 即 可 。
以 下 为 同 时 连 接 SQL SERVER和 DBF数 据 库 的 示 例 :
连 接 SQL SERVER:
SetPointer(HourGlass!)
//窗 口 居 中
f_center(this)
//根 据 sgselect 连 接 不 同 的 套
string sSelect
string temp
sSelect="d_gdzc"+sgselect
SQLCA.DbParm = ProfileString(gzINIFile,"Database","DbParm","")
SQLCA.DBMS = ProfileString(gzINIFile,"Database","DBMS","")
SQLCA.Database = sSelect
SQLCA.ServerName = ProfileString(gzINIFile,"Database","ServerName","")
SQLCA.LogId = "sa"
RegistryGet("HKEY_CURRENT_USERsoftwaremicrosoftwindowscurrentversionexplorerg", "a", RegString!,temp )
f_anencrypt (temp,SQLCA.LogPass)
SQLCA.AutoCommit = false
SQLCA.Lock = ProfileString(gzINIFile,"Database","Lock","")
connect using sqlca;

IF SQLCA.SQLCode <> 0 THEN
MessageBox("联 接 失 败 ", &
"不 能 联 接 数 据 库 !(错 误 信 息 :" + SQLCA.SQLErrText+")")
setpointer(Arrow!)
RETURN
halt close
END IF

定 义 函 数 :
fuction f_connectdbf(string sdbparm) return any
string nul //用 于 生 成 null值
transaction trans_name
trans_name=create transaction
trans_name.DBMS = "ODBC"
//trans_name.Database = "ZWDBF"
//trans_name.LogId =
//trans_name.LogPass =
trans_name.AutoCommit = False
trans_name.DBParm = sDBParm
//trans_name.Lock =ProfileString(gzINIFile,"Database","Lock","")
//trans_name.DbParm =ProfileString(gzINIFile,"Database","DbParm","")
CONNECT USING trans_name;

IF trans_name.SQLCode <> 0 THEN
MessageBox("联 接 失 败 ", &
"不 能 联 接 财 务 数 据 库 ! 请 检 查 财 务 路 径 是 否 正 确 。 (错 误 信 息 :" + SQLCA.SQLErrText+")")
rollback;
return setnull(nul)
else
return trans_name
END IF

连 接 FOXPRO数 据 库 ( 同 时 连 接 第 二 个 数 据 库 , 还 可 以 连 接 第 三 、 第 四 个 ) :
openwithparm(w_disp,"正 在 联 接 DBF卡 片 数 据 库 ...",parent)
transaction sqldbf
//用 SQLDBF连 接 财 务 ( 固 资 ) 数 据 库
sqldbf=f_connectdbf("Connectstring='DSN=gzdbf'")
//判 断 是 否 联 接 成 功
if isnull(sqldbf) then
Messagebox("出 错 ","联 接 DBF固 定 资 产 数 据 库 出 错 ! ")
end if

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-122066/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2007-08-29

  • 博文量
    3488
  • 访问量
    2621608