Overblog
Editer l'article Suivre ce blog Administration + Créer mon blog
13 août 2010 5 13 /08 /août /2010 10:05

Avant de manipuler les données dans votre application vous devez vous assurer que le service de base de données SQL Server est bien installé sur l’ordinateur et qu’il est démarré.

 

Le code suivant permet de réaliser cette vérification :

 

 

 Public NotInheritable Class SQLServer 
 
 Public Sub New() 
 End Sub 
 
 Public Shared Sub StartService() 
 
On vérifie que le service existe 
 If IsServiceExist() Then 
 Dim controler As New ServiceController 
 
 controler.MachineName = "." 
 controler.ServiceName = "MSSQL$SQLEXPRESS" 
 
 Try 
 Select Case controler.Status 
 
 Case ServiceControllerStatus.Running 
 ‘ le service est démarré nous n’avons rien à faire 
 
 Case ServiceControllerStatus.Stopped 
 
 ‘ le service est arrêté nous allons tenter de le redémarrer 
 controler.Start() 
 controler.WaitForStatus(ServiceControllerStatus.Running) 
 Case ServiceControllerStatus.Paused 
 
 ‘ le service est en pause nous allons tenter de le relancer 
 controler.Continue() 
 controler.WaitForStatus(ServiceControllerStatus.Running) 
 End Select 
 Catch ex As Exception 
 
 ‘ en cas d’échec du démarrage du service on ferme l’application 
 MsgBox("Une erreur c'est produite lors du démarrage du service de base de données SQL Server (SQLEXPRESS). Vérifiez que SQL Server 2008 Express est bien installé sur votre ordinateur et que le service SQL Server (SQLEXPRESS) est bien démarré. L'application va se fermer.", MsgBoxStyle.Critical) 
 My.Application.Shutdown() 
 End Try 
 Else 
 
 ‘ si le service n’existe pas on ferme l’application 
 MsgBox("Le service de base de données SQL Server (SQLEXPRESS) n'est pas installé sur votre ordinateur. Veuillez réinstaller l'application.", MsgBoxStyle.Critical) 
 
 My.Application.Shutdown() 
 End If 
 End Sub 
 
 
 
 ‘ cette fonction retourne True si le service SQL Server (SQLEXPRESS) existe 
 
 Public Shared Function IsServiceExist() As Boolean 
 For Each service As ServiceController In ServiceController.GetServices 
 If service.ServiceName = "MSSQL$SQLEXPRESS" Then 
 Return True 
 End If 
 Next 
 Return False 
 End Function 
 
 
 End Class 
 

 

 

Vous n’avez plus qu’à appeler SQLServer.StartService au démarrage de votre application.

Partager cet article
Repost0

commentaires

M
Almost all the working folks are able to a maid and will get an important maid for at a minimum two or three days in that week. Ages gone by we put in with an important mindset that aquiring a maid is known as a luxury reserved limited to the full, and convinced that a house maid was only regarded a black colored person/woman serving size a the white kind of woman's family require a classy suburb.
Répondre
H
Regular cleaning from the upholstery will help you in removing the actual bacteria and also the microorganisms in the cover and allow it to be a secure and healthy spot to sit. These days, the eco-friendly soap solutions and also the hybrid machines available for sale have prolonged the horizon for that users to wash their upholstery immediately.
Répondre