![](/icons/3378yi.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378chengxu.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378dou2.gif)
随着网络
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378yi.gif)
![](/icons/3378de.gif)
![](/icons/3378dou2.gif)
某个客户应用可能需要在同
![](/icons/3378yi.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378dou2.gif)
方案
![](/icons/3378yi.gif)
通过Transaction Object同时打开多个事务,再通过多个事务存取建立在区别数据库上
![](/icons/3378de.gif)
![](/icons/3378dou2.gif)
方案 2:
通过数据管道(DataPipeLine)将其它数据库上基表中
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378dou2.gif)
具体实现方案
本文在
![](/icons/3378yi.gif)
![](/icons/3378de.gif)
![](/icons/3378yi.gif)
![](/icons/3378dou2.gif)
![](/icons/3378de.gif)
(1)打开窗口事件脚本(Open for W_LC)
Transaction lc_oracle,lc_ingres
∥
![](/icons/3378chushi.gif)
lc_oracle=CREATE transaction
lc_oracle.DBMS ="OR7 ORACLE v7.x"
lc_oracle.Database ="ora7"
lc_oracle.logId ="Ljb"
lc_oracle.logPassword ="Ljbljb"
lc_oracle.ServerName ="@t:132.147.111.8" ∥
![](/icons/3378chushi.gif)
lc_ingres=CREATE transaction
lc_ingres.DBMS ="ODBC"
lc_ingres.Database ="xxzx2"
lc_ingres.userid ="nt"
lc_ingres.dbpass ="ingres"
lc_ingres.dbparm ="ConnectString='DSN=kfml;&
SRVR=nt;DB=xxzx2;OPTS=;UID=ingres'"
(2)同时访问两个数据库
![](/icons/3378de.gif)
connect using lc_oracle;
dw_oracle.SetTrans(lc_oracle)
dw_oracle.retrieve
![](/icons/3378kh.gif)
∥访问ingres数据库
connect using lc_ingres;
dw_ingres.SetTrans(lc_ingres)
dw_ingres.retrieve
![](/icons/3378kh.gif)
(3)数据管道
![](/icons/3378de.gif)
/*介绍说明
![](/icons/3378yi.gif)
![](/icons/3378de.gif)
User Object Pa
![](/icons/3378int.gif)
![](/icons/3378de.gif)
lc_object lcl_object
∥启动数据管道
![](/icons/3378int.gif)
connect using lc_oracle;
connect using lc_ingres;
lcl_object=create lc_object
/*lc_pipeline是在PipeLine Pa
![](/icons/3378int.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
lcl_object.dataobject="lc_pipeline"
start_result=lcl_object.start &(lc_oracle,lc_ingres,dw_oracle)
If start_result=-3
messagebox("数据管道错","此基表已存在");
![](/icons/3378return.gif)
end
![](/icons/3378if.gif)
disconnect using lc_oracle;
disconnect using lc_ingres;
小结
PowerBuilder不仅为应用系统
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378de.gif)
![](/icons/3378dou2.gif)
最新评论