35 - SELECT (listado de una tabla de ACCESS)


Para probar el comando SELECT de SQL con una tabla de ACCESS procederemos a mostrar todos los registros almacenados en la tabla "articulos"

pagina1.asp

<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
                            Server.MapPath( "/aspya/usuarios/administracion.mdb")
conexion.Open
dim registros
set registros = Server.CreateObject("ADODB.RecordSet") 
registros.open "select codigo,descripcion,precio from articulos",conexion
do while not registros.eof
  response.write("Código:" & registros("codigo"))
  response.write("<br>")
  response.write("Descripción:" & registros("descripcion"))
  response.write("<br>")
  response.write("Precio:" & registros("precio"))
  response.write("<br>")
  response.write("------------------------------------------------------------")
  response.write("<br>")
  registros.movenext
loop
conexion.close
%>
</body>
</html>

Primero creamos un objeto "ADODB.Connection" y luego inicializamos la propiedad ConnectionString con la cadena de conexión, teniendo en cuenta que se trata de una base de dato tipo ACCESS:

set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
                            Server.MapPath( "/aspya/usuarios/administracion.mdb")

El resto del algoritmo es idéntico al concepto del SELECT accediendo a una base de datos de tipo SQL Server.


Retornar