Carga de combos desde una base de datos
El objetivo de este ejercicio es el cargar los datos de una tabla de una base de datos sobre un combo. La idea es tener almacenada la lista de valores (diferentes opciones) en una tabla de tal manera que a la hora de crear un formulario generaremos dinamicamente la lista de opciones.
La tabla podrá tener la siguiente forma:
- Tabla Deportes -
DEPORTE |
Fútbol |
Baloncesto |
Atletismo |
Voleibol |
Gimnasia |
Los pasos a seguir para volvar el contenido de esta tabla sobre los combos son los siguientes:
1. Conectarnos a la base de datos que tenga la tabla. Esto lo podemos hacer mediante DSN y sin DSN. Nosotros lo vamos a hacer mediante DSN
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DSN=BaseDatosDeportes;"
db.open DB_CONNECTIONSTRING
2. Crearemos un RecordSet el cual almacenara los datos de la tabla deportes. A este RecordSet debemos de decirle que almacenará todas las filas de la tabla.
set deportes = Server.CreateObject ("ADOBD.RecordSet")
SQLStr = "SELECT * FROM deportes"
deportes.open SQLStr, DB_CONNECTIONSTRING, adOpenStatic, adLockReadOnly, adCmdText
Las constantes adOpenStatic, adLockReadOnly, adCmdText las encontraremos en el archivo adovbs.inc el cual deberemos de incluir en la página donde este el script.
<!-- #include file="adovbs.inc" -->
3. Recorreremos el RecordSet mientras existan datos. Para ello utilizaremos alguna estructura repetitiva. A la hora de mostrar los datos no solamente escribiremos en pantalla el texto que haya en en RecordSet, sino que habrá que acompañarlo con el texto de creación del combo del formulario.
<SELECT NAME="deportes">
<%
while not deportes.EOF
Response.Write("<OPTION VALUE='" + deportes("deporte") + "'>")
Response.Write(deportes("deporte") + "</OPTION>")
' Nos desplazamos por el RecordSet
deportes.MoveNext
loop
%>
</SELECT>
comboDB.asp
<!-- #include file="../db/adovbs.inc" -->
<html>
<head>
<title>Combos y Bases de Datos</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
' Nos conectamos a la base de datos
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DSN=informatica-juridica.com.example"
db.open DB_CONNECTIONSTRING
' Creamos el RecordSet
Set deportes = Server.CreateObject ("ADODB.RecordSet")
SQLStr = "SELECT * FROM deportes"
deportes.open SQLStr, DB_CONNECTIONSTRING,
adOpenStatic, adLockReadOnly,adCmdText
%>
<SELECT NAME="deportes">
<%
'Recorreremos el RecordSet
do while not deportes.EOF
Response.Write("<OPTION VALUE='"
+ deportes("deporte") + "'>")
Response.Write(deportes("deporte") + "</OPTION>")
'Nos desplazamos por el RecordSet
deportes.MoveNext
loop
%>
</SELECT>
</body>
</html>
|
Nombre del Tutorial
Visitas
Ir arriba