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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5