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='用户名"