Discussion :

[spamitovic]

Bonsoir,

J'aimerai pouvoir démarrer le service MSSQL$MYINSTANCE à l'aide d'un code que j'ai élaboré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim srv as new ServiceController
srv.ServiceName = "MSSQL$MYINSTANCE"
srv.MachineName = "."
srv.Start()

Quand je test cela ne marche pas et je reçois l'erreur suivante :

Cannot open MSSQL$MYINSTANCE service on computer '.'.

Pkoi ?

[Pol63]

ca ne fonctionne pas comme ca

si tu veux démarrer un service existant il faut prendre l'instance existante, et non pas créer une nouvelle

sur servicecontroller il y a une fonction qui donne les services installés

[spamitovic]

C cette instance qui existe sur mon PC et j'ai fais en sorte qu'il cherche l'instance installée sur la machine et de tester si le service est installé...

Lorsque le service est démarré automatiquement il me renvoi un message disant qu'il est bien démarré... mais quand je l'arrête et je laisse mon programme démarré le service concerné, ça plante

[Elwe31]

ça fonctionne tres bien avec ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private ServiceNameController As System.ServiceProcess.ServiceController
Private ServiceName As String = "Nom du service"
....
ServiceNameController = New System.ServiceProcess.ServiceController(ServiceName)
......
Private Sub GetServiceStatus()
        Try
            'rafraichi le statut
            ServiceNameController.Refresh()
            'test le statut
            Select Case ServiceNameController.Status
                Case ServiceProcess.ServiceControllerStatus.Running
                    lblStatut.Text = "Running...."
                Case ServiceProcess.ServiceControllerStatus.Stopped
                    lblStatut.Text = "Stopped."
                Case Else
                     lblStatut.Text = ""
            End Select

[spamitovic]

Nn j'essai de le démarrer pas de tester s'il est démarré parce que de ce côté j'arrive à le faire même avec mon code.

[Elwe31]

Et ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  Dim CopyToAs400Controller As System.ServiceProcess.ServiceController
  CopyToAs400Controller = New System.ServiceProcess.ServiceController(ServiceName)
 Try
            If CopyToAs400Controller.Status = ServiceProcess.ServiceControllerStatus.Stopped Then
                CopyToAs400Controller.Start()
            End If
            GetServiceStatus()
            Application.DoEvents()
        Catch obEx As Exception
            MessageBox.Show(obEx.Message)
        End Try