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)
