PowerBuilder
pb 判断数据库连接
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区下面是一段连接数据库代码，当pb启动的时候，数据库是断开的，这时候要好久才能提示，怎么能让快速提示
//连接数据库
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.ServerName = ls_servername
SQLCA.Database = ls_database
SQLCA.LogId = ls_logid
SQLCA.LogPass = ls_logpass
SQLCA.AutoCommit = false
SQLCA.DBParm = ""
Connect Using Sqlca ;
// messagebox('sdfsd',SQLCA.SQLCode)
If SQLCA.SQLCode <> 0 Then
MessageBox ("连接SQL SERVER数据库失败！", "连接SQL SERVER数据库('+ls_database+')失败~r~n~r~n错误信息如下："+&
"~r~n~r~n"+SQLCA.SQLErrText )
end if
//连接数据库
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.ServerName = ls_servername
SQLCA.Database = ls_database
SQLCA.LogId = ls_logid
SQLCA.LogPass = ls_logpass
SQLCA.AutoCommit = false
SQLCA.DBParm = ""
Connect Using Sqlca ;
// messagebox('sdfsd',SQLCA.SQLCode)
If SQLCA.SQLCode <> 0 Then
MessageBox ("连接SQL SERVER数据库失败！", "连接SQL SERVER数据库('+ls_database+')失败~r~n~r~n错误信息如下："+&
"~r~n~r~n"+SQLCA.SQLErrText )
end if
...全文
