PB判断SQLSERVER2000的状态

王朝mssql·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

//判断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)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航