使用sql数据填充下拉使用VBScript

所以我有这个代码来填充选择下拉使用VBScript不工作任何帮助将是伟大的。我也认为这个回应不应该被使用。使用sql数据填充下拉使用VBScript

Set myConn = CreateObject("ADODB.Connection") 
Set rec = CreateObject("ADODB.RecordSet") 
With myConn 
    .Provider = "SQLOLEDB" 
    .Properties("Data Source") = "**" 
    .Properties("Initial Catalog") = "***" 
    .Properties("User ID") = "**" 
    .Properties("Password") = "**" 
    .Open 
End With 
    queryEmp = "SELECT Name as FN FROM dbo.Employee where Active='True'" 
    rec.open(queryEmp,myConn) 
    Do Until rec.EOF 
    msgBox = rec.Fields("FN") 
    strExample = rec.Fields("FN") 
     response.write "<OPTION>" & strExample & "</OPTION>" 
    End If 
    rec.MoveNext 
    Loop

来源

2015-04-06 Warhead

客户端或服务器端脚本？ –

不使用asp。静态网页 – Warhead

为了避免安全麻烦，我用了一个.HTA这个演示：

<html> 
<head> 
    <title>SQL DropDown Demo</title> 
    <hta:application 
    id="demo" 
    ></hta> 
    <script type="text/vbscript"> 

Option Explicit 

Sub Window_OnLoad 
    Dim oDD : Set oDD = document.GetElementById("ddSQL") 
    Dim oDb : Set oDb = CreateObject("ADODB.Connection") 
    oDb.Open "valid connection string" 
    Dim sQL : sQL  = "valid SQL query" 
    Dim oRS : Set oRS = oDb.Execute(sQL) 
    Dim oOpt 
    Do Until oRS.EOF 
     Set oOpt = oDD.document.createElement("option") 
     oOpt.Text = oRS.Fields("valid column name").Value 
     oOpt.Value = oOpt.Text 
     oDD.Options.Add oOpt 
     oRS.MoveNext 
    Loop 
End Sub 

    </script> 
</head> 
<body> 
    <form> 
    <select id="ddSQL"> 
    </select> 
    </form> 
</body> 
</html>

证据：

Evidence

重要概念：空选择元素，使用ResultSet循环创建选项，设置其属性，将它们添加到选择。

来源

2015-04-06 17:11:30

真棒..完美 – Warhead

使用sql数据填充下拉使用VBScript

回答

相关问题