Problème de passage de tableau en paramètre

[Tueur_a_gage]

Hello

J'ai un soucis avec le passage d'un tableau en paramètre d'une fonction.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Sub PopulateFromLDAP (resultSet)
  ' Get all informations from resulset
  Do While Not resultSet.EOF Or resultSet.BOF
    FirstName = ExtractData(resultSet.Fields("givenName"))
    LastName = ExtractData(resultSet.Fields("sn"))
    Email = ExtractData(resultSet.Fields("mail"))
 
    resultSet.MoveNext
  Loop
end sub
 
Private function ExtractData (valeur)
  If IsArray(valeur) Then
    For i = 0 To UBound(valeur)
      ExtractData = valeur(i) 'Erreur à ce niveau
    Next
  Else
    ExtractData = ""
  End If
end function

J'ai un plantage à la ligne ou je récupère la valeur (valeur(i)) avec le message suivant :

Code :

Nombre d`arguments ou affectation de propriété incorrects: 'valeur'

est-ce que quelqu'un a une idée ?

merci d'avance

[Immobilis]

Salut,

Bizarre comme façon de faire. Une fois que tu affectes une valeur à ta fonction, je crois que tu en sorts.
Il vaudrait mieux faire:

Code :

1
2
3
4
5
6
7
8
9
 
Arr = resultSet.Fields("givenName")
if isarray(Arr) then
   for i = 0 to ubound(Arr)
     fisrtname = extractdata(Arr(i)) ' mais là tu ecrases firstname...
   next
else
 
end if

un truc du genre.

A+

[Tueur_a_gage]

Ce qui est bizarre et je suis d'accord est de faire une boucle dans ma fonction privée car en fait cela me fait récupérer le dernier élément systématiquement.

Mais en fait je n'ai qu'un seul élément dans le tableau, mon resultset ne contient qu'une ligne de donnée (select issu d'une clé dans le LDAP)

Du coup, j'ai bien sur essayé :

Code :

1
2
3
4
5
6
7
8
 
Private function ExtractData (valeur)
  If IsArray(valeur) Then
    ExtractData = valeur(0) 'Erreur à ce niveau
  Else
    ExtractData = ""
  End If
end function

Mais le résultat est le même, il ne veut pas faire le valeur(0)...
J'ai essayé également de faire un redim de valeur avant de tester et récupérer les données, du coup je n'ai plus de plantage, mais je n'ai plus de données non plus...

Code :

1
2
3
4
5
6
7
8
9
 
Private function ExtractData (valeur)
  redim valeur(0)
  If IsArray(valeur) Then
    ExtractData = valeur(0) 'plus d'erreur, mais plus de données...
  Else
    ExtractData = ""
  End If
end function

En fait tout se passe comme si il ne pouvait pas récupérer les données dans le tableau (valeur) alors qu'il le considère bien comme un tableau (IsArray ok)

[pc75]

Bonjour,

Que vaut la valeur de uBound de ton tableau ?

[Tueur_a_gage]

0 c'est un tableau ne contenant qu'un seule valeur

[Immobilis]

C'est pas franchement un tableau alors...

[Tueur_a_gage]

Je sais...mais comme ça pourra le devenir un jour.... il faudrait faire évoluer le param de retour en tableau aussi...

mais le pb reste le même, si je fais valeur(0) directement sans parcourir le tableau, ça marche pas

[Immobilis]

En ASP je ne crois pas que tu puisses vraiment exploiter ce tableau mm si isarray est verifié. Je crois que tu devrais le reconstituer dans une boucle FOR d'abord.

[Tueur_a_gage]

C'est vraiment un beau langage de me...de ... c'est bien ce que j'avais pu lire déjà à droite ou à gauche, mais il semblait que cela marchait pour certains ??

bon ben tant pis on va revenir à la mode manuel et faire du code un peu dégueu, mais bon ...


merci qd même

[Immobilis]

mmmh...
Pas très constructif.