33 - Conexión a una base de dato ACCESS
Simulador
(Cuando presiona el botón "ejecutar el programa" se graban todos los cuadros de texto y se ejecuta el primero de la lista mostrando en una página el resultado.
)
Imprimir el contendido de la tabla rubros de la base de datos "administracion.mdb".
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 from rubros",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("------------------------------------------------------------") response.write("<br>") registros.movenext loop conexion.close %> </body> </html>
Retornar