PB判断SQLSERVER2000的状态
来源:互联网 发布:mac充电器是什么 编辑:程序博客网 时间:2024/04/30 18:02
//判断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)
- PB判断SQLSERVER2000的状态
- SQLServer2000 判断对象是否存在的语句
- 判断灯的状态
- APP的状态判断
- WIFI的状态判断
- 判断登录的状态
- 网络状态的判断
- 网络状态的判断
- 网络状态的判断
- 网络状态的判断
- 网络状态的判断
- 判断网络的状态
- 网络状态的判断
- PB中如何判断数据窗口发生的改变
- 【PB】如何判断PBL中是否存在指定的对象
- 判断MediaPlayer的播放状态
- socket连接状态的判断
- socket连接状态的判断
- 2005年中国BBS社区100强
- 相爱者彼此可以做的100件事
- 使用frontpage下载整站
- 高学历的尴尬
- 音视频同步-时间戳
- PB判断SQLSERVER2000的状态
- 边界何在 -- 谈防火墙的防护趋势
- asp无组件文件上传,效率的关键
- 软件体系结构的概念
- 史上最经典的黑客
- When is a singleton not a singleton?
- C语言编程风格
- 经典C程序100例
- 这两天的我.