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.