image
Valora:   4/5 de 18
Inicio » ASP » Manual » Bases de Datos




Inserción de registros

Hasta ahora nos hemos conectado a una base de datos y hemos hecho consultas a la misma, ahora presentaremos como introducir nuevo registros en la base de datos.

Para ello usaremos un formulario y en el ACTION del FORM <FORM ACTION="programaASP"> indicaremos que debe ser procesado una pagina ASP, esta página lo que hará será introducir los datos del formulario en la base de datos.


ejem07d.asp
<!-- Manual de ASP de WebEstilo.com -->
<html>
<head>
   <title>Ejemplo de ASP</title>
</head>
<body>
<H1>Ejemplo de uso de bases de datos con ASP y ADO</H1>
<form action="procesar.asp" method="post">
<TABLE>
<TR>
   <TD>Nombre:</TD>
   <TD><INPUT TYPE="text" NAME="nombre" SIZE="20" MAXLENGTH="30"></TD>
</TR>
<TR>
   <TD>Apellidos:</TD>
   <TD><INPUT TYPE="text" NAME="apellidos" SIZE="20" MAXLENGTH="30"></TD>
</TR>
</TABLE>
<INPUT TYPE="submit" NAME="accion" VALUE="Grabar">
</FORM>
<hr>
<%
   Dim oConn,strSQL, objRS
   
   Set oConn = Server.CreateObject("ADODB.Connection")

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\webestilo\db\datos.mdb"))
   
   strSQL = "SELECT Nombre, Apellidos FROM prueba"
   Set objRS = oConn.Execute(strSQL)
   
%>

   <TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
      <TR><TD>&nbsp;Nombre</TD><TD>&nbsp;Apellidos&nbsp;</TD></TR>
<%      

   while (not objRS.Eof)
      Response.Write("<tr><td>&nbsp;" & objRS("Nombre") & "</td><td>&nbsp;" & objRS("Apellidos") & "&nbsp;</td></tr>")
      objRS.MoveNext
   wend
   
   oConn.Close
   set objRS = nothing
   set oConn = nothing

%>

</table>
</body>
</html>

Ejecutar ejemplo Ver código


procesar.asp
<%
   Dim oConn,strSQL
   
   Set oConn = Server.CreateObject("ADODB.Connection")

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\webestilo\db\datos.mdb"))
   
   strSQL = "insert into prueba (nombre, apellidos) values ('" & Request.Form("nombre") & "','" & Request.Form("apellidos") & "')"
   oConn.Execute(strSQL)
   oConn.Close
   set oConn = nothing
   
   Response.Redirect("ejem07d.asp")
%>




La primera página ASP ejem07d.asp es un formulario que nos permite introducir nombre y apellido para añadirlo a la base de datos, seguido de una consulta que nos muestra el contenido de la tabla prueba. El formulario llama a la pagina procesar.asp que añadirá los datos a la tabla.

La segunda página procesar.asp se conecta a la base de datos y añade un nuevo registro con la instrucción insert del lenguaje de base de datos SQL. Una vez el registro se ha añadido se vuelve a cargar la página ejem07d.asp







Comparte


Aportaciones de usuarios A�adir una aportaci�n



 
Valid HTML 4.01!
Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.