使用 MS Access 中的数据填充下拉列表答案

【问题标题】：Populate dropdown with data from MS Access使用 MS Access 中的数据填充下拉列表
【发布时间】：2014-10-07 00:30:42
【问题描述】：

我正在尝试使用 MS Access 数据库中的数据填充下拉列表。

我的类别数据库由一个名为 cat 的表和一个名为 Cat 的字段组成。

我不擅长 Javascript 或 VB，但我仍在努力学习。在没有运气的情况下尝试了几天不同的方法，我问你们。我意识到发布的代码中可能存在一些错误。

到目前为止，我有这个：

sub getCat

    SQL_query = "SELECT * FROM cat ORDER BY Cat"
    Set rsData=conn.Execute(SQL_query)

end sub

下拉菜单：

<select name="getCat" id="myoptions"></select>

创建选项：

var  x = "rsData('Cat'), rsData.MoveNext"

var options = x.split(",");

var select = document.getElementById('myoptions');
for(var i=0; i<options.length; i++)
  select.options[i] = new Option(options[i], i);

【问题讨论】：

标签： javascript database ms-access drop-down-menu populate

【解决方案1】：

在这种情况下，最好将服务器上的 SELECT 内容构建为 HTML：

<%
var sel = ""

do until rsData.EOF
   sel = sel & "<option value='" & rsData("Cat") & "'>" & rsData("Cat") & "</option">
   rsData.MoveNext
loop
%>

<select name="getCat" id="myoptions"><%=sel %></select>

【讨论】：

看起来很简单，但我根本没有得到任何选项或输出。选择只是空白。它与它在离线 .hta 中运行的事实有什么关系吗？
它应该在一个普通的 ASP 文件中。

【解决方案2】：

解决了！在狄奥多斯的帮助下。与你提议的有点不同，但你让我到了那里:-)

sub getcat
    SQL_query = "SELECT * FROM categori ORDER BY Cat"
    Set rsData = conn.Execute(SQL_query)
    strHTML2 = strHTML2 & "<select>"
    do until rsData.EOF
    strHTML2 = strHTML2 & "<option value='" & rsData("Cat") & "'>" & rsData("Cat") & "</option>"
    rsData.Movenext
    Loop
    strHTML2 = strHTML2 & "</select>"
    catbox.innerHTML = strHTML2
end sub

并在我想要下拉列表的位置放置一个<span>：

<span id="catbox"></span>

【讨论】：