remplir dynamiquement une liste déroulante [Résolu]

[transistor49]

Bonjour,
j'aimerais savoir comment on fait pour remplir dynamiquement une liste déroulante!
J'ai déjà essayé je n'ai pas de bug, maisma liste ne ce remplit pas:
voici mon code:

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
 
'----------------------------------------------------------
'--- création de la requête pour remplir la dropdownliste
'----------------------------------------------------------
function Societe(numero)
    set tblSoc=conn.Execute("SELECT * FROM LOCALISA WHERE PARENTCLEUNIK IS NOT NULL AND NOM NOT IN (SELECT TOP " & ucase(numero) & " NOM FROM LOCALISA WHERE PARENTCLEUNIK IS NOT NULL ORDER BY NOM) ORDER BY NOM")
    NomSociete=tblSoc("Nom")
end function
 
 
'----------------------------------------------------------
'--- Comptage du nombre de nom pour le classement de la societe
'----------------------------------------------------------
function nbreSociete()
    set nbSociete = conn.Execute("SELECT DISTINCT count(NOM) AS NOMBRE FROM LOCALISA")
    nombre = nbSociete("NOMBRE")
end function
 
<th width="15%" align="left" class="Texte">
					    <select name="societe" title="Recherche sur la société">
					        <%if param_critere="societe" or param_critere=""  then%>
								<option value="societe" selected>< Société ></option>
							<%else%>
								<option value="societe">< Société ></option>
							<%end if
 
							nbreLigne = nbreSociete()
							'boucle pour remplir la liste déroulante
							do while i<>nbreLigne 
							    nom= Societe(i)
							    if param_critere=nom then%>
								    <option value='" <% =nom %>"' selected><% =nom %></option>
							    <%else%>
								    <option value='" <% =nom %>"'><% =nom %></option>
							    <%end if
							loop%>
					    </select>
					</th>

si quelqu'un pouvait m'aiguiller
merci

[pc75]

Bonjour,

Si tu modifies ta fonction ?

Code :

1
2
3
4
5
 
function nbreSociete()
    set nbSociete = conn.Execute("SELECT DISTINCT count(NOM) AS NOMBRE FROM LOCALISA")
    nbreSociete = nbSociete("NOMBRE")
end function

[Immobilis]

Une fonction retourne une valeur. Pour que cela marche il faut faire ainsi

Code :

1
2
3
4
5
Function toto(a)
     toto = a + 1 ' il faut utiliser le nom de la fonction
end function

response.write(toto(1))

La fonction toto ajoute 1 au nombre qu'on lui envoi.

[transistor49]

ça ne marche pas mieux!
j'ai toujours rien qui s'affiche
et quand je fait comme vous m'avez indiqué:

Code :

1
2
3
Function toto(a)
     toto = a + 1 ' il faut utiliser le nom de la fonction
end function

sa me fait planter l'application

[Phiss]

elle plante comment?

[transistor49]

et bien, la page ne charge qu'une liste box sur les trois et c'est celle qui doit se remplir dynamiquement, en plus je n'ai pas de debugger pour pouvoir être plus claire!

[Phiss]

et si tu regardes la source de ta page tu as pas une erreur?
sinon je me demande pourquoi tu fais tout ça.
Tu n'aurais pas plus vite fais à faire juste une boucle sur ta requete et a afficher toutes les lignes au lieu d'aller executer une requete pour chaque ligne?

[transistor49]

ben je doit certainement avoir une erreur mais etant débutant, je ne connais pas encore très bien le fonctionnement de asp.
Sinon je veut bien essayer comme tu dit mais je ne sais pas comment faut faire!!!

[Phiss]

tu veux faire quoi exactement?
afficher une liste de tous les enregistrements de ta table localisa dans ta liste déroulante?

[transistor49]

oui, je veut afficher tout les données se trouvant dans la colonnes nom.

[Phiss]

Ok alors tu fais ta requete de selection sur ta table

Code :

1
2
requete= "SELECT * FROM LOCALISA"
set rs = conn.execute(requete)

ensuite tu fais un do while comme tu fais.

Code :

1
2
3
4
5
6
7
8
 
' tu ouvre ton select
response.write "<select name='societe' title='Recherche sur la société'>")
do while not rs.eof
  response.write("<option value='societe'>"& rs("nom") &"</option>")
  rs.movenext
loop
response.write("</select>")

Le mieux ce serait de mettre une valeur différente à chaque option.
J'espère qu'il n'y a pas de faute de frappe...

[transistor49]

Merci!!! ça fonctionne! bon, ça ce n'était que le début du boulot! snif !!