Выпадающий список в HTA-скрипте из таблицы oracle - PullRequest
Новая
       65

Выпадающий список в HTA-скрипте из таблицы oracle

0 голосов
/ 04 августа 2020

Мне нужно получить данные из моей таблицы oracle в приложение HTA в виде раскрывающегося списка. Может ли кто-нибудь помочь мне устранить ошибку ниже

Я получаю сообщение об ошибке

**

«Поставщик не найден, возможно, он неправильно установлен»

**

Мой пример кода: 

 <html>
 <head>
  <title>SQL DropDown </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")
  Dim strUsername
Dim strPassword
strUsername = "System"
strPassword = "password"
  oDb.Open "Provider=OraOLEDB.Oracle;Data Source=abcd.com:1521/xe;User ID=" & strUsername & ";Password=" & strPassword & ";"
  Dim sQL : sQL     = "select * from employees"
  Dim oRS : Set oRS = oDb.Execute(sQL)
  Dim oOpt
  Do Until oRS.EOF
      Set oOpt = oDD.document.createElement("option")
      oOpt.Text  = oRS.Fields("first_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>
...