Power Builder同时连接多个数据库

不念不忘少年蓝@ 2022-09-28 11:51 211阅读 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\_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