PB在代码中更改数据源

PB在代码中更改数据源

直接上代码：

transaction itrans_db
itrans_db = create transaction 

//配置数据库连接对象的属性
itrans_db.DBMS = "SYC Sybase ASE"
itrans_db.Database = is_mid_datebase
itrans_db.ServerName = is_mid_server
itrans_db.LogId = is_mid_cloginid
itrans_db.LogPass = is_mid_cpsw
itrans_db.AutoCommit = false
itrans_db.DBParm = ""

Disconnect Using itrans_db;
Connect Using itrans_db;
If itrans_db.sqlcode <> 0 then
    rollback Using itrans_db;
    return 0
End if

dw_1.settransobject(itrans_db)