Moin,
zu meinem Problem: ich ziehe einen eindeutigen Wert aus der Datenbank und damit soll die Dictionary(String, String()) durchsucht werden und mir die 6 Werte nach einander ausgeben.
Die wiederrum für Excel-Zellen stehen und automatisch befüllt werden.
Danke im Vorraus schonmal ....
zu meinem Problem: ich ziehe einen eindeutigen Wert aus der Datenbank und damit soll die Dictionary(String, String()) durchsucht werden und mir die 6 Werte nach einander ausgeben.
Die wiederrum für Excel-Zellen stehen und automatisch befüllt werden.
VB.NET-Quellcode
- Private Shared dict As New Dictionary(Of String, String()) From {
- {"1C201", New String() {"B46", "D47", "E47", "F47", "E46", "F46"}},
- {"1C202", New String() {"B42", "D43", "E43", "F43", "E42", "F42"}}}
- If reader.HasRows Then
- Do While reader.Read()
- HRstring = reader.GetString(2)
- If dict.ContainsKey(HRstring) = True And x2 = 0 Then
- 'Der Name wird gefunden aber wie greife ich auf den Index zu wenn ich "B46" als String haben will damit ich alles automatisieren kann??
- shXL.Range("B46").Value = reader.GetString(0)
- shXL.Range("D47").Value = reader.GetString(1)
- If Not reader.IsDBNull(3) Then
- A_liste(i).betrieb = reader.GetString(3)
- shXL.Range("E47").Value = A_liste(i).betrieb
- End If
- If Not reader.IsDBNull(4) Then
- A_liste(i).dis = "dis"
- shXL.Range("F47").Value = A_liste(i).dis
- End If
- If Not reader.IsDBNull(5) Then
- A_liste(i).allg = "S"
- shXL.Range("E46").Value = A_liste(i).allg
- End If
- If Not reader.IsDBNull(6) Then
- A_liste(i).b = "B"
- shXL.Range("F46").Value = A_liste(i).b
- End If
- End If
Danke im Vorraus schonmal ....