Discussion :

[Konami15]

Bonjour,

J'ai trois tableau que j'alimente dynamiquement

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
dim tb_result()
dim tb_heure()
dim tb_date()
 
j=0
for i=0 to ubound(tb_ctrl)				
	if len(id)>0 then						
		requete_result="SELECT resultat, heure_reel, date_jour, ctrl_control_name FROM tb_archivage_result WHERE id_arch_result="&id&""
		resultRS.Open requete_result, connexion
		redim preserve tb_result(j)
		redim preserve tb_heure(j)
		redim preserve tb_date(j)
		'Response.Write resultRS("heure_reel") & resultRS("resultat") & resultRS("date_jour")
		tb_heure(j)=resultRS("heure_reel")			'on stocke le résultat, l'heure réel et la date du contrôle en question
		tb_result(j)=resultRS("resultat") 
		tb_date(j)=resultRS("date_jour")
		'Response.Write tb_heure(j) & "-" & tb_result(j) & "-" & tb_date(j)
		j=j+1
		'Response.Write ubound(tb_heure) & "</br>"
		'Response.write j
		resultRS.Close
	end if
next

Là totu fonctionne, y compris les tests en commentaire.
Mais quand je sors de la boucle, impossible d'utiliser la fonction ubound.

Code :

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

1
2
3
4
5
 
nb_resultat=j-1
for k=0 to ubound(tb_result) 'nb_resultat
	Response.Write tb_heure(k) & "-" & tb_result(k) & "-" & tb_date(k)
next

Par contre j'ai récupéré le dernier indice de mon tableau grâce à la boucle et là ça fonctionne. Quand j'utilise ubound voici l'erreur que j'ai :

Erreur d'exécution Microsoft VBScript erreur '800a0009'

Indice en dehors de la plage: 'ubound'

/meteo/meteo2.asp, ligne 147

la ligne 147 correspond à celle ci

Code :

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

for k=0 to ubound(tb_result) 'nb_resultat

Merci d'avance

[Poumtschak]

Et en enlevant la commande "Preserve" sur les "Redim" ?

[Immobilis]

Salut,

Comment change "id". J'ai l'impression que la valeur est toujours la même. Du coup la requete sql est aussi tjrs la même. Enfin de compte toutes les valeurs du tableau seraient pareilles?

A+

[Konami15]

J'ai enlevé un bout de code, mais id change bien j'ai vérifié.

parce qu'en écrivant ce bout de code(que j'ai mis en en commentaire ici) ça fonctionne bien c'est après la boucle que le ubound ne fonctionne pas

Code :

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

Response.Write tb_heure(j) & "-" & tb_result(j) & "-" & tb_date(j)

[pc75]

Bonjour,

L'indice d'un tableau commence à zéro, donc :

Code :

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

1
2
 
for k=0 to ubound(tb_result) - 1

[Konami15]

J'ai trouvé, je n'ai pas mis tout le code, mais enfait je boucle sur la boucle, donc il fallait que je raoute un redim tb..(0) avant de revenir dans la seconde boucle.Je sais pas si on m'a compris mais ça fonctionne^^
Merci de m'avoir aider.