Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.

How To Populate a Combobox from Active Server Pages


View products that this article applies to.

This article was previously published under Q175426

↑ Back to the top


Summary

This article demonstrates how to load a ComboBox with records that are retrieved from a database. This example creates an Active Server Pages (ASP) page that connects to the Adventure Works database.

↑ Back to the top


More information

The following code demonstrates how to load values into an HTML list box:
   <HTML>
   <BODY>
   <BR>This is an HTML ListBox<BR>
   <SELECT NAME="ListBox" SIZE=1>
   <% Set conn = Server.CreateObject("ADODB.Connection") %>
   <% conn.Open "DSN=AdvWorks"  ' connect to the database %>
   <% Set rs = conn.Execute("SELECT City FROM Customers") %>
   <% Do While Not rs.EOF  ' define the ListBox OPTIONs %>
      <OPTION VALUE="<%= rs("City") %>"> <%= rs("City") %>
      <% rs.MoveNext %>
   <% Loop %>
   <% rs.Close %>
   <% conn.Close %>
   </SELECT>
   </BODY>
   </HTML>
				
The following code demonstrates how to load values into an ActiveX ComboBox control. Be aware that this control must be installed and registered on your system in order for this sample to work correctly:
   <%@ LANGUAGE="VBSCRIPT" %>
   <HTML>
   <BODY>
   <BR>This is an ActiveX ComboBox control<BR>
   <!-- insert the ActiveX control into the HTML page -->
   <OBJECT ID="ComboBox" WIDTH=96 HEIGHT=24
      CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3">
   </OBJECT>
   <SCRIPT LANGUAGE="VBScript">
   <!--
   ' load the ActiveX control after the window has been loaded
   Sub Window_OnLoad()
      <% Set conn = Server.CreateObject("ADODB.Connection") %>
      <% conn.Open "DSN=AdvWorks"  ' connect to the database %>
      <% Set rs = conn.Execute("SELECT City FROM Customers") %>
      <% Do While Not rs.EOF %>
         thisForm:ComboBox.AddItem("<%= rs("City") %>") ' Do an AddItem for
                                               ' each record
         <% rs.MoveNext %>
      <% Loop %>
      <% rs.Close %>
      <% conn.Close %>
   End Sub
   -->
   </SCRIPT>
   </BODY>
   </HTML>
				
NOTE: Use your browser to view these pages and the view the HTML source. This will give you a better understanding of what code was produced by ASP.

↑ Back to the top


References

For the latest Knowledge Base artices and other support information on Visual InterDev and Active Server Pages, see the following page on the Microsoft Technical Support site:

↑ Back to the top


Keywords: KB175426, kbscript, kbhowto, kbdatabase, kbcodesnippet

↑ Back to the top

Article Info
Article ID : 175426
Revision : 5
Created on : 5/2/2006
Published on : 5/2/2006
Exists online : False
Views : 460