复制PB自带连接工具中的代码,加入后面代码即可
SQLCA.DBMS = "O10 Oracle10g (10.1.0)"
SQLCA.LogPass = "密码"
SQLCA.ServerName = "服务名"
SQLCA.LogId = "用户名"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='用户名'"
disconnect using sqlca;
CONNECT USING sqlca;
if sqlca.sqlcode<>0 then
    messagebox('提示','连接数据库失败')
else
    messagebox('提示','连接数据库成功')
end if

 

更多推荐

【PowerBuilder】代码连接oracle数据库