Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Como situar el cursor en un campo determinado de un formulario

Ejemplos básicos de uso de cookies

Como poner las fechas en castellano

Generador de listados con paginacion

Sugerencias Microsoft sobre ASP (I)

Subir Imágenes a una base de datos

Como situar el cursor en un campo determinado de un formulario

Buscador sobre una BD

Formatos de fecha y hora (Función FormatDateTime)

Un calendario en ASP


Enlaces recomendados

   

Tutorial ASP

Insercion de registros en tablas
Este articulo ha sido leído 114.031 veces

Inserción de registros en una tabla

Este ejemplo nos permite insertar un registro en una tabla usando el objeto recordset.

Podéis ver el ejemplo funcionando en la aplicación 

 

La primera página es un formulario que nos permite escribir el valor a actualizar.

Debemos prestar especial atención a las sentencias remarcadas en azul.

En el "action" especificaremos la pagina ASP que procesara los datos enviados desde el formulario, recibiremos el dato introducido en la caja de texto (input type="text") en la variable "foro"(name="foro")

Insertarforo.htm

<html>
<head>
<title>Crear un Nuevo Foro</title>
</head>
<body bgcolor="#CCFFCC">
<p align="center"><font face="Verdana">Crear un nuevo Foro</font></p>

<form method="POST" action="nuevoforo.asp">
<table border="1" width="100%">
<tr>
<td width="100%" bgcolor="#008000"><font color="#FFFFFF">Nombre del Foro</font></td>
</tr>
<tr>
<td width="100%">
<p align="center"><input type="text" name="foro" size="50">
</p>
</td>
</tr>
</table>
<input type="submit" value="Enviar" name="B1">

<input type="reset" value="Restablecer" name="B2"></p>
</form>
</body>
</html>

Conseguimos un formulario con este aspecto

Nombre del Foro


 

 

Como los datos son enviados desde un formulario mediante el método "POST" debemos recibirlos en nuestra pagina ASP mediante un Request.form. Si este parámetro viene vacío lo que hacemos es generar una pagina html de error que mostramos al usuario.

Si el parámetro es correcto procederemos a introducir el nuevo valor en una tabla de nuestra base de datos. Lo primero es establecer nuestra conexión con la base de datos mediante el objeto Server.

NOTA: Podréis observar que en este caso la conexión ODBC la he efectuado por un método directo que me evita tener que declarar la base de datos como DSN del Sistema en ODBC . Los efectos son los mismos que si la hubiera declarado y la invocara por su nombre ODBC.

Luego creamos nuestro Objeto Recordset , le asignamos las propiedades necesarias para que nos permita actualizar (CursorType y LockType) y abrimos la tabla "foros" a través de la conexión establecida anteriormente con la base de datos.

Invocamos al método Addnew  de Recordset para abrir sitio para un nuevo registro

Asignamos al campo "foro" el valor recibido del formulario

Invocamos al método Update de Recordset para confirmar el alta y cerramos el recordset.

Usamos un response.redirect para dirigir al usuario a otra pagina una vez que hemos terminado el trabajo de actualización.

 

nuevoforo.asp

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

foro=request.form("foro")
if foro="" then %>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Error al insertar pregunta</title>
</head>

<body bgcolor="#CCFFCC">

<p align="center"><img border="0" src="images/titulo.jpg"></p>

<p align="center">Ningun campo puede estar en blanco,
<a href="insertarforo.htm">
inténtalo otra vez</a></p>
</body>

</html>

<%else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\xxxxx\db\myb.mdb"))


set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 

rs.open "foros",conn
rs.addnew
rs("foro")=foro
rs.update
rs.close
response.redirect "foros.asp"
end if%>


Atras

Siguiente


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
50 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar