MyException - 我的异常网
当前位置:我的异常网» PB » SQLDMO启动服务的有关问题

SQLDMO启动服务的有关问题

www.myexceptions.net  网友分享于:2015-08-26  浏览:32次
SQLDMO启动服务的问题
我对SQLDMO很不了解,不知道该怎么用。
写了下面一段代码,用来判断SQL Server 状态并做相应处理,运行有问题,请大虾指正,非常感谢:

long ll_status
oleobject lmss

lmss = create oleobject
lmss.connectToNewObject("SQLDMO.sqlserver")

//lmss.LoginTimeOut = 10 //执行到这里时报属性LoginTimeOut找不到
lmss.connect("192.168.252.32", "sa", "") //执行到这里时报方法connect找不到(见备注1)
ll_status = lmss.status
choose case ll_status
.........

备注1:
Error:Name not found calling external object function connect at line 10



------解决方案--------------------
regsvr32 sqldmo.dll即可显示成功注册
------解决方案--------------------
//判断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 SQLDMOS

VC_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 ...(暂停-->启动)'

BObject.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正在启动(暂停-->启动)

BObject.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)

文章评论

每天工作4小时的程序员
每天工作4小时的程序员
2013年中国软件开发者薪资调查报告
2013年中国软件开发者薪资调查报告
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
编程语言是女人
编程语言是女人
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
中美印日四国程序员比较
中美印日四国程序员比较
那些性感的让人尖叫的程序员
那些性感的让人尖叫的程序员
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
Java程序员必看电影
Java程序员必看电影
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
代码女神横空出世
代码女神横空出世
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
旅行,写作,编程
旅行,写作,编程
鲜为人知的编程真相
鲜为人知的编程真相
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
老程序员的下场
老程序员的下场
如何成为一名黑客
如何成为一名黑客
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
10个调试和排错的小建议
10个调试和排错的小建议
我的丈夫是个程序员
我的丈夫是个程序员
程序员的鄙视链
程序员的鄙视链
为什么程序员都是夜猫子
为什么程序员都是夜猫子
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
那些争议最大的编程观点
那些争议最大的编程观点
2013年美国开发者薪资调查报告
2013年美国开发者薪资调查报告
一个程序员的时间管理
一个程序员的时间管理
程序员必看的十大电影
程序员必看的十大电影
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员应该关注的一些事儿
程序员应该关注的一些事儿
 程序员的样子
程序员的样子
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
程序员都该阅读的书
程序员都该阅读的书
我是如何打败拖延症的
我是如何打败拖延症的
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
漫画:程序员的工作
漫画:程序员的工作
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有