Impossible d'ajouter des éléments à un objet DictionaryRésolu

Question

J'ai un problème concernant l'objet Dictionary... voilà mon code... set dictListeParam= Server .CreateObject("Scripting.Dictionary") While NOT rsInfoIndexUtil.EOF Response.Write(rsInfoIndexUtil(0)&"-"&rsInfoIndexUtil(1)&" ") dictListeParam.Add rsInfoIndexUtil(0),rsInfoIndexUtil(1) rsInfoIndexUtil.moveNext Wend Mon rsInfoIndexUtil contient le résultat une requete "SELECT" qui renvoie 2 champs Maintenant, dès que je le lance dans mon navigateur voilà ce qu'il me met : ajoutseance-Ajout d'une activité à un enfant annulinscription-Annulation d'un enfant à une activité Erreur d'exécution Microsoft VBScript error '800a01c9' Cette clé est déjà associée à un élément de cette collection. /GIMS/concept_indexutil.asp, line 15 Ma requete fonctionne bien pourtant l'ajout foire à mort! Pourtant, dès que j'essaye ceci : set dictListeParam =Server.CreateObject("Scripting.Dictionary") While NOT rsInfoIndexUtil.EOF Response.Write(rsInfoIndexUtil(0)&"-"&rsInfoIndexUtil(1)&" ") dictListeParam.Add rsInfoIndexUtil(0),rsInfoIndexUtil(1) dictListeParam.RemoveAll rsInfoIndexUtil.moveNext Wend Voilà ce que ça me donne : ajoutseance-Ajout d'une activité à un enfant annulinscription-Annulation d'un enfant à une activité inscription-Inscription d'un enfant modifpersonne-Modifier les données d'un enfant titrepage-Inscription à la Semaine de la Détente titretableau-Gestion des Enfants Et juste après ma page s'affiche correctement! C'est super bizarre! d'autant plus que je ne comprends vraiment pas pourquoi il ne veut pas ajouter la clé (qui est dékà existante selon lui)!!! Merci d'avance!

Chris_LaFouine · Accepted Answer

&#199;a y est je me suis autor&#233;pondu...
Dans un premier temps je me suis dit que la cl&#233; de "annulinscription" &#233;tait trop longue, alors, je me suis fait un compteur que j'ai nomm&#233; "i" et j'ai mis les cl&#233;s suivantes :  
   "coilludepoildejackpoulettedechiendepecheempaill&#233;"&i
et finalement l'ajout fonctionnait, donc &#231;a venait pas de la taille...

C'est alors que j'ai trouv&#233; la solution, voila comment il a fallu faire :
set dictListeParam=Server.CreateObject("Scripting.Dictionary")
While NOT rsInfoIndexUtil.EOF
      dictListeParam.Add cStr(rsInfoIndexUtil(0)),cStr(rsInfoIndexUtil(1) )
      rsInfoIndexUtil.moveNext 
Wend

Logique nan Et oui, j'ai d&#251; convertir une chaine de caract&#232;re en chaine de caract&#232;re! &#231;a c'est m&#233;ga logique! C'est normal, moi j'ajoutais une chaine de caract&#232;re et &#231;a fonctionnait pas, alors qu'en fait c'est une chaine de caract&#232;re qu'il attend...

Bref, si vous avez des probl&#232;mes dans ce style, essayez des trucs cons, &#231;a fonctionne des fois!

jesusonline · Answer

je connais pas vbscript, mais 

cStr(rsInfoIndexUtil(0)) 

Pour
moi, ca met en string l'element 0 de l'array rsinfo... apres je sais
pas comment celui ci est d&#233;clar&#233;, mais il faut que rsinfo... soit
d&#233;clar&#233; en tant qu'array de string, et non pas comme simple array
(d'object) 



mais le principal c'est que tu ai trouv&#233; une r&#233;solution ;)


<hr>
Cyril - MCP ASP.net
Webmaster de : Hoshimi.CodeS-SourceS.fr

Chris_LaFouine · Answer

Ce que tu appelles un tableau, c'est en fait un recordset, et la requete associ&#233;e renvoie 2 champs qui sont du type VARCHAR donc des String!

D'ailleurs, je n'arrive pas &#224; d&#233;clarer mes variables comme &#231;a :
   Dim strSQL As String

D&#232;s que je lance une page qui contient le type d'objet, &#231;a plante, m&#234;me en mettant Option Explicit!

Du coup, je ne fais pas de d&#233;clarations!

Impossible d'ajouter des éléments à un objet Dictionary

3 réponses

Votre réponse

Discussions similaires