javicio
16 de Julio del 2003

como puedo insertar datos en una base de datos access desde una paginilla cutre de asp

julian
16 de Julio del 2003

te vale con esto?, deverias de pillar un curso.

Altas, bajas y modificaciones
En este artí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 conexión y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
'Abrimos la conexión 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 conexión
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 través de una variable session,
formulario, querystring, entre otros. En este caso pasaremos el parámetro EMAIL por un querystring (ejemplo: [email protected])

<%
'Creamos la conexión y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
'Abrimos la conexión 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 conexión
rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
%>

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

<%
'Creamos la conexión y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
'Abrimos la conexión 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 conexión
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.