Consulta sencilla en ASP

Aunque una base de datos puede ser un sistema muy complicado y las herramientas de acceso a datos deben ser eficaces y sensibles, es igualmente importante que las tareas sencillas de acceso a bases de datos sean fáciles de realizar.

El objetivo de esta aplicación de ejemplo es obtener un pequeño conjunto de registros de una base de datos de Microsoft® Access e imprimir el resultado. El primer paso consiste en crear una instancia del objeto Connection mediante el método Server.CreateObject.

El ejemplo utiliza la instancia del objeto Connection para abrir el proveedor de datos OLE DB y, después, para ejecutar un comando SELECT de SQL y así obtener todos los registros de la tabla Autores. Para terminar, la secuencia de comandos recorre la colección del conjunto de registros obtenido y muestra los resultados. Después se cierran el conjunto de registros y la conexión con el origen de datos OLE DB.

Importante OLE DB debe estar correctamente configurado en el servidor para que este ejemplo funcione correctamente.

< %@ LANGUAGE = VBScript %>
< % Option Explicit %>


Simple ADO Query




Simple ADO Query with ASP


Contacts within the Authors Database:

< % Dim oConn Dim oRs Dim filePath Dim Index ' Map authors database to physical path filePath = Server.MapPath("authors.mdb") ' Create ADO Connection Component to connect ' with sample database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath ' Execute a SQL query and store the results ' within recordset Set oRs = oConn.Execute("SELECT * From Authors") %>

< % Do while (Not oRs.eof) %>

< % For Index=0 to (oRs.fields.count-1) %>

< % Next %>

< % oRs.MoveNext Loop %>

< % = oRs(Index)%>

< % oRs.close oConn.close %>

Fuente: Manual de ASP de Valeria Socolovsky