καλημέρα,
για να καταλάβετε, όταν η εφαρμογή θα εκκινήση για πρώτη φορά ανοίγει μια φόρμα που ο χρήστης θα πρεπει να δώσει κάποιες πληροφορίες,
όπως όνομα βάσης δεδομένω,Ip διεύθυνση του server,username και password για την βάση δεδομένων.
ο παρακάτω κώδικας διαβάζει τις ρυθμίσεις
ConfigurationSettings.AppSettings(key)
και εδώ τις γράφω στο αρχείο
Dim doc As XmlDocument = loadConfigDocument()
Dim node As XmlNode = doc.SelectSingleNode("//appSettings")
If node Is Nothing Then
Throw New InvalidOperationException("Δεν βρέθηκε η επιλογή")
End If
Try
Dim elem As XmlElement = DirectCast(node.SelectSingleNode(String.Format("//add[@key='{0}']", key)), XmlElement)
If elem IsNot Nothing Then
elem.SetAttribute("value", value)
Else
elem = doc.CreateElement(
"add")
elem.SetAttribute(
"key", key)
elem.SetAttribute(
"value", value)
node.AppendChild(elem)
End If
doc.Save(getConfigFilePath())
Catch exep As Exception
MsgBox(exep.Message)
End Try
ευχαριστώ εκ των προτέρων...