Discussion :

[spaiku]

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 :

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

- 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
Dim toto as New Commande
toto.Initialiser "n° de commande quelconque"
debug.print toto.Proprietes(1).Name

- 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
For each fld in rs.Fields
      Proprietes.Add fld.Value, fld.Name
Next fld

- J'ai maintenant l'erreur d'exécution 424 (objet requis) sur le debug.print

Pouquoi tant de haine ?

[psykodumarteau]

Bonjour,

As-tu vérifier que ta boucle for each parcours bien les différents champs de ton recordset?

Cordialement

[spaiku]

Bonjour,

merci pour la réponse.

Oui, la collection est correctement renseignée : le code suivant fonctionne pour récupérer la valeur de la propriété :

Code :

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

debug.print toto.Proprietes(1)

Celui-ci fonctionne aussi :

Code :

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

debug.print toto.Proprietes("maProp")

C'est donc spécifiquement l'accès à la clé de l'élément de collection qui pose problème

[Pierre Fauconnier]

Bonjour

J'ai testé ton code. J'ai, évidemment, le même problème. En regardant les valeurs espions, je vois que lorsque l'on utilise rs!..., on passe un objet à la collection, alors que lorsque l'on utilise fld.value et fld.name, on passe une variable...

Si pas de solution début d'après-midi, je chercherai une solution

[psykodumarteau]

Re,

Avant de vérifier si ta collection marche bien, Vérifie que ton "for each fld in rs.fields" fonctionnement correctement. A mon avis le probleme ne vient pas la collection puisse que tu réussis à la renseigner manuellement.

Pour tester ta boucle tu peu faire un :

Code :

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

1
2
3
4
 
For each fld in rs.Fields
      MsgBox fld.Value & " / " & fld.Name
Next fld

As-tu bien déclarer Fld comme un field?

Cordialement

[spaiku]

Merci pour vos réponses.

- Psyko : la boucle qui parcourt le recordset fonctionne comme il faut. J'arrive à renseigner la valeurs des propriétés et à y accéder.

- Pierre : je pense que vous avez mis le doigt sur le coeur du problème. Je suis en train de travailler sur une solution de contournement qui me semble du coup être la bonne : créer un autre module de classe Propriete qui me permettra d'ajouter des objets à la collection tout en conservant ma boucle For Each... Next. Ce qui me permettra notamment de pouvoir modifier la structure des tables sans avoir à toucher au code des modules.

Merci encore à vous deux pour votre aide.