Power Builder同时连接多个数据库

原创 2011年01月10日 14:16:00

只 需 设 置 两 个 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_USER/software/microsoft/windows/currentversion/explorer/g", "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

初识Power Builder9.0

概述   Power Builder是一种新型、快速开发工具,它包含一个直观的图形界面和可扩展的面向对象的编程语言PowerScript,通过ODBC与单机数据库连接。 特点 PowerBuild...

power designer 连接数据库以及 Could not Initialize JavaVM! 错误的解决

最近使用 power designer 时遇见了好多问题,下面分两个方面说明。 1 .  首先使用power designer 怎么打开数据库的表等数据:...

Power Designer逆向工程连接数据库创建pdm-oracle

1、进入菜单文件-Reverse Engineer-Database... 2、打开窗口,选择数据库版本,点击【确定】 3、打开窗口,选择Usering a data source: ...

power Designer15.3 连接 MySQL数据库逆向工程

安装破解的方法谷歌下一堆堆安装好后新建一个Physical Diagram,就可以在菜单栏看到Database,Database->config connections以下是截图: ...

Power Builder的SQLCode返回值的意义~

0   成功 -1   失败 100   未返回数据  SQLCODE 是废弃的错误代码模式,是一个简单的整数。       0 标识成功,正数标识带着额外信...

创建SQL数据库并与C++Builder连接

创建数据库并与C++Builder连接的过程分为三个步骤。一是建立数据库表,二是建立ODBC数据源,三是数据库与C++Builder连接。 一. 创建数据库表      使用工具是SQL ...
  • CYT0603
  • CYT0603
  • 2016年06月13日 18:57
  • 1539

flash builder plugin BlazeDS 连接Flex和Java,数据库SQL server 2008

1驱动要用sqljdbc4.jar(sqljdbc.jar连不上)2连接语句为:public Connection getConnection() throws DAOException{  Conn...

Power Builder 入门分享

选取数据源: 1,Quick Select(快速选择):主要用于从一个表或多个表通过外键连接的表中选择某些数据列,而且这些数据列都是非计算列。 2,Sql Select:主要用于从一个表或多个表中...
  • zhenpei
  • zhenpei
  • 2011年02月26日 11:21
  • 724

在POWER BUILDER中使用WINSOCK控件

在POWER BUILDER中使用WINSOCK控件 (加入日期:2001-6-20) 【保存文章至硬盘】【打印文章】【字体:大中 小】 分享到: 0 湖南省怀化市电信局计算机中心 ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Power Builder同时连接多个数据库
举报原因:
原因补充:

(最多只允许输入30个字)