pb 判断数据库连接

[dzyjl]

下面是一段连接数据库代码，当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

[薛123]

sqlca.DBMS ="ODBC" sqlca.database ="FMDB" sqlca.dbparm ="Connectstring ='DSN =FMDB;UID =sa;PWD =1234'"\\数据库名：sa;密码：1234 connect; if sqlca.sqlcode<0 then messageBox("错误信息","不能连接数据库",stopsign!) return end if

[sybasebbs]

MSSQL有这个问题的。

[dzyjl]

楼上，怎么解决？ 你们在实际项目中是怎么控制的