ASP Clasico - Crear conexión con base de datos de Access "Microsoft.ACE.OLEDB.12.0"

ASP Clasico - Crear conexión con base de datos de Access "Microsoft.ACE.OLEDB.12.0"

   07 enero       Luis Reyes

---

En publicaciones he explicado cómo realizar conexiones a bases de datos de Access en Excel, la cual se puede volver un poco problemático cuando tenemos que mostrar muchos registros. con ASP podemos realizar también conexiones la cual es más potente al momento de realizar consultas a bases de datos muy grandes.

A continuación, le explico cómo.

1. Tener habilitado IIS y crear el archivo ASP

2.  Realizar la conexión

<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Provider="Microsoft.ACE.OLEDB.12.0"
cn.Open Server.MapPath("Alumnos.accdb")
set rs = Server.CreateObject("ADODB.recordset")
%>

3. Crear la consulta SQL

<%rs.Open "SELECT * FROM Alumnos", cn
str=rs.GetString(,,"</td><td>","</td></tr><tr><td>","")
%>

4. Mostrar los resultados

<table border="1" width="100%">
  <tr>
    <td><%
Response.Write(str) ' se descargan los registros
%></td>
  </tr>
</table>

5. Cerrar la consulta sql

<%rs.close%>

6. Cerrar la conexión

<%cn.close%>

7. liberar la memoria

<%
set rs = Nothing
set cn = Nothing
%>

Aqui les dejo el código completo:

<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Provider="Microsoft.ACE.OLEDB.12.0"
cn.Open Server.MapPath("Alumnos.accdb")
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Alumnos", cn
str=rs.GetString(,,"</td><td>","</td></tr><tr><td>","")
%>
<table border="1" width="100%">
  <tr>
    <td><%
Response.Write(str) ' se descargan los registros
%></td>
  </tr>
</table>

<%
rs.close
cn.close
set rs = Nothing
set cn = Nothing
%>

Les comparto la base de datos que se utilizo:

Descarga