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.
Vista ejemplo: Ver información de bandas: |
En este ejemplo utilizaremos una base de datos Access como la siguiente:
|
Los datos supuestamente almacenados en la tabla ListBox son:
ID |
TITULO |
1 |
Hermética |
2 |
The Ramones |
3 |
Los Redondos |
4 |
2 Minutos |
5 |
The Offsprings |
6 |
Flema |
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>`p>
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>