Bonjour,
j'aimerais comprendre le phénomène suivant (sous VB6) :
- J'ai un module de classe Commande qui possède une collection Proprietes qui permet de stocker les valeurs retournées par un SELECT, et contenues dans un recordset rs.
- Je renseigne la collection Proprietes étape par étape dans la méthode Initialiser. Exemple :
- Puis au sein d'une autre fonction, j'exécute le code suivant, qui fonctionne parfaitement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Public Function Initialiser(p_NumCommande as Integer) as Boolean '... Proprietes.Add rs.fields("champ1"), "champ1" Proprietes.Add rs.fields("champ1"), "champ1" '... End Function- Ensuite, j'ai voulu renseigner la collection Proprietes dynamiquement (plus élégant) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim toto as New Commande toto.Initialiser "n° de commande quelconque" debug.print toto.Proprietes(1).Name
- J'ai maintenant l'erreur d'exécution 424 (objet requis) sur le debug.print
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For each fld in rs.Fields Proprietes.Add fld.Value, fld.Name Next fld
Pouquoi tant de haine ?![]()
Partager