Discussion :

[gibea00]

Bonjour !

Je met le résultat d'une requête dans une collection. Pour chacun des éléments je lui assigne une clé.

Comment fait-on pour rechercher via la clé ? Es-ce possible ?

Voici ce que je fais. Je rempli ma collection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim strSql As String
 
    strSql = "SELECT id_ville, nom " + _
             "FROM   vue_ac_ville " + _
             "WHERE id_ville <> 1 "
 
    Set oraVilleATraiter = odbDatabase.CreateDynaset(strSql, 0&)
 
    Do While Not oraVilleATraiter.EOF
        gl_ColVilleATraiter.Add oraVilleATraiter.Fields("id_ville").Value, oraVilleATraiter.Fields("id_ville").Value
 
        oraVilleATraiter.MoveNext
    Loop

Si je comprends bien, selon ma requête je me retrouverais avec ce genre de collection

Item / clé
2 / 2
3 / 3
4 / 4
.
.
.

Je fais ce genre de recherche pour voir si je retrouve le id_ville 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim varVilleTrouve As Variant
 
    varVilleTrouve = gl_ColVilleATraiter.Item(1)

il me retourne, le premier item soit 2. Es-ce normale ? Moi je voudrais qu'il me retourne rien étant donné que le id_ville ne se trouve pas dans la collection.

Merci pour votre aide.

[ProgElecT]

Je fais ce genre de recherche pour voir si je retrouve le id_ville 1

Là il est renvoyé l'item d'indice N° 1

Pourquoi ne pas rechercher plutôt le nom de la ville dans la requette d'ouverture du Dynaset ? (assurement plus rapide qu'une recherche dans une liste, un tableau ou une colletion)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim strSql As String
    Dim NomVilleAtraiter As String
    NomVilleAtraiter = "LAVILLE" 'pour l'exemple
    strSql = "SELECT id_ville, nom " & _
             "FROM  vue_ac_ville " & _
             "WHERE nom = " & NomVilleAtraiter
 
    Set oraVilleATraiter = odbDatabase.CreateDynaset(strSql, 0&)
 
    If Not oraVilleATraiter.EOF Then
     'trouvé, donc traiter
     Else
     'pas trouvé, donc ne pas traiter
    End If

Sinon faire F1 sur Dim gl_ColVilleATraiter As Collection,

l'itération de l'ensemble de la collection est possible au moyen de l'instruction For Each ... Next.

Avec une condition If ... Then dans la boucle For Each ... Next