Torna al Thread
'Dichiaro la variabile di tipo collection
Dim oColl As New System.Collections.Generic.Dictionary(Of String, String)
'Preparo la query che viene data in pasto al command. Successivamente ciclo il datareader associato e vado a valorizzare la collection
cQuerySel = "Select * From Impostazione"
cn.Open()
Dim cmd As New OleDbCommand(cQuerySel, cn)
drImpostazione = cmd.ExecuteReader()
drImpostazione.Read()
If drImpostazione.HasRows() Then
While drImpostazione.Read()
oColl.Add(drImpostazione.Item("Cd_Impostazione"), drImpostazione.Item("Valore1"))
End While
End If
drImpostazione.Close()
cn.Close()
'Imposto i valori nei rispettivi oggetti
If Not oColl Is Nothing Then
If oColl.ContainsKey("EMAIL") = True Then
txtEmail.Text = oColl("EMAIL")
End If