Bonjour,

je suis en train de coder un script (vbscript) de transfert d'informations entres bases de données.

Pour cela, je crée un code vbscript constitué de plusieurs classes.

Dans ma classe main, je voudrai gérer une collection d'objets que j'ai moi même défini.

En clair, dans mon script, j'ai


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Class main
 
dim ListeObjReq
' Propiétés, Méthodes, etc.....
end class
 
Class ExecReq
' Propiétés, Méthodes, etc.....
end class
Je voudrai que ListeObjReq soit une collection contenant des objets ExecReq auquel j'accède à la manière d'un tableau

En particulier, dans la classe main, j'ai le code suivant :

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
 
 
 public sub init
                ListObjReq = empty
                CardObjReq = 0
        end sub
 
public sub initObjReq(iNom, iDSN1,iDSN2,iDSN3,iType)
		dim tmp
 
                set tmp = new ExecReq
		tmp.init iNom, iDSN1,iDSN2,iDSN3,iType
 
		redim preserve ListObjReq(CardObjReq+1)
 
 
 
		CardObjReq =CardObjReq + 1
 
		ListObjReq(CardObjReq) = tmp
 
 
 
	end sub
Le problème :
Il ne veut pas de mon redim preserve, types imcompatibles me dit-il...


Donc question : Est-il possible en vbscript de créer une collection d'objets que l'on a défini soit même ?

Dans ce cas comment fait-on ?

Merci !