kwangu

Overload resolution failed because no 'item' is accessible

Feb 9th, 2018
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Configuration
  2. Public Class AppSettings
  3.  
  4.     Private config As Configuration
  5.  
  6.     Public Sub AppSetting()
  7.         config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
  8.     End Sub
  9.  
  10.     Public Function GetConnectionString(ByVal key As String) As String
  11.         Return config.ConnectionStrings.ConnectionStrings(key).ConnectionString
  12.     End Function
  13.  
  14.     Public Sub SaveConnectionString(ByVal key As String, ByVal value As String)
  15.         config.ConnectionStrings(key).ConnectionString = value
  16.         config.ConnectionStrings(key).ProviderName = "MySql.Data.MySqlClient"
  17.         config.Save(configurationSaveMode.Modified)
  18.     End Sub
  19.  
  20. End Class
Add Comment
Please, Sign In to add comment