在一次项目开发过程中需要从不同的数据库(eg: db1=ORACLE;db2=SYBASE)中取出数据方如同一个数据窗口中作为报表. 思路如下:
1. 创建两个tabular型的Datawindow, dw_oracle, dw_sybase.
2. 创建一个composite的Datawindow"dw_cmpst". 在这个数据窗口中置入dw_oracle和dw_syabse. 分别命名为"dw_orcl"和"dw_sbs".
3. 在脚本中写入如下的语句:
DataWindowChild ldwc_report
Transaction NEW_SQLCA;
CONNECT USING SQLCA; // 使用默认的事务对象
dw_cmpst.GetChild( "dw_orcl", ldwc_report) // get a reference to
the first report in the composite
ldwc_report.SetTransObject( SQLCA)
ldwc_report.Retrieve()
DISCONNECT USING SQLCA;
NEW_SQLCA = CREATE Transaction // 第二个事务对象
NEW_SQLCA.DBMS = "SYC Sybase System 10/11"
NEW_SQLCA.Database = "database"
NEW_SQLCA.LogPass = "password"
NEW_SQLCA.ServerName = "sybase_server"
NEW_SQLCA.LogId = "logid"
NEW_SQLCA.DBParm = "Release='11',StaticBind=0,DateTimeAllowed='Yes'"
CONNECT USING NEW_SQLCA;
dw_cmpst.GetChild( "dw_sbs", ldwc_report) // reference
ldwc_report.SetTransObject( NEW_SQLCA)
ldwc_report.Retrieve()
DISCONNECT USING NEW_SQLCA;
SetNull( NEW_SQLCA);
dw_cmpst.retrieve()//取出数据并显示
最后一句出现错误,去掉这一语句又不能显示数据,百思不得其解. 后来在一国外论坛得到如下答案:
将dw_cmpst.retrieve()改为如下语句:
dw_cmpst.setredraw(false)
dw_cmpst.modify("datawindow.print.preview=yes")
dw_cmpst.modify("datawindow.print.preview=no")
dw_cmpst.setredraw(true)
