[转帖]Power Builder同时连接多个数据库

ehxz

免费乐捐，感谢支持

    只 需 设 置 两 个 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