whats wrong with this code

[muddasirmunir]

i want to stop and play server server 2000 using vb6.
for this i got one function on internet which is

 Option Explicit 
Public Enum ServiceState
    et_Stop
    et_Pause
    et_Start
End Enum
 
 

 
Public Function ToggleSQLService(ServerName As String, _
    State As ServiceState, UserID As String, _
    Password As String) As Boolean
'*************************************
'PURPOSE:     Start, Stop, or Pause SQL Server
'PARAMETERS:    ServerName: Name of SQLServer
'             State: Member of ServiceState Enum 
'                     (see declarations)
'             UserID: LoginID for SQL Server
'             Password: Password for SQL Server
'
'RETURNS:     True if successful, false otherwise
'REQUIRES:     Reference to Microsoft SQLDMO object library
'EXAMPLE:     ToggleSQLService "MyServer", et_Stop, -
'                 "sa", "myPassword"
'******************************************
Dim oSQLServer As New SQLDMO.SQLServer
If State < et_Stop Or State > et_Start Then Exit Function
On Error GoTo ErrorHandler
With oSQLServer
    .Start False, ServerName, UserID, Password
Select Case State
    Case et_Stop
        .Stop
    Case et_Pause
        .Pause
    Case et_Start
        .Continue
    End Select
End With
ToggleSQLService = True
ErrorHandler:
Set oSQLServer = Nothing
End Function
 

i write this function on my programe then on a clikevent of a button i write this to call a functio

 
ToggleSQLService "MyServer", et_Stop, "sa", ""
 
 

i had a blank passwor then i run my project and click the button but
nothing happen my server is still running
so what wrong with it

[QVeen72]

Hi,

Did you change "MyServer" to your actual Server name..?
and Instead of sa, Pass Win's "Administra tor" and Password..

REgards
Veena

[muddasirmunir]

yes i change my server name
regarding password


i did not assing any passwrod to my windows and
about sqlserver my username is "sa" and blank password

when i copy the code and click to call the function nothing happen and my server is still showing running just like that picture

Hi,

Did you change "MyServer" to your actual Server name..?
and Instead of sa, Pass Win's "Administra tor" and Password..

REgards
Veena