Bonjour,
j'utilise une BDD SQL.
Je crée mon connectionstring dynamiquement, puis je le met dans mes paramètres, et juste après, je le met dans une variable.
Mais quand je regarde dans le .config du programme, rien n'est enregistré...
voilà mon code:
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
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
Partager