Démarrage dde serveur SQL
Signaler
many89
many89
- Messages postés
- 8
- Date d'inscription
- dimanche 4 octobre 2009
- Statut
- Membre
- Dernière intervention
- 12 janvier 2012
many89
- Messages postés
- 8
- Date d'inscription
- dimanche 4 octobre 2009
- Statut
- Membre
- Dernière intervention
- 12 janvier 2012
A voir également:
- Servicecontroller vb.net
- Ebp serveur sql introuvable ✓ - Forum - SQL
- Visual Basic / VB.NET : Serveur sql dao (client web) - CodeS SourceS - Guide
- ASP / ASP.NET : Asp.net - module de requette pour bases de données sur serveur sql asp.net - - Guide
- ASP / ASP.NET : Connexion et requete un serveur sql - CodeS SourceS - Guide
- ASM : Masm32 dde simple exemple de conversation dde serveur client - CodeS SourceS - Guide
3 réponses
lolokun
- Messages postés
- 1241
- Date d'inscription
- mardi 10 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 août 2013
Bonjour,
oui, et avec quel code?
L'expérience, c'est une connerie par jour, mais jamais la même..
oui, et avec quel code?
L'expérience, c'est une connerie par jour, mais jamais la même..
many89
- Messages postés
- 8
- Date d'inscription
- dimanche 4 octobre 2009
- Statut
- Membre
- Dernière intervention
- 12 janvier 2012
J'ai essayé de faire plusieurs méthodes: voici un code parmi les codes que j'ai trouvé
Dim service As ServiceController = New ServiceController("MSSQLSERVER")
If ((service.Status.Equals(ServiceControllerStatus.Stopped)) Or (service.Status.Equals(ServiceControllerStatus.StopPending))) Then
service.Start()
MsgBox("Stop")
Else
service.Stop()
MsgBox("Start")
End If
Dim service As ServiceController = New ServiceController("MSSQLSERVER")
If ((service.Status.Equals(ServiceControllerStatus.Stopped)) Or (service.Status.Equals(ServiceControllerStatus.StopPending))) Then
service.Start()
MsgBox("Stop")
Else
service.Stop()
MsgBox("Start")
End If
many89
- Messages postés
- 8
- Date d'inscription
- dimanche 4 octobre 2009
- Statut
- Membre
- Dernière intervention
- 12 janvier 2012
Dim serviceName As String = "SQL Server (MSSQLSERVER)"
Dim sc As ServiceController = New ServiceController(serviceName)
sc.MachineName = "SE"
' make sure start mode is automatic
Dim path As String = "Win32_Service.Name='" & serviceName & "'"
Dim p As New ManagementPath(path)
Dim ManagementObj As New ManagementObject(p)
Dim parameters As Object() = New Object(0) {}
Dim value As String = "Automatic"
parameters(0) = value
ManagementObj.InvokeMethod("ChangeStartMode", parameters)
If sc.Status ServiceControllerStatus.Stopped Or sc.Status ServiceControllerStatus.Paused Then
MsgBox(serviceName + " is starting.")
sc.Start()
Else
MsgBox(serviceName + " is running.")
sc.Stop()
End If
Dim sc As ServiceController = New ServiceController(serviceName)
sc.MachineName = "SE"
' make sure start mode is automatic
Dim path As String = "Win32_Service.Name='" & serviceName & "'"
Dim p As New ManagementPath(path)
Dim ManagementObj As New ManagementObject(p)
Dim parameters As Object() = New Object(0) {}
Dim value As String = "Automatic"
parameters(0) = value
ManagementObj.InvokeMethod("ChangeStartMode", parameters)
If sc.Status ServiceControllerStatus.Stopped Or sc.Status ServiceControllerStatus.Paused Then
MsgBox(serviceName + " is starting.")
sc.Start()
Else
MsgBox(serviceName + " is running.")
sc.Stop()
End If