Problème de remplissage d'une collection d'objet ... a l'aide!

Question

Bonjour a tous, voici mon probl&#232;me: 
J'ai une collection: 

            Dim TabUtils As Collection 

Dans cette collection je souhaite stocker des objets de type "Personnel" qui provienne d'une classe du m&#234;me nom. 
Dans la logique de mon programme je doit tout d'abord ressortir par une requ&#234;te la totalit&#233; du personnel et ensuite les stocker dans la collection. 
Jusqu'a la tout va bien ... 
J'ai cr&#233;er une boucle dans laquelle je recupere les resultat de ma requete champs par champs pour les mettre dans mon objet provisoire. 
Le probl&#232;me intervient a la ligne: 

            TabUtils.Add UserProv, str2 

A chaque fois que je rajoute un objet dans la collection, les autre qui y sont deja rentr&#233; prenne sa valeur 
du type: 
Item1=UserProv 
Item2=UserProv=Item1 
Item3=UserProv=Item1=Item2 
ect... 
Merci par avance pour ce qui voudront bien me proposer quelques suggestions afin de pouvoir remplir correctement ma collection

Ps: je suis un d&#233;butant VB 

Voici le code "complet": 

Private Sub ChargerUtils() 
    'D&#233;claration des variables locales 
    Dim UserProv As New Personnel 
    Dim i As Variant 
    Dim str As Variant 
    Dim str2 As Variant 
    
    'Instanciation de la connexion et du Recordset 
    Set con = New Connection 
    Set Rec = New Recordset 
    
    
    Set TabUtils = New Collection 
    
   'd&#233;finition du pilote de connexion 
    con.Provider = "Microsoft.Jet.Oledb.4.0" 
    
    'renseignement de la base &#224; laquelle on va se connecter 
    con.ConnectionString = "D:\DataBase.mdb" 
    
    'Ouverture de la connexion 
    con.Open 

    i = 1 
    'execution de la requete 
    Rec.Open "SELECT * FROM Personnel", con, adOpenDynamic, adLockOptimistic 'requete ok

    
    'Remplissage de la collection tant que le Recordset n'est pas au dernier champs 
    Do While Rec.EOF = False 
    str = "key" 
    str2 = str & i 
    On Error GoTo erreur 
       With UserProv 
            .Nom = Rec.Fields("Nom") 
            .Prenom = Rec.Fields("Pr&#233;nom") 
            .PASSWORD = Rec.Fields("Password") 
            .G1 = Rec.Fields("G1") 
            .G2 = Rec.Fields("G2") 
            .G3 = Rec.Fields("G3") 
            .G4 = Rec.Fields("G4") 
            .G5 = Rec.Fields("G5") 
            .DROITS = Rec.Fields("Droits") 
        End With 
        
        'D&#233;placement du curseur vers le prochain enregistrement 
        Rec.MoveNext 
        
        'Ajout de l'objet Personnel courant dans la collection 
        TabUtils.Add UserProv, str2  <- probl&#232;me
        i = i + 1 
    Loop 
    
    'Fermeture des variables de connexion et Recordset 
    Rec.Close 
    con.Close 
    Exit Sub 
erreur: 
        MsgBox Err.Description 
End Sub

crenaud76 · Answer

En tete de ta boucle, fait un "Set UserProv = New Personnel"
et déclare UserProv sans l'instancier par "Dim UserProv As Personnel"
Le but étant de créer une nouvelle instance de UserProv à chaque tour de boucle.

CR

crenaud76 · Answer

Au passage, je ne vois pas l'utilit&#233; de passer par une var str pour construire ta cl&#233; d'item !

Christophe R

katsankat · Answer

Salut les amis :)

L' argument key doit &#234;tre une expression de cha&#238;ne. Key est facultatif
mais "un identifiant indiquant une cha&#238;ne de cl&#233; susceptible d'&#234;tre
utilis&#233;e &#224; la place de l' index de position pour acc&#233;der &#224; un membre de
la collection". Si pas string, provoque une erreur.

Poolky · Answer

Merci beaucoup crenaud76, je me doutais
qu'il y avait un probleme avec mon instance d'objet mais comme tu peux
le voir &#231;a ne m'a pas emp&#233;cher de bloquer sur le probl&#232;me.

Encore merci pour votre contribution

Problème de remplissage d'une collection d'objet ... a l'aide!

4 réponses

Discussions similaires