1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Public Function TestservSQL() As Boolean
'vérification que SQLEXPRESS ou SQLServer est lancé
Dim servlist() As System.ServiceProcess.ServiceController = ServiceProcess.ServiceController.GetServices(My.Computer.Name)
Dim servSQL As New System.ServiceProcess.ServiceController
Dim exist As Boolean
For Each service As ServiceProcess.ServiceController In servlist
If service.ServiceName.Contains("MSSQL$") Then
servSQL.InitializeLifetimeService()
Dim split() As String = service.ServiceName.Split("$")
'récupération du nom de l'instance
instance = split(1)
servSQL.ServiceName = service.ServiceName
servSQL.MachineName = My.Computer.Name
'on démarre le service s'il ne l'est pas
If Not servSQL.Status = ServiceProcess.ServiceControllerStatus.Running Then servSQL.Start()
servSQL.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running)
'le service existe
exist = True
End If
Next
'on décrypte le fichier de configuration
If Not exist Then
MessageBox.Show("Aucun serveur SQL n'est installé sur cette machine", "Serveur SQL", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf My.Settings.Connectionstring = "" Then
'on enregiste la chaine de connection
My.MySettings.Default("Connectionstring") = "Data Source=.\" + instance + ";Initial Catalog=Médiathèque;Integrated Security=True;User Instance=False"
My.Settings.Save()
End If
connectionstring = My.Settings.Connectionstring
'on encrypte le fichier de configuration
'encrypt()
Return exist
End Function |
