Question

我尝试使用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);

Answer 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>

Answer 2

解决！在Diodeus的帮助下。与你的建议略有不同，但你让我在那里： - ）

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>

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

2 个答案: