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