PB判断SQLSERVER2000的状态
2024-07-21 02:09:56
供稿：网友
，欢迎访问网页设计爱好者web开发。
//判断sql server是否已经启动，如果没有启动则做相应处理
st_status.text='判断sql server是否已经启动 ...'
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为暂停状态
constant integer sqldmosvc_stopped =3//sql server为停止状态
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方式连接
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为暂停状态
st_status.text = '启动' + ls_servername + '上的sql server ...(暂停-->启动)'
pbobject.continue()
case 3 //sql server为停止状态
st_status.text = '启动'+ ls_servername + '上的sql server ...(停止-->启动)'
pbobject.start(false,ls_servername,ls_username,ls_password)//启动sql server
case 4 //sqlserver正在启动(关闭-->启动)
st_status.text = ls_servername + '上的sql server 正在启动（关闭-->启动）'
pbobject.start(false,'sa','')//停止sqlserver
case 5 //sqlserver正在关闭
st_status.text = ls_servername + '上的sql server 正在关闭'
case 6 //sqlserver正在启动(暂停-->启动)
st_status.text = ls_servername + '上的sql server 正在启动(暂停-->启动)'
case 7 //sqlserver正在暂停(启动-->暂停)
st_status.text = ls_servername + '上的sql server 正在暂停'
case 0 //未知状态
st_status.text = '未知'+ls_servername + '上的sql server 状态'
end choose
else
messagebox("系统提示","数据库连接失败！~n请检查输入的用户名和口令是否正确")
return
end if
destroy(pbobject)
