Discussion :

[pmboutteau]

Bonjour je voudrais créer un tableau dont je ne connais pas la taille.

J'ai essayé çà mes çà ne marche pas.

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
28
Dim TabValeur
Dim TabCode
Dim i
i=0
 
Dim RecupNum
RecupNum="SELECT Distinct NumCommande,DateSaisie,Poste  From OperationCasing"
set rs = server.CreateObject("ADODB.RecordSet")
   rs.open RecupNum, cnBD
 
 
do while not rs.eof
 
RecupTpsArretChangementCommande="SELECT ArretCasing.CodeArret,ArretCasing.DateDeSaisie, Sum(ArretCasing.TpsArret) AS temps FROM ArretCasing WHERE ArretCasing.NumCommande='"&rs("NumCommande")&"'  AND ArretCasing.CodeArret='M1' AND (ArretCasing.NomPoste='HT4822' Or ArretCasing.NomPoste='HT4821' Or ArretCasing.NomPoste='ST4421' Or ArretCasing.NomPoste='ST4420') GROUP BY ArretCasing.CodeArret,ArretCasing.DateDeSaisie"
 
	set rsChgt = server.CreateObject("ADODB.RecordSet")
	rsChgt.open RecupTpsArretChangementCommande, cnBD
 
if not rsChgt.eof Then
	if rsChgt("DateDeSaisie")=rs("DateSaisie") and  rs("DateSaisie")=CDate(data2) Then
					TabValeur(i)=rsChgt("temps")
 
	End if
else
	TabValeur(i)=0
End if
TabCode(i)="M1"
i=i+1

Il me met type incompatible.

[bourvil]

pour utiliser un tableau sans savoir sa longueur , il faut utiliser Redim:

Code :

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

1
2
3
4
 
Dim TabValeur()
Redim Preserve TabValeur(iIndex) 
TabValeur(iIndex)  = valeur

[pmboutteau]

Mais iIndex j'ai pas de valeur à lui affecter?

[bourvil]

bein chez toi tu utilises i dans ton code a la place de iIndex.
mais dans ton example tu n'avance pas ds ton recordeset et tu ne ferme pas ta boucle!

[pmboutteau]

oui mais c'est parce que j'ai pas mis tout le code!!! j'ai mis que la déclaration de mon tableau. mon Next et mon movenext sont 500 lignes plus bas!!!

[bourvil]

ok
tiens moi au courant si t'as encore un probleme