PB判断SQLSERVER2000的状态

核心提示：//判断sql server(WINDOWS平台上强大的数据库平台)是否已经启动，如果没有启动则做相应处理st_status.text='判断sql server(WINDOWS平台上强大的数据库平台)是否已经启动 ...'OLEObject PBObjectlong ll_statusPBObject

//判断sql server(WINDOWS平台上强大的数据库平台)是否已经启动，如果没有启动则做相应处理
st_status.text='判断sql server(WINDOWS平台上强大的数据库平台)是否已经启动 ...'
OLEObject PBObject
long ll_status

PBObject = CREATE OLEObject
ll_status = PBObject.ConnectToNewObject ("SQLDMO.sqlserver")

string ls_serverName
integer li_Return
string ls_UserName
String ls_Password

Constant Integer SQLDMOSvc_Unknown  =0//未知状态
Constant Integer SQLDMOSvc_Running　 =1//已经启动
Constant Integer SQLDMOSvc_Paused  =2//sql server(WINDOWS平台上强大的数据库平台)为暂停状态
Constant Integer SQLDMOSvc_Stopped　 =3//sql server(WINDOWS平台上强大的数据库平台)为停止状态
Constant Integer SQLDMOSvc_Starting  =4//SQLSERVER正在启动(关闭-->启动)
Constant Integer SQLDMOSvc_Stopping  =5//SQLSERVER正在关闭
Constant integer SQLDMOSvc_Continuing=6//SQLSERVER正在启动(暂停-->启动)
Constant Integer SQLDMOSvc_Pausing　 =7//SQLSERVER正在暂停(启动-->暂停)

ls_ServerName='218.71.42.229'
ls_UserName='sa'
ls_password=''

IF ll_status = 0 THEN　　  //连接成功
  PBObject.name = ls_servername
  PBObject.logintimeout=10
  PBObject.LoginSecure = True　 //以NT方式连接
  //PBObject.LoginSecure = false　 //以sql server(WINDOWS平台上强大的数据库平台)方式连接
  IF isNull(PBObject) Then Return
  Try
   li_return = PBObject.Status
　  Catch(RunTimeError rte)
   Messagebox("提示","没有安装SQLServer",StopSign!)
　  End try
  Choose case li_return
　case 1　 //已经启动
　 st_Status.text=ls_ServerName+'已经启动SQLSERVER服务器'
　 //PBObject.stop()//停止SQLSERVER
　case 2　 //sql server(WINDOWS平台上强大的数据库平台)为暂停状态
　 st_status.text = '启动' + ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) ...(暂停-->启动)'
　 　PBObject.Continue()
　case 3  //sql server(WINDOWS平台上强大的数据库平台)为停止状态
　 st_status.text = '启动'+ ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) ...(停止-->启动)'
     PBObject.Start(false,ls_servername,ls_username,ls_password)//启动sql server(WINDOWS平台上强大的数据库平台)
　case 4  //SQLSERVER正在启动(关闭-->启动)
　 st_status.text = ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) 正在启动（关闭-->启动）'
　 PBObject.start(false,'sa','')//停止SQLSERVER
　case 5  //SQLSERVER正在关闭
　 st_status.text = ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) 正在关闭'
　case 6  //SQLSERVER正在启动(暂停-->启动)
　 st_status.text = ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) 正在启动(暂停-->启动)'
　case 7 //SQLSERVER正在暂停(启动-->暂停)
　 st_status.text = ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) 正在暂停'
　case 0 //未知状态
　 st_status.text = '未知'+ls_servername + '上的sql server(WINDOWS平台上强大的数据库平台) 状态'
 End Choose
ELSE
　messagebox("系统提示","数据库连接失败！~n请检查输入的用户名和口令是否正确")
　return
end if
Destroy(PBObject)