Crear una página ASP - Conectividad con bases de datos
Tutorial creado por UnedHistoria. Extraido de: http://www.zonagratuita.com
23 de Agosto de 2005
ASP
20 - Conectividad con bases de datos
Si va a crear una aplicación basada en Web, lo más probable es que tenga formularios. Posiblemente, también tendrá que conectarla de alguna forma con una base de datos. ActiveX® Data Objects (ADO) proporciona un conjunto de eficaces herramientas que le permitirán tener acceso a orígenes de datos y manipularlos.
Los ejemplos de esta sección ilustran las técnicas necesarias para utilizar ADO de forma efectiva y cómo puede utilizar mejor estas funciones en una aplicación basada en Web.
• Consulta sencilla: Muestra cómo utilizar ADO y ASP para realizar consultas sencillas en una
base de datos.
• Limitar los resultados de una consulta: Muestra cómo es posible utilizar ASP y ADO en las
secuencias de comandos para limitar el número de filas devueltas en un conjunto de registros.
• Consulta desplazable: Muestra cómo realizar con ADO una consulta desplazable
multidireccional.
• Agregar o eliminar registros: Presenta las técnicas necesarias para agregar y eliminar registros
de un origen de datos mediante ASP y ADO.
• Actualizar registros: Muestra cómo utilizar ADO en una aplicación para actualizar los registros
existentes.
• Ejecutar procedimientos almacenados: Muestra cómo utilizar ADO con las secuencias de
comandos ASP para ejecutar procedimientos almacenados de la base de datos.
Para obtener más información acerca de ADO y de las herramientas de acceso a datos de Microsoft en general, consulte la documentación de Microsoft Data Access.
Consulta sencilla
Introducción
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. Este ejemplo demuestra cómo ADO proporciona un método sencillo para realizar este tipo de tareas.
Paseo por el código
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 %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>---<%---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")
%>
<TABLE border = 1>
<%
Do while (Not oRs.eof) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>
<% oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.close
oConn.close
%>
</BODY>
</HTML>
Agregar o eliminar registros
Introducción
Este ejemplo muestra las técnicas que necesita conocer para utilizar ASP y ADO con el fin de agregar y eliminar registros de una base de datos.
Paseo por el código
Primero se utiliza CreateObject para crear una instancia del objeto Connection, que a su vez se utiliza para abrir una conexión con el proveedor de datos OLE DB. Se utiliza de nuevo CreateObject para crear un objeto Recordset vacío. Se configura la propiedad ActiveConnection para hacer referencia al nuevo objeto Connection.
Aunque el objeto Recordset de ADO proporciona el método AddNew para agregar nuevos registros a una base de datos, puede que la escalabilidad mejore si envía comandos INSERT de SQL directamente al motor de base de datos. Este ejemplo utiliza el comando Recordset.Execute, junto con la cadena de comandos apropiada de SQL, para insertar información acerca de un nuevo autor.
En este momento se crea otra instancia del objeto Recordset y se abre con otro comando SQL. Se selecciona el registro recién agregado y se elimina, para lo cual se pasa el comando DELETE de SQL directamente al motor de base de datos. Por último, finaliza la secuencia de comandos.
Importante OLE DB debe estar correctamente configurado en el servidor para que este ejemplo
funcione correctamente.
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Expires= -1 %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>Add/Delete Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Add/Delete Database Sample</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn
Dim oRs
Dim filePath
' 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
' To add, delete and update recordset, it is recommended to use
' direct SQL statement instead of ADO methods.
oConn.Execute "insert into authors (author, YearBorn) values ('Paul Enfield', 1967)"
' Output Result
Set oRs = oConn.Execute (" select * from authors where Author= 'Paul Enfield'
and YearBorn =1967 " )
Response.Write("<p>Inserted Author: " & oRs("Author") & "," & oRs("YearBorn"))
' Close Recordset
oRs.Close
Set oRs= Nothing
' Delete the inserted record
oConn.Execute "Delete From authors where author='Paul Enfield' and YearBorn
= 1967 "
' Output Status Result
Response.Write("<p>Deleted Author: Paul Enfield, 1967")
%>
</BODY>
</HTML>
Actualizar registros
Introducción
Este ejemplo muestra cómo utilizar ADO en una aplicación para actualizar los registros existentes.
Paseo por el código
Primero se utiliza CreateObject para crear una instancia del objeto Connection, que a su vez se utiliza para abrir una conexión con el proveedor de datos OLE DB. Se utiliza de nuevo CreateObject para crear un objeto Recordset vacío. Se configura la propiedad ActiveConnection para hacer referencia al nuevo objeto Connection.
Después se configura el nuevo conjunto de registros. El método Recordset.Execute utiliza como
parámetro una cadena de comandos SQL. Este ejemplo utiliza una cadena de comandos UPDATE de SQL para realizar la actualización en los registros adecuados de la base de datos.
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>Update Database</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Update Database</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn ' object for ADODB.Connection obj
Dim oRs ' object for output recordset object
Dim filePath ' Directory of authors.mdb file
' 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
' To add, delete and update recordset, it is recommended to use
' direct SQL statement instead of ADO methods.
oConn.Execute "Update Authors Set Author ='Scott Clinton'" _
& "where Author='Scott Guthrie' "
Set oRs = oConn.Execute ( "select * from Authors where author" _
& "= 'Scott Clinton'" )
%>
Changed Author: <%= oRs("Author") %>, <%= oRs("Yearborn") %> <P>
<%
oConn.Execute "Update Authors Set Author ='Scott Guthrie'" _
& "where Author='Scott Clinton' "
Set oRs = oConn.Execute ( "select * from Authors where author" _
& "= 'Scott Guthrie'" )
%>
Changed Author: <%= oRs("Author") %>, <%= oRs("Yearborn") %>
</BODY>
</HTML>
Los ejemplos de esta sección ilustran las técnicas necesarias para utilizar ADO de forma efectiva y cómo puede utilizar mejor estas funciones en una aplicación basada en Web.
• Consulta sencilla: Muestra cómo utilizar ADO y ASP para realizar consultas sencillas en una
base de datos.
• Limitar los resultados de una consulta: Muestra cómo es posible utilizar ASP y ADO en las
secuencias de comandos para limitar el número de filas devueltas en un conjunto de registros.
• Consulta desplazable: Muestra cómo realizar con ADO una consulta desplazable
multidireccional.
• Agregar o eliminar registros: Presenta las técnicas necesarias para agregar y eliminar registros
de un origen de datos mediante ASP y ADO.
• Actualizar registros: Muestra cómo utilizar ADO en una aplicación para actualizar los registros
existentes.
• Ejecutar procedimientos almacenados: Muestra cómo utilizar ADO con las secuencias de
comandos ASP para ejecutar procedimientos almacenados de la base de datos.
Para obtener más información acerca de ADO y de las herramientas de acceso a datos de Microsoft en general, consulte la documentación de Microsoft Data Access.
Consulta sencilla
Introducción
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. Este ejemplo demuestra cómo ADO proporciona un método sencillo para realizar este tipo de tareas.
Paseo por el código
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 %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>---<%---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")
%>
<TABLE border = 1>
<%
Do while (Not oRs.eof) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>
<% oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.close
oConn.close
%>
</BODY>
</HTML>
Agregar o eliminar registros
Introducción
Este ejemplo muestra las técnicas que necesita conocer para utilizar ASP y ADO con el fin de agregar y eliminar registros de una base de datos.
Paseo por el código
Primero se utiliza CreateObject para crear una instancia del objeto Connection, que a su vez se utiliza para abrir una conexión con el proveedor de datos OLE DB. Se utiliza de nuevo CreateObject para crear un objeto Recordset vacío. Se configura la propiedad ActiveConnection para hacer referencia al nuevo objeto Connection.
Aunque el objeto Recordset de ADO proporciona el método AddNew para agregar nuevos registros a una base de datos, puede que la escalabilidad mejore si envía comandos INSERT de SQL directamente al motor de base de datos. Este ejemplo utiliza el comando Recordset.Execute, junto con la cadena de comandos apropiada de SQL, para insertar información acerca de un nuevo autor.
En este momento se crea otra instancia del objeto Recordset y se abre con otro comando SQL. Se selecciona el registro recién agregado y se elimina, para lo cual se pasa el comando DELETE de SQL directamente al motor de base de datos. Por último, finaliza la secuencia de comandos.
Importante OLE DB debe estar correctamente configurado en el servidor para que este ejemplo
funcione correctamente.
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Expires= -1 %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>Add/Delete Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Add/Delete Database Sample</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn
Dim oRs
Dim filePath
' 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
' To add, delete and update recordset, it is recommended to use
' direct SQL statement instead of ADO methods.
oConn.Execute "insert into authors (author, YearBorn) values ('Paul Enfield', 1967)"
' Output Result
Set oRs = oConn.Execute (" select * from authors where Author= 'Paul Enfield'
and YearBorn =1967 " )
Response.Write("<p>Inserted Author: " & oRs("Author") & "," & oRs("YearBorn"))
' Close Recordset
oRs.Close
Set oRs= Nothing
' Delete the inserted record
oConn.Execute "Delete From authors where author='Paul Enfield' and YearBorn
= 1967 "
' Output Status Result
Response.Write("<p>Deleted Author: Paul Enfield, 1967")
%>
</BODY>
</HTML>
Actualizar registros
Introducción
Este ejemplo muestra cómo utilizar ADO en una aplicación para actualizar los registros existentes.
Paseo por el código
Primero se utiliza CreateObject para crear una instancia del objeto Connection, que a su vez se utiliza para abrir una conexión con el proveedor de datos OLE DB. Se utiliza de nuevo CreateObject para crear un objeto Recordset vacío. Se configura la propiedad ActiveConnection para hacer referencia al nuevo objeto Connection.
Después se configura el nuevo conjunto de registros. El método Recordset.Execute utiliza como
parámetro una cadena de comandos SQL. Este ejemplo utiliza una cadena de comandos UPDATE de SQL para realizar la actualización en los registros adecuados de la base de datos.
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>Update Database</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Update Database</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn ' object for ADODB.Connection obj
Dim oRs ' object for output recordset object
Dim filePath ' Directory of authors.mdb file
' 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
' To add, delete and update recordset, it is recommended to use
' direct SQL statement instead of ADO methods.
oConn.Execute "Update Authors Set Author ='Scott Clinton'" _
& "where Author='Scott Guthrie' "
Set oRs = oConn.Execute ( "select * from Authors where author" _
& "= 'Scott Clinton'" )
%>
Changed Author: <%= oRs("Author") %>, <%= oRs("Yearborn") %> <P>
<%
oConn.Execute "Update Authors Set Author ='Scott Guthrie'" _
& "where Author='Scott Clinton' "
Set oRs = oConn.Execute ( "select * from Authors where author" _
& "= 'Scott Guthrie'" )
%>
Changed Author: <%= oRs("Author") %>, <%= oRs("Yearborn") %>
</BODY>
</HTML>
Valora este capítulo:
Autor y licencia de 'Crear una página ASP - Conectividad con bases de datos'
|
Opiniona sobre 'Crear una página ASP - Conectividad con bases de datos' (20)
Tu nombre debe tener tres caracteres como mínimo.
Es necesario que te des de alta con una cuenta de correo válida.
Es necesario que te des de alta con una cuenta de correo válida.
El contenido del título de tu opinión debe tener tres caracteres como mínimo.
Es obligatorio que selecciones una valoración del recurso.
El contenido del comentario de tu opinión debe tener tres caracteres como mínimo.
Opina sobre este tutorial |
Wikis relacionados con 'Crear una página ASP - Conectividad con bases de datos'
Un archivo de páginas Active Server (ASP) es un archivo de texto con la extensión...
Más »
Este curso contiene cuatro actividades. Publico la primera actividad.
Qué son y como funcionan las bases de datos. Trataremos conceptos muy básicos que os...
Más »
Se ofrece una panorámica general sobre el surgimiento de los gestores personales de bases de...
Más »
Aquí dejo una clase que hice hace tiempo para tratar bases de datos MYSQL.
