Αρχικά, πας στα Application Settings και ορίζεις το connection string.
Μετά μέσα στον κώδικα, κάνεις κάτι σαν το παρακάτω:
Sub SetConnectionString()
Dim name As String = "MyAppName.My.MySettings.XYZConnectionString"
Dim connectionStringSettingsItem As ConnectionStringSettings
connectionStringSettingsItem = ApplicationConfiguration.ConnectionStrings.ConnectionStrings.Item(name)
Dim newConnectionString As String = GetConnectionStringFromUI()
If connectionStringSettingsItem Is Nothing Then
connectionStringSettingsItem = New ConnectionStringSettings(name, newConnectionString)
ApplicationConfiguration.ConnectionStrings.ConnectionStrings.Add(connectionStringSettingsItem)
Else
connectionStringSettingsItem.ConnectionString = newConnectionString
End If
End Sub
Αυτή η ρουτίνα μπορεί να τρέξει την πρώτη φορά ή όταν ο χρήστης θέλει να αλλάξει το connection string. Χρειάζεται να κατασκευάσεις το GetConnectionStringFromUI function όπου θα παίρνεις από μια φόρμα όλες τις πιθανές ρυθμίσεις και θα κάνεις construct το connection string. Φαντάσου ότι αυτή η φόρμα θα είναι κάπως σαν κι αυτές που κάνεις ένα νέο connection στο Visual Studio.
Vir prudens non contra ventum mingit