[Genius Live]

كود :

Public Sub updateConfigFile(ByVal con As String)

updating config file

كود :

Dim XmlDoc As New XmlDocument()

Loading the Config file

كود :

XmlDoc.Load(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
        For Each xElement As XmlElement In XmlDoc.DocumentElement
            If xElement.Name = "connectionStrings" Then
                'setting the coonection string
                xElement.FirstChild.Attributes(2).Value = con
            End If
        Next

writing the connection string in config file

كود :

XmlDoc.Save(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
    End Sub