Underc0de - La Casa de los Informáticos

En este arti­culo veremos como agregar/eliminar/modificar datos de una base de datos Access utilizando ADO.

Agregando
Almacenaremos los datos utilizando la propiedad AddNew del Recordset, y luego la actualizamos la base de datos con la propiedad Update.


<%
'Creamos la conexion y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")

'Abrimos la conexion por DNS
cnn.Open "dnsusuarios"

'Ejecutamos una consulta SQL a la tabla
sqltext = "SELECT * FROM tblUsuarios"
rst.Open sqltext,cnn,3,3

'Almacenamos los datos en variables (pueden ser tomados de un formulario, etc.)
nombre="Fabian"
apellido = "Muller"
email="[email protected]"

rst.AddNew
rst("nombre") = nombre
rst("apellido") = apellido
rst("email") = email
rst.update

'Cerramos el recordset y la conexion
rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
%>

Modificando
Utilizando la misma tabla, modificaremos un registro de la base de datos, el cual puede ser especificado a traves de una variable session, formulario, querystring, entre otros. En este caso pasaremos el parametro EMAIL por un querystring (ejemplo: [email protected])

<%
'Creamos la conexion y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")

'Abrimos la conexion por DNS
cnn.Open "dnsusuarios"

'Ejecutamos una consulta SQL a la tabla
sqltext = "SELECT * FROM tblUsuarios where email ='" & request.querystring("email")&"'"
rst.Open sqltext,cnn,3,3

'Almacenamos los datos en variables (pueden ser tomados de un formulario, etc.)
nombre="Fabian"
apellido = "Muller"
email="[email protected]"

'Modificamos los datos
rst("nombre") = nombre
rst("apellido") = apellido
rst("email") = email
rst.update

'Cerramos el recordset y la conexion
rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
%>

Eliminando
Para eliminar un registro realizaremos utilizaremos el mismo parametro que el anterior (ejemplo: [email protected])

<%
'Creamos la conexion y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")

'Abrimos la conexion por DNS
cnn.Open "dnsusuarios"

'Ejecutamos una consulta SQL a la tabla, y eliminamos el registro
sqltext = "DELETE * FROM tblUsuarios where email ='" & request.querystring("email")&"'"
rst.Open sqltext,cnn

'Cerramos el recordset y la conexion
rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
%>

De esta manera podemos realizar un ABM (Altas, Bajas y Modificaciones) de los registros almacenados en una base de datos.

---

Informe (ASP) de fabian muller
Webmaster de http://www.webexperto.com[/code]