Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Configuration
- Public Class AppSettings
- Private config As Configuration
- Public Sub AppSetting()
- config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
- End Sub
- Public Function GetConnectionString(ByVal key As String) As String
- Return config.ConnectionStrings.ConnectionStrings(key).ConnectionString
- End Function
- Public Sub SaveConnectionString(ByVal key As String, ByVal value As String)
- config.ConnectionStrings(key).ConnectionString = value
- config.ConnectionStrings(key).ProviderName = "MySql.Data.MySqlClient"
- config.Save(configurationSaveMode.Modified)
- End Sub
- End Class
Add Comment
Please, Sign In to add comment