Affectation de valeurs appSettings à une chaîne

Question

Je reçois une erreur. J'essaie de me connecter à SQL SERVER avec ce appSettings. Mais ce fragment de code donne une erreur.

Avertissement 6 'AppSettings de propriété ReadOnly Public Shared Comme System.Collections.Specialized.NameValueCollection' est obsolète: 'Cette méthode est obsolète, elle a été remplacée par System.Configuration! System.Configuration.ConfigurationManager.AppSettings'.

`

Public Class clsDL 

    'Fields - Data 
    Private adp As SqlDataAdapter 
    Private cmd As SqlCommand 
    Private Cn As SqlConnection 
    Private Shared db As clsDL 
    Private dr As SqlDataReader 
    Private ds As DataSet 
    Private dt As DataTable 
    Private gUserPwdSeed As Object = 10 
    Private intIndex As Integer 
    Private m_trans As SqlTransaction 
    Private objConSettings As ConfigurationSettings 
    Private strCnString As String 
    Private strDatabase As String 
    Private strPwd As String 
    Private strServer As String 
    Private strUID As String 


    Private Sub Connect() 
     Try 
      Me.strServer = ConfigurationSettings.AppSettings("Server") 
      Me.strDatabase = ConfigurationSettings.AppSettings("Database") 
      Me.strUID = ConfigurationSettings.AppSettings("UID") 

    End Sub` 

Answer 1

Utilisez la suggestion dans l'avertissement.

Private Sub Connect() 
    Try 
     Me.strServer = System.Configuration.ConfigurationManager.AppSettings("Server") 
     Me.strDatabase = System.Configuration.ConfigurationManager.AppSettings("Database") 
     Me.strUID = System.Configuration.ConfigurationManager.AppSettings("UID") 

End Sub` 

Nous avons pris cette approche simple de notre ancienne base de code tout en convertissant plutôt que de la réécriture et il a bien fonctionné.