Discussion :

[lonycc]

Bonjour,

Je me bat pour ne pas devoir mettre de taille à mon tableau.

Si je lui met une taille : dim tableau(10) cela fonctionne
mais si je ne lui met pas de taille : dim tableau()
il me met "Subscript out of range"

Voici mon code sans donner de taille à mon tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
dim rscat
Dim compteurtab
dim tableau()
dim requetecat

compteurtab=0

shopopendatabase dbc
requetecat=marequete
set rscat=dbc.execute(requetecat)

do while not rscat.eof 

if not rscat.eof then
compteurtab=compteurtab+1
tableau(compteurtab)=rscat("categoryid")
end if
rscat.movenext
loop


for i=0 to compteurtab2
response.write (tableau(i) &"<br>")
next

Peut etre pouvez vous m'eclairer à ce sujet ?

Merci

[Phiss]

il faut forcement dimensionner un tableau.
Mais si tu veux tu peux le redimmensionner à chaque fois que tu passes dans ta boucle.
C'est lourd mais bon...

[lonycc]

ok parceque dans l'asp.net je vois qu'il existe des Arraylist qui ne doivent pas etre redimmensionné:

dim tableau as arraylist = new arraylist

tableau.add = (".....")

Ca n'existe pas ca en asp ?

Merci

[Ricardo_Tubbs]

Le truc que tu peux faire à la limite... je te l'accorde c'est un peu boeuf, mais si tu retarde la déclaration de ton tableau...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
dim rscat
Dim compteurtab
dim requetecat

compteurtab=0

shopopendatabase dbc
requetecat=marequete
set rscat=dbc.execute(requetecat)

nb=rscat.recordcount
dim monTableau(nb)

do while not rscat.eof 

if not rscat.eof then
compteurtab=compteurtab+1
tableau(compteurtab)=rscat("categoryid")
end if
rscat.movenext
loop


for i=0 to compteurtab2
response.write (tableau(i) &"<br>")
next

est-ce que ce genre de chose conviendrait ?

[lonycc]

Oui c'est bien ca !

Moi j'avais rajouté :

Code :

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

1
2
3
4
5
6
7
8
9
 
do while not rscat.eof 
if not rscat.eof then
compteurtab2=compteurtab2+1
end if
rscat.movenext
loop
redim tableau(compteurtab2)
rscat.close

Je ne connais pas encore vraiment bien l'asp, cette methode plus direct.

En tout cas merci