vb中如何判定sqlserver服务是否启动

Question

vb中如何判定sqlserver服务是否启动，若未启动，如何启动之。

Answer 1

使用net start mssqlserver命令启动SQL Server服务

Answer 2

'引用: Microsoft SQLDMO Object Library
Sub s_Start_Server(Optional ByVal sServerName$ = "", Optional ByVal sUser$ = "", Optional ByVal sPassword$ = "")
    Dim iSQLServer As SQLDMO.SQLServer
    
    On Error GoTo lb_Err
    Set iSQLServer = New SQLDMO.SQLServer
    With iSQLServer
        If sUser = "" Then
            .LoginSecure = True
            .Start True, sServerName
        Else
            .Start True, sServerName, sUser, sPassword
        End If
        .Disconnect
    End With
    
    GoTo lb_Exit
    
lb_Err:
    MsgBox "错误:" & Error, vbCritical, App.Title
    
lb_Exit:
    If Not (iSQLServer Is Nothing) Then Set iSQLServer = Nothing
End Sub

Answer 3

在VB6中可以调用SQLDMO启动SQL SERVER

Answer 4

http://community.csdn.net/Expert/topic/2889/2889479.xml?temp=.4951746