从SQL中的经典ASP下拉填充 [英] Populate Dropdown from SQL in Classic ASP

问题描述

我试图强制用户添加记录时，只选择特定的值。所以很自然我使用的是下拉列表中，但我想通过在数据库中的特定字段填入的选项。我想我会做一做/循环，但我显然是做错了。

 暗淡dstrSQL
昏暗的DRS
    dstrSQL =SELECT事件ID从事件
    集CONN2 =的CreateObject（ADODB.Connection）
    conn2.open CONN_STRING
    集DRS = conn2.execute（dstrSQL）
    conn2.close：设置CONN2 =什么
做
        的Response.Write＆LT;期权价值=＆放大器; drs.Fields（0）及＆gt;中＆安培; drs.Fields（0）及＆LT; /选项＆gt;中
        drs.MoveNext
循环
 

解决方案

这是一个漫长的时间。事情是这样的：

  conn2.open CONN_STRING
集DRS = conn2.execute（dstrSQL）不要同时不drs.eof％GT;    ＆LT;期权价值=＆LT;％= drs.Fields（0）％＆gt;中＆GT;＆LT;％= drs.Fields（0）％＆GT;＆LT; /选项＆GT;
    ＆LT;％drs.MoveNext
循环
 conn2.close
 设置CONN2 =没什么％GT;
 

I am trying to force users to only select certain values when adding a record. So naturally I am using a dropdown, but I'd like the options to be populated by a specific field in the database. I figured I'd do a Do/Loop but I am apparently doing something wrong.

Dim dstrSQL
Dim drs
    dstrSQL = "SELECT EventID FROM Events"
    set conn2 = CreateObject("ADODB.Connection")
    conn2.open CONN_STRING
    set drs = conn2.execute(dstrSQL)
    conn2.close: set conn2 = nothing
Do
        Response.Write "<option value=" & drs.Fields(0) & " >" & drs.Fields(0) & "</option>"
        drs.MoveNext
Loop

解决方案

It's been a long time. Something like this:

conn2.open CONN_STRING
set drs = conn2.execute(dstrSQL)

do while not drs.eof %>

    <option value="<%= drs.Fields(0) %>" ><%= drs.Fields(0) %></option>
    <% drs.MoveNext
Loop
 conn2.close
 set conn2 = nothing %>

这篇关于从SQL中的经典ASP下拉填充的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！