[ASP] Mostrar datos de Access en una tabla

El siguiente codigo muestra como realizar una conexión a una base de datos en Access desde ASP 3.0.

Cambien el nombre de “guestbook.mdb” por el nombre de su base datos, asi como “SELECT t.Name, t.Comments FROM tblComments t”, con la consulta segun su tabla a mostrar.

<%
Dim oConn,rs
Set oConn = Server.CreateObject(“ADODB.Connection”)
oConn.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“guestbook.mdb”))
‘ Realizamos la consulta
set rs = oConn.Execute(“SELECT t.Name, t.Comments FROM tblComments t”)
‘ Hacemos un bucle hasta que no  queden datos

Response.Write(“<TABLE BORDER=”"1″”>”)
Response.Write(“<TR>”)
‘ Recorremos los nombre de los campos. Restamos uno porque los índices empiezan en 0
for I=0 to rs.Fields.Count-1

Response.Write(“<TD><b>”&rs.Fields(I).Name&”</b></TD>”)

next
‘ Ahorra recorremos el recordset creando una fila nueva por cada registro
do until rs.EOF

Response.Write(“<TR>”)
for I=0 to rs.Fields.Count-1
Response.Write(“<TD>”&rs.Fields(I)&”</TD>”)
next
rs.MoveNext

loop
Response.Write(“</TABLE>”)

rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
%>

[VB6] Como realizar una conexion a una BD de access 97 sin usar el “Data”

Agregamos la Referencia: “Microsoft ActiveX Data Objects 2.6 Library a nuestro proyecto. Declaramos una variable global de tipo “Connection”:

Dim cnn As Connection

Y en el evento principal del Form Load declaramos lo siguiente:

Set cnn = New Connection
cnn.Open “PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=” & App.Path & “\bd1.mdb”

Donde “bd1.mdb” es el nombre de la base de datos, dicho archivo debe estar en el mismo directorio del proyecto de vb6.