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

(编辑:aniston)