Llenar un listbox a partir de una base de datos

En esta nota veremos como llenar un ListBox a partir de la información almacenada en una base de datos.

En este ejemplo utilizaremos una base de datos Access como la siguiente:

Los datos supuestamente almacenados en la tabla ListBox son:

Una lista despegable por dentro

El código HTML del formulario con el listbox es:

<form method="POST" action="bandas.asp">
<select name="opciones" size="1">
    <option value="1">Hermética</option>
    <option value="2">The Ramones</option>
    <option value="3">Los Redondos</option>
    <option value="4">2 Minutos</option>
    <option value="5">The Offsprings</option>
    <option value="6">Flema</option>
</select>
<input type="submit" value="Enviar">
</form>

Para poder llenarlo desde una base de datos deberemos repetir el tag <option>, para ellos realizaremos un listado de los datos de la base:

<form method="POST" action="bandas.asp">
<p>Ver información de bandas:</p>
<select name="opciones" size="1">
<%
'Abre la conexión con la base de datos a través de una conexión ODBC
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Grupos"

'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM ListBox ORDER BY titulo"
Set result = con.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
response.write "<option value='" & result("id") & "'>" & result("titulo") & "</option>"

'Pasa a la siguiente fila
result.MoveNext
Loop

'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
</select>
<input type="submit" value="Enviar">
</form>