Discussion :

[LineLe]

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... )

[Rami]

Ta fonction peut renvoyer un tableau

[LineLe]

ARGHLLLL
suis-je bête
je vais voir si je peux bidouiller ça demain
Merci Rami

[LineLe]

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

ma fonction :

Code :

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

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 :

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
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...

[jérôme]

Pas évident à capter ton code en allemand
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.

[LineLe]

Pas évident à capter ton code en allemand
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
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....