PowerBuilder
隨著網絡的延伸和信息系統的不斷開發
方案一
方案二
具體實現方案
本文在一個窗口上的兩個按鈕具體顯示方案一和方案二
(
Transaction lc_oracle
∥初始化oracle數據庫事務
lc_oracle=CREATE transaction
lc_oracle
lc_oracle
lc_oracle
lc_oracle
lc_oracle
lc_ingres=CREATE transaction
lc_ingres
lc_ingres
lc_ingres
lc_ingres
lc_ingres
SRVR=nt;DB=xxzx
(
connect using lc_oracle;
dw_oracle
dw_oracle
∥訪問ingres數據庫
connect using lc_ingres;
dw_ingres
dw_ingres
(
/*說明一個支持數據管道的對象
User Object Painter中定義的PipeLine對象*/
lc_object lcl_object
∥啟動數據管道
integer start_result
connect using lc_oracle;
connect using lc_ingres;
lcl_object=create lc_object
/*lc_pipeline是在PipeLine Painter中定義的數據管道
lcl_object
start_result=lcl_object
If start_result=
messagebox(
return
end if
disconnect using lc_oracle;
disconnect using lc_ingres;
小結
PowerBuilder不僅為應用系統的快速開發提供了強有力的支持工具
From:http://tw.wingwit.com/Article/program/PB/201311/24647.html