[转帖]如何判断是否安装了sqlserver,如何判断sqlserver是否启动,,如何启动sqlserver
<div style="FONT-SIZE: 13px;"><p>//====================================================================<br/>// 事件: w_login::login_sqlserver<br/>//--------------------------------------------------------------------<br/>// 描述: 检查SERVER是否启动,没有启动就启动它,,启动不了的话返回false<br/>//--------------------------------------------------------------------<br/>// 参数:<br/>// string server <br/>//--------------------------------------------------------------------<br/>// 返回值: boolean true 已经启动,false 没有启动<br/>//--------------------------------------------------------------------<br/>// 作者: 友情水 日期: 2006.07.24<br/>//--------------------------------------------------------------------<br/>// 修改历史: <br/>// <br/>//====================================================================</p><p><br/>Integer result<br/>oleobject loo_sqlserver<br/>loo_sqlserver = Create oleobject<br/>result = loo_sqlserver.ConnectToNewObject("SQLDMO.SQLServer")<br/>If result <> 0 Then<br/> // messagebox('提示','创建OLE对象时产生错误')<br/> Return False<br/>Else<br/> loo_sqlserver.Name = server<br/> If loo_sqlserver.status = 1 Then<br/> loo_sqlserver.DisconnectObject()<br/> Destroy loo_sqlserver<br/> Return True<br/> ElseIf loo_sqlserver.status = 3 Then //服务停止<br/> loo_sqlserver.Start(False,server,'sa','')<br/> ElseIf loo_sqlserver.status = 2 Then //服务暂停<br/> loo_sqlserver.Continue()<br/> End If<br/> //启动之后再次判断是否成功-延时等待SQLSERVER启动<br/> Sleep(6000)<br/> If loo_sqlserver.status = 2 Or loo_sqlserver.status = 3 Then<br/> // messagebox('错误','启动服务失败')<br/> Return False<br/> End If<br/>End If<br/>loo_sqlserver.DisconnectObject()<br/>Destroy loo_sqlserver<br/>Return True</p><p></p><p><br/>查看有哪些数据库可以先连接上master<br/>然后查看表<br/>sysdatabases 这个表里存的数据库的信息\</p><p></p><p></p><p>判断有没有安装sqlserver,可以直接查看一下注册表<br/> HKEY_LOCAL_MACHINE <br/> SOFTWARE\Microsoft\MSSQLSERVER\setup <br/> SQLPath <br/>看看键值存不存在<br/><br/></p></div>
页:
[1]