콤보 상자 채우기 표에서 고유 한 값 사용하기

-1

나는이 스킬 레벨에 따라 예약 된 코스를 검색 할 수 있도록 관리 직원 페이지에 콤보 상자를 채우는 코드가 있지만 내 A2 컴퓨팅 난 슬프게도 테이블에서 값으로 콤보 상자를 채우기로 결정, 테이블에 입력 된 동일한 값의 reoccurences 보여 그래서 어떻게 내 현재 코드를 적응할 수 있습니까 (ref 마이크로 소프트 개발 사이트)를 사용하여 본질적으로 SELECT DISTINCT를 수행하지만 콤보 상자를 채 웁니다. 감사합니다콤보 상자 채우기 표에서 고유 한 값 사용하기

<HTML> 
    <BODY> 
    <BR>This is an HTML ListBox<BR> 
    <SELECT NAME="ListBox" SIZE=1> 
    <% Set conn = Server.CreateObject("ADODB.Connection") %> 
    <% conn.Open "DSN=AdvWorks" ' connect to the database %> 
    <% Set rs = conn.Execute("SELECT City FROM Customers") %> 
    <% Do While Not rs.EOF ' define the ListBox OPTIONs %> 
     <OPTION VALUE="<%= rs("City") %>"> <%= rs("City") %> 
     <% rs.MoveNext %> 
    <% Loop %> 
    <% rs.Close %> 
    <% conn.Close %> 
    </SELECT> 
    </BODY> 
    </HTML>`

출처

2014-01-15 user3200220

하는 ("고객과 구별 도시를 선택") % >'? – Subliminy

SELECT DISTINCT를 수행하는 방법은 SELECT DISTINCT를 수행하는 것입니다.

(무엇 모든 단일 라인 오프에 회전 코드인가?) 왜 = conn.Execute을`<% 세트 RS를 사용하지 않는

<p>Select city: <select name="listbox" size="1"> 
<% 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DSN=AdvWorks" ' connect to the database 
'- construct SQL query (your actual query could be much, much more 
' complicated than this): 
Dim sql : sql = "SELECT DISTINCT City FROM Customers" 
Set rs = conn.Execute(sql) 
Do While Not rs.EOF ' define the ListBox OPTIONs 
    Response.Write "<option value=""" & rs("City") & """" 
    '- you can put code here to test if this should be the selected option 
    ' (if yes, you'd write out " selected=""selected""") 
    Response.Write ">" & rs("City") & "</option>" 
    rs.MoveNext 
Loop 
rs.Close 
conn.Close  
%> 
</select></p>

출처

2014-01-16 15:42:14 Martha

콤보 상자 채우기 표에서 고유 한 값 사용하기

답변

관련 문제