Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic, Enterprise
Expertise: Intermediate
Jun 25, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Pausing SQL Server

Pausing SQL Server prevents new users from logging in and gives you time to send a message to current users asking them to complete their work and log out before you stop the server. You can pause SQL Server using the Enterprise Manager or by creating your own program with this function which uses SQL-DMO objects. First, add a reference to sqldmo.rll in your VB project. This file can be found in \Binn\Resources\1033\sqldmo.rll under the SQL Server 7.0 directory. Now add this code and declaration to your form's code:

Private WithEvents oSqlServer As SQLDMO.SQLServer
Private Function PauseSqlServer(ByVal strServerName As String, strErrorMsg As String) As Boolean
Static boolFunctionExecuting As Boolean

    If Not boolFunctionExecuting Then
        BoolFunctionExecuting = True
        Set oSqlServer = New SQLServer
        With oSqlServer
            .Name = strServerName
            Do While .Status <> SQLDMOSvc_Paused
                Select Case .Status
                    Case SQLDMOSvc_Running
                    Case SQLDMOSvc_Pausing
                    Case SQLDMOSvc_Unknown
                        strErrorMsg = "SqlServer in unknown state"
                        Exit Do
                End Select
            If .Status = SQLDMOSvc_Paused Then
                PauseSqlServer = True
                PauseSqlServer = False
            End If
        End With
        Set oSqlServer = Nothing
        BoolFunctionExecuting = False
    End If
End Function
KulBhushan Sharma
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date