shell("net stop mssqlserver")

解决方案 »

  1.   

    --起
    shell("net start mssqlserver")
    --关
    shell("net stop mssqlserver")
      

  2.   

    执行操作系统命令
    net start mssqlserver
    net stop mssqlserver
      

  3.   

    再问 A机如何控制B机上的SQL服务?
    1.只知道B机上的SQL服务名称
    2.只知道B机的IP地址,不知道B机上的SQL服务名称
    分别这两种情况下如何控制。
      

  4.   

    'VB中的例子'*************************************************************************
    '**函 数 名:f_Get_ServerStatus
    '**输    入: sServerName   要查看状态的SQL服务器名
    '**        : sUser         登陆的用户
    '**        : sPassword     登陆密码
    '**输    出:无
    '**功能描述:得到SQL服务器的状态
    '**
    '**调用模块:'引用: Microsoft SQLDMO Object Library
    '**作    者: 邹建
    '**日    期: 2003年11月12日
    Function f_Get_ServerStatus(Optional ByVal sServerName$ = "", Optional ByVal sUser$ = "", Optional ByVal sPassword$ = "")
        Dim iSQLServer As SQLDMO.SQLServer
        Dim iRe$
        
        On Error GoTo lb_Err
        Set iSQLServer = New SQLDMO.SQLServer
        With iSQLServer
            If sUser = "" Then
                .LoginSecure = True
                .Connect sServerName
            Else
                .Connect sServerName, sUser, sPassword
            End If
            Select Case .Status
                Case SQLDMOSvc_Continuing
                    iRe = "正在连接"
                Case SQLDMOSvc_Paused
                    iRe = "暂停"
                Case SQLDMOSvc_Pausing
                    iRe = "正在暂停"
                Case SQLDMOSvc_Running
                    iRe = "运行"
                Case SQLDMOSvc_Starting
                    iRe = "正在启动"
                Case SQLDMOSvc_Stopped
                    iRe = "停止"
                Case SQLDMOSvc_Stopping
                    iRe = "正在停止"
                Case SQLDMOSvc_Unknown
                    iRe = "未知"
            End Select
            .DisConnect
        End With
        
        GoTo lb_Exit
        
    lb_Err:
        MsgBox "错误:" & Error, 48
        iRe = "错误"
    lb_Exit:
        If Not (iSQLServer Is Nothing) Then Set iSQLServer = Nothing
        f_Get_ServerStatus = iRe
    End Function
      

  5.   

    '*************************************************************************
    '**函 数 名:s_Start_Server
    '**输    入: sServerName   要启动的SQL服务器名
    '**        : sUser         登陆的用户
    '**        : sPassword     登陆密码
    '**输    出:无
    '**功能描述:启动SQL服务
    '**
    '**调用模块:'引用: Microsoft SQLDMO Object Library
    '**作    者: 邹建
    '**日    期: 2003年11月12日
    '*************************************************************************
    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, 48
        
    lb_Exit:
        If Not (iSQLServer Is Nothing) Then Set iSQLServer = Nothing
    End Sub
      

  6.   

    还需要知道B机的密码
    如果知道B机的某个有权项控制SQL服务的帐号和密码。
    命令该如何写。