[question bete]Une fonction peut-elle renvoyer deux valeurs?

Version imprimable

24/11/2003, 16h49
LineLe

[question bete]Une fonction peut-elle renvoyer deux valeurs?

Bonjour!
Comme l'indique le titre, est-ce qu'une fonction vbscript peut renvoyer deux valeurs?
(je suppute que non... mais l'espoir fait vivre... :roll: )
24/11/2003, 19h55
Rami

Ta fonction peut renvoyer un tableau :wink:
24/11/2003, 20h16
LineLe

ARGHLLLL 8O
suis-je bête :x
je vais voir si je peux bidouiller ça demain :D
Merci Rami :wink:

euh.... :oops:
je sais pas comment on recupere un tableau...
voila ce que je fais :

ma fonction :

Code:

1
2
3
4
5
6
 
Function RechteVergeben(Webname)
	Dim RechteVergebenTab (2)
........... ' J'execute et mets le résultat dans RechteVergebenTab
	RechteVergeben = RechteVergebenTab
End Function

appel de ma fonction :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
 
Dim Fehler : Fehler=""
Dim RechteVergebenErfolg : RechteVergebenErfolg = ""
Dim AusgabeTab(2)
 
 
If not NTG Then
	AusgabeTabelle = RechteVergeben(Webname)
	RechteVergebenErfolg = AusgabeTabelle(1) 
	Fehler = AusgabeTab(2) 
 
 
Else 
	Set Rs = Server.CreateObject("ADODB.Recordset")
		Rs.ActiveConnection = MM_IWeF_STRING
		Rs.Source = "SELECT * FROM dbo.IWeF_WebSite WHERE  Status=-1"
		Rs.CursorType = 3
		Rs.CursorLocation = 2
		Rs.LockType = 1
		Rs.Open()
	If not (rs.BOF AND Rs.EOF) Then
		Redim AusgabeTabelle((cint(rs.recordcount)),3)
		Dim i : i=0
		While not rs.eof 
			Webname = rs("Webname")
			Fehler = ""
			RechteVergebenErfolg = ""
			AusgabeTab = RechteVergeben(Webname)
 
			AusgabeTabelle(i,1) = Webname
			AusgabeTabelle(i,2) = AusgabeTab(1)
			AusgabeTabelle(i,3) = AusgabeTab(2)
			i=i+1
			rs.movenext()	
		wend
	End if
 
	Rs.Close()
End If %>

Et je recois un beau type mismatch a la ligne d'appel de ma fonction...

25/11/2003, 09h50
jérôme

Pas évident à capter ton code en allemand :wink:
Ne déclares pas ton tableau Dim AusgabeTab(2), déclare juste comme une simple variable. (Dim AusgabeTab )
Par contre, essaie de l'tiliser dans les 2 cas (if et else) de la même façon.
25/11/2003, 10h02
LineLe

Citation:

Envoyé par jérôme

Pas évident à capter ton code en allemand :wink:
Ne déclares pas ton tableau Dim AusgabeTab(2), déclare juste comme une simple variable. (Dim AusgabeTab )
Par contre, essaie de l'tiliser dans les 2 cas (if et else) de la même façon.

Merci ca marche :D
Mais je ne comprends pas trop parce que j'avais trouvé des exemples où ils dimensionnaient ce tableau là... bref...
pour le if et le else je ne vois pas trop ce que tu veux dire...

euh désolée pour l'allemand... me suis dit que si je traduis pas ce serait pas grave :? imagine ce que ca doit etre pour moi : il faut que je trouve des noms de variables que les allemands comprennent et surtout moi aussi!
pour info il s'agissait d'une fonction utilisant XCACLS pour attribuer des droits a des groupes d'utilisateurs :)

en espérant que ma connerie est passée inapercue....