PB 添加SQLSERVER数据源的方法

transaction sqlzk

sqlzk = create transaction

// Profile mdaq
SQLzk.DBMS = "OLE DB"
SQLzk.LogPass = "abc_123"
SQLzk.LogId = "sa"
SQLzk.AutoCommit = False
SQLzk.DBParm = "PROVIDER='SQLOLEDB',DATASOURCE='172.16.11.6,1800',PROVIDERSTRING='database=FumaCRM8'"

connect using sqlzk;

if sqlzk.sqlcode<>0 then
Messagebox('错误','不能与Eman数据库建立联接！~r~n错误代码：'&
+string(sqlzk.sqldbcode)+'~r~n错误描述:'&
+sqlzk.sqlerrtext,StopSign!)
return
end if
Messagebox('连接成功','连接成功')
//tab_1.tabpage_1.dw_1.settransobject(sqlzk )
//tab_1.tabpage_1.dw_1.event ue_retrieve()

//select * from table using sqlzk; //使用时必须使用using sqlzk

//　COMMIT using OracleTrobject) //提交
//Rollback Using Oracltiobject) //退回
disconnect using sqlzk; //断开连接
Destrog using sqlzk; //释放资源