Guía básica para acceder a datos mendiante ADO y ASP.

La primer meta de este artículo es demostrar como ejecutar comandos SQL dentro de páginas asp y mostrar los resultados en tablas HTML.

En este ejemplo usaremos ActiveX Data Object (ADO),  para establecer una conexión a una fuente de datos y manipularla mediante recordsets. Este ejemplo utiliza una simple base de datos en Access, que contiene una tabla "Company", como muestra la figura:

Antes de acceder a esta base de datos es necesario configurar una fuente de datos ODBC, para hacer esto es necesario conocer la ubicación del archivo con nuestra computadora, este ejemplo asume que la base de datos esta colocada en la raiz del disco C.

Ahora tenemos que ir al Panel de Control y seleccionar el ícono Fuente de datos ODBC, y seleccionar DNS de Sistema o System DNS y precionar el botón Agregar o Add  y seleccionar el Tipo de Driver.

Elegimos Microsoft Access,  presionamos finish o finalizar y  tendremos que ingresar el nombre de la base de datos.

Presionamos en el botón select o seleccionar y buscamos nuestra base de datos, que en este caso se llama dbADOtut.mdb.

Ya tenemos lista el acceso a nuestra base de datos, ahora hay que crear las páginas ASP.

Paso 1:  Abrir  una conexión a la fuente de datos.
<% Set cnnDB = Server.CreateObject("ADODB.Connection") %>

'Utilizamos el objeto Open.
<% cnnDB.Open "dbADOtut" %>

'Damos un login y clave.
<% cnnDB.Open "dbADOtut", "user_name", "password" %>

Paso 2: Ejecutar comandos SQL.

<% strQuery = "SELECT * FROM Company" %>

'Usamos un objeto recorset para recibir los datos.
<% Set rsInfo = cnnDB.Execute(strQuery) %>

'Ahora recibimos todos  los registros desde la base de datos ordenados por nombre.

<%
strQuery = "SELECT * FROM Company ORDER BY Name"
Set rsInfo = cnnDB.Execute(strQuery)
%>

'Con la propiedad EOF, recorremos todo el recordset.

<%
Do While Not rsInfo.EOF
   Response.Write(rsInfo("Name"))
   rsInfo.MoveNext
Loop
%>

Ahora presentamos los datos en una tabla HTML.

<TABLE>
<TR>
<TH>
     Name
</TH>
<TH>
     Address
</TH>
<TH>
     Phone
</TH>
</TR>

<% Do While Not rsInfo.EOF %>

<TR>
<TD>
     <% =rsInfo("Name") %>
</TD>
<TD>
     <% =rsInfo("Address") %>
</TD>
<TD>
     <% =rsInfo("CEO") %>
</TD>
</TR>

<%
rsInfo.MoveNext
Loop
%>
</TABLE>

El resultado será el siguiente

Paso 4: Cerrar los objetos.

<%
rsInfo.Close
Set rsInfo = Nothing
cnnDB.Close
Set cnnDB = Nothing
%>

Este es un ejemplo bastante básico, pero da una idea de como se conectan las base de datos y se reciben los datos en una página web.