Bonjour,

Je récupère des données d'une base Access et je souhaite les ranger dans un tableau de clef / valeur.
Lorsque j'ai une seule ligne de résultat, je range ça dans un

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim SQLoutputs As New System.Collections.Specialized.StringDictionary
Via le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
reader = command.ExecuteReader()
Dim count As Integer = 0
While reader.Read()
   For Each key In SQLinputs.Keys
      SQLoutputs(key) = reader(count)
      count = count + 1
   Next
   count = 0
End While
(J'ai aussi un tableau SQLinputs qui me définit les clefs à récupérer)

En revanche, lorsqu'il y a plusieurs lignes de résultats, comment déclarer proprement ma variable SQLoutputs ?
Peut-on et faut-il utiliser un ReDim Preserve à chaque nouveau résultat?

Je souhaiterais avoir un retour de la forme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
SQLoutputs = {0 => System.Collections.Specialized.StringDictionary
                    { 
                     "clef1" => "valeur1";
                     ...
                     "clefN" => "valeurN"
                    }
                     ...
              M => System.Collections.Specialized.StringDictionary
                    { 
                     "clef1" => "valeur1";
                     ...
                     "clefN" => "valeurN"
                    }
}
Merci