测试服务器是否启动

测试服务器是否启动，最好不要用
connect;
if sqlca.sqlcode=0 then
连接成功
else
连接失败
end if
在数据库没有启动的情况，程序会半天也有没有反映


用下面的语句试试
integer result
OLEObject loo_SQLServer
loo_SQLServer = CREATE OLEObject
result = loo_SQLServer.ConnectToNewObject("SQLDMO.SQLServer"
if result <> 0 then
  messagebox('提示','创建OLE对象时产生错误')
  return
else
  loo_SQLServer.name = 'ServerName'
  if loo_SQLServer.Status = 3  then//服务停止
      loo_SQLServer.Start(false,'ServerName','sa','pwd')
  elseif loo_SQLServer.Status = 2  then//服务暂停
    loo_SQLServer.Continue()
  end if
  //启动之后再次判断是否成功
  if loo_SQLServer.Status = 2 or loo_SQLServer.Status = 3 then
    messagebox('错误','启动服务失败')
  end if   
end if
loo_SQLServer.DisconnectObject()
destroy loo_SQLServer