Obviamente antes de mostrar una información en una tabla debemos conectarnos a ella.
En el artículo anterior, como conectarnos a una BD, vimos como se hacía la conexión.
Ahora, después de conectarnos a la BD, abriremos una tabla de la BD y mostraremos su información por
la pantalla.
Veamos como mostrar nuestros datos!...
<%
Dim oConn, RS 'conectamos a la tabla.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Webs\Soloasp\db\mibd.mdb" 'Abrmios el RecordSet (accedemos a los datos de la BD).
Set RS = Server.CreateObject ("ADODB.RecordSet") 'entre " " va el nombre de la tabla, y luego de la "," se indica la BD que contiene esa tabla. 'El número que le sigue, el "1", es la forma de abrir la tabla.
RS.Open "contador", oConn, 1 'Mostramos los campos hasta que nuestro RS no termine. 'Cuando termine... sale del bulcle automaticamente.
Do While Not RS.EOF
Response.Write RS("hits") &"<BR>"
Response.Write RS("fecha") 'MoveNext nos movera al siguiente registro de la tabla. A la siguiete fila.
RS.MoveNext
Loop 'primero cerramos los objetos y luego los limpiamos.
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
En resumen. con RS.Open "datos" estamos abriendo la tabla.
Con Do While Not RS.EOF... Loop, indicamos que se cumpla el bucle hasta que llegue al último registro.
Justamente esto significa EOF. Cuando EOF es true, significa que estamos parados en la ultima
posición de la tabla.
Con Response.Write RS("campo"), mostramos por pantalla el "campo" RS.MoveNext nos pasa a la siguiente linea o fila.
Y por último nunca se olviden de cerra el RecordSet y la conexión a la BD. Y limpiarlos.
