Используйте данные 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:

Evidence

Ключевые понятия: пустой выберите элемент, с помощью петли Resultset для создания параметров, установки их свойств, добавления их в выборку.

источник

2015-04-06 17:11:30

awesome..works perfect – Warhead

Используйте данные sql для заполнения выпадающего списка с помощью vbscript

ответ

Смежные вопросы