select distinct menu déroulant [Résolu]

[delavega]

Bonjour,

J'utilise la fonction SELECT DISTINCT dans mon menu déroulant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
<SELECT NAME="client" SIZE=1 id="client">
<% Set rs = conn.Execute("SELECT DISTINCT nom FROM client") %>
<% 
rs.movefirst
Do While Not rs.EOF 
if rs("nom") <>"" then
%>
<OPTION VALUE="<%= rs("nom") %>"><%= rs("nom") %></OPTION>
<%
end if
rs.MoveNext
Loop 
'
rs.close
set rs=nothing
'
%>
</SELECT>

Alors le code fonctionne très bien, sauf qu'au niveau du menu déroulant, j'aurai aimé que la valeur qui s'affiche soit celle d'un autre champs, alors que la valeur prise en compte dans le SELECT reste bien celui du champs nom.

Merci d'avance,

Denis

[smerek]

Si l'autre champ est "autrechamp" :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<SELECT NAME="client" SIZE=1 id="client">
<% Set rs = conn.Execute("SELECT DISTINCT nom,autrechamp FROM client") %>
<% 
rs.movefirst
Do While Not rs.EOF 
if rs("nom") <>"" then
%>
<OPTION VALUE="<%= rs("nom") %>"><%= rs("autrechamp") %></OPTION>
<%
 
end if
rs.MoveNext
Loop 
'
rs.close
set rs=nothing

ou, plus proprement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<SELECT NAME="client" SIZE=1 id="client">
<%
Set rs = conn.Execute("SELECT DISTINCT nom,autrechamp FROM client")  
rs.movefirst
Do While Not rs.EOF 
    if rs("nom") <>"" then
        Response.Write("<option value=""" & rs("nom") & """> " & rs("autrechamp")  & " </option>")
    end if
    rs.MoveNext
Loop 
'
rs.close
set rs=nothing
%>

[delavega]

merci beaucoup pour ton aide, c impec.

Bonne soirée.