Problème de redimensionnement tableau à 2 dimensionsRésolu

Question

Bonjour,

Je n'arrive pas &#224; redimmensionner un tableau &#224; 2 dimensions. J'obtiens l'erreur suivante : Erreur d'ex&#233;cution Microsoft VBScript (0x800A0009)
Indice en dehors de la plage

Voil&#224; mon code:

redim batiment(50,2)
i=0
 Do While not objRecordset01.eof
   batiment(i,0)=objRecordset01("NAME0")
   batiment(i,1)=objRecordset01("ID0")
   objRecordset01.MoveNext
   i=i+1   
 loop
 ReDim Preserve batiment(i,2)

J'avais eu la m&#234;me erreur avec un tableau &#224; 1D, il fallait juste d&#233;clarer le tableau avec redim au lieu de dim .

Merci pour votre aide

cs_Nurgle · Accepted Answer

C'est mieux de se trimballer d'&#233;normes tableaux !!

La boucle en elle m&#234;me n'a rien de sp&#233;cial, mais c'est juste que tu
utilises ton objet recordset dedans, et c'est &#231;a qui r&#233;duit vachement
les performances.



Si 50 est vraiment trop grand, essaye de faire une approximation plus
proche de la valeur que pourrait avoir i. Et bien s&#251;r, si &#224; un moment
tu fais ajouter des enregistrement &#224; cette table, arrange toi pour
qu'il n'y ait jamais plus de 50 lignes, sinon : ERROR !! :p


Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

cs_Nurgle · Answer

tu obtiens une erreur au premier "Redim" ou au 2e "Redim" 



Met Dim batiment(50,2) au d&#233;but

(je pense pas que tu ais besoin du premier redim cette fois ci )


Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

fal91 · Answer

J'obtiens une erreur au 2&#232;me ReDim, j'avais d&#233;j&#224; &#233;ssay&#233; avec juste Dim au 1ier, j'ai retest&#233; l&#224;, mais ca ne marche pas 

Merci pour ton aide !

cs_Nurgle · Answer

tu peux obtenir le nombre d'enregistrement par la propri&#233;t&#233; objRecordSet01.RecordCount.

Donc tu peux d&#232;s le d&#233;but faire : Dim batiment(objRecordset01.RecordCount, 2)

comme &#231;a tu n'auras pas de redim &#224; faire 

(cette propri&#233;t&#233; n'est pas prise en charge par tous les types de BD malheureusement...)



Ah aussi : tu ne peux pas redimensionner un tableau en un tableau plus
petit tout en voulant pr&#233;server les donn&#233;es. Donc si &#224; la fin de ta
boucle, i < 50, &#231;a va planter.

Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

fal91 · Answer

&#231;a marche avec access en th&#233;orie ou pas ? Parce que l&#224; RecordCount me retourne -1. Ca aurait pu &#234;tre niquel sinon

cs_Nurgle · Answer

il te retourne -1, donc &#231;a marche pas 



Quelle est environ la valeur de i &#224; la fin de ta boucle ?

Si &#224; la fin i < 50, alors, tu auras des lignes vides dans ton tableau, mais c'est pas bien grave...donc &#231;a irait. 

Si i  > 50, alors il y aurait un moment dans ta boucle ou par
exemple i 53, o&#249; cette ligne ne fonctionnerais pas : batiment(1,2)
objRecordset01("ID0") car il est d&#233;clar&#233; comme batiment(50,2)



Sinon il faudrait faire une premi&#232;re boucle qui ne servirait &#224; qu'&#224;
trouver le nombre de ligne de ton recordset, puis cr&#233;er le tableau avec
directement le bon nombre de lignes, puis le remplir avec une 2e boucle
(celle que tu utilises actuellement). 

&#231;a c'est s&#251;r de marcher, mais c'est la solution la moins rapide...


Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

fal91 · Answer

Bah mon i est largement < &#224; 50, j'ai mis 50 pour pr&#233;voir large. Je vais finalement opter pour la m&#233;thode de barbare alors  avec une seconde boucle juste pour compter les &#233;l&#233;ments.
A ton avis, d'un point de vue optimisation, il te semblerait plus adapter de faire la 2nde boucle et d'avoir des tableaux pile &#224; la bonne taille, ou bien de se trimballer d'&#233;normes tableaux

Merci encore !

fal91 · Answer

Oki merci beaucoup pour la pr&#233;cision !
Je retourne me prendre la t&#234;te .

cs_FPatrick · Answer

Bonjour &#224; vous.

Pour le REDIM, il y une particularit&#233;; on ne peut pas redimensionner un tableau &#224; plusieurs dimensions sur les dimensions inf&#233;rieures. je m'explique : 

DIM TOTO(0,0)

REDIM TOTO(10,2)  OK
REDIM TOTO(10,10) OK
REDIM TOTO(11,10) ERREUR

On ne peut qu'augmenter la valeur sup&#233;rieur d'un tableau.

Pour ton cas, j'inverserai les valeurs; je ferais batiment(2,i) dont i peut &#234;tre redimensionnable (valeur supp&#233;rieur du tableau)
REDIM batiment(2,10), REDIM batiment(2,17) ,REDIM batiment(2,24) tout ca ok

J'esp&#232;re avoir &#233;t&#233; assez clair dans mes explications confuses.

Bonne journ&#233;e

fal91 · Answer

ok merci Patrick. Je regarde &#231;a d&#232;s que je peux. Autrement dit, il faudrait que je d&#233;clare mon tableau ainsi : Dim batiment(0,0), et que je le redimensionnes ainsi Redim Preserve batiment(2,i) ???

PS: j'ai une petite question de newbie, (0,0) lors de la d&#233;claration du tableau, c'est bien pour d&#233;clarer tableau sans taille pr&#233;difinie ???

cs_FPatrick · Answer

Pour la d&#233;claration sans taille:

dim toto()

si tu fais dim toto(0,0) , tu n'auras que la valeur toto(0,0) de disponible, autrement dit une variable.

tu peux faire

dim toto()

redim toto(2,1) et ....

Bonne journ&#233;e.

fal91 · Answer

Bah justement, j'avais eu un probl&#232;me avec la d&#233;claration sans taille dim toto(), je pensai que tu avais une autre solution .
Merci encore. Je regardes &#231;a d&#232;s demain.

fal91 · Answer

Bonjour,

Je viens d'essayer Patrick (Pas eu le temps avant grrrrrrrr), j'ai l'erreur suivante au redim : Tableau fixe ou temporairement verrouill&#233;.
Voil&#224; mon code

 dim objRecordset01
 set objRecordset01 = Server.CreateObject("ADODB.Recordset")
  objRecordSet01.activeConnection= "DRIVER={Microsoft Access Driver (*.mdb)}; 


DBQ=C:\Documents and Settings\All Users\Documents\bd2.mdb ;User ID='';Password='';"
 objRecordset01.source= "SELECT * FROM SITE0 WHERE TYPE0=1 AND PARENTSITE0="&ID&""
 objRecordset01.open
 Dim batiment(3,50)
 i=0
 Do While not objRecordset01.eof
   batiment(0,i)=objRecordset01("NAME0")
   batiment(1,i)=objRecordset01("ID0")
   objRecordset01.MoveNext
   i=i+1   
 loop
 REDIM PRESERVE batiment(3,i)
 set objRecordset01=nothing

Donc en gros, je d&#233;clare un tableau trop grand, je le remplis (pas compl&#232;tement), je compte le nombre d'&#233;l&#233;ments afin de pouvoir le redimensionner juste &#224; la bonne taille.

Je comprends vraiment pas 
Merci pour votre aide
Bonne journ&#233;e

cs_Nurgle · Answer

met le Redim batiment(3,i) dans la boucle !!

du genre :



Dim batiment(3,0)

 i=0

 Do While not objRecordset01.eof

   Redim Preserve batiment(3,i)

   batiment(0,i)=objRecordset01("NAME0")

   batiment(1,i)=objRecordset01("ID0")

   objRecordset01.MoveNext

   i=i+1    

 loop

 set objRecordset01=nothing



&#224; chaque boucle tu r&#233;-augmente la dimension du tableau...

j'ai pas v&#233;rifier mais &#231;a doit &#234;tre un truc dans ce genre l&#224; 

Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

fal91 · Answer

Merci Nurgle.
C'est vrai que c'est pas b&#234;te comme solution, mais malheuresement ca ne marche toujours pas grrrrrrrrr.

Type d'erreur :
Erreur d'ex&#233;cution Microsoft VBScript (0x800A000A)
Tableau fixe ou temporairement verrouill&#233;

cs_Nurgle · Answer

et si tu mes au d&#233;but :



Dim batiment() au lieu de Dim batiment(3,0) 

(dans le code que je t'ais donn&#233; dans mon pr&#233;c&#233;dent post )


Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

fal91 · Answer

Merci !!!!!!!! Ca marche enfin !!!!!!!!!!!! 
Bon maintenant au moins, je maitrise les tableaux en ASP 
Merci encore pour ton aide Nurgle !

fal91 · Answer

Merci !!!!!!!! Ca marche enfin !!!!!!!!!!!! 
Bon maintenant au moins, je maitrise les tableaux en ASP 
Merci encore pour ton aide Nurgle !

fal91 · Answer

Merci !!!!!!!! Ca marche enfin !!!!!!!!!!!! 
Bon maintenant au moins, je maitrise les tableaux en ASP 
Merci encore pour ton aide Nurgle !

Problème de redimensionnement tableau à 2 dimensions

19 réponses

Votre réponse

Discussions similaires