IDC资讯中心
//判断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)
