insertar datos en una bd

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 artculo 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 conexin y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
'Abrimos la conexin 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 conexin
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 travs de una variable session,
formulario, querystring, entre otros. En este caso pasaremos el parmetro EMAIL por un querystring (ejemplo: [email protected])

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

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

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