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)