PB 添加SQLSERVER数据源的方法

transaction sqlzk

sqlzk = create transaction

// Profile mdaq
SQLzk.DBMS = "OLE DB"
SQLzk.LogPass = "密码"
SQLzk.LogId = "sa"
SQLzk.AutoCommit = False
SQLzk.DBParm = "PROVIDER='SQLOLEDB',DATASOURCE='连接地址',PROVIDERSTRING='database=数据库名称'"

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; //释放资源

连接Oracle :

Oracle 连接时必须在电脑上先做好服务和监听

sqlzk.DBMS = "O90 Oracle9i (9.0.1)"
sqlzk.LogPass = '密码'
sqlzk.ServerName = "服务名"
sqlzk.LogId = "用户名"
sqlzk.AutoCommit = False
sqlzk.DBParm = "PBCatalogOwner='用户名"