Formulario a Base de Datos
En este ejemplo vamos a ver como podemos grabar los datos de un formulario a una base de datos, para el cual necesitamos cuatro archivos:
Adovbs. Inc este archivo contiene las constantes así que no tenemos que definirlas nosotros, así es que incluimos en la página el archivo de constantes adovbs. Inc
base.html: en este archivo vamos a crear el formulario donde el usuario pondrá los datos y mandara la información al script ASP para ser procesados los datos
base.asp: este archivo contiene el código del scipt necesario para agregar los datos del formulario a la base de datos
Una base de datos de Access con los campos: nombre, dirección y teléfono, también necesitamos crear el DSN para nuestra base de datos, ver Bases de datos.
--------------------------------------------------------------------------------
Creamos un archivo llamado base.asp y ponemos el siguiente código:
'Codigo creado por COM-E.NET, se permite el uso de este codigo para fines personales o comerciales
'siempre y cuando se conserven estas lineas.
'COM-E.NET se reserva el derecho de modificar este codigo segun crea necesario y no se hace responsable
'de daños o perdidas que surgan del uso de este codigo.
'dudas o aclaraciones a:
[email protected]'declaramos el lenguaje del script que se va a usar
<%@ LANGUAGE="VBSCRIPT" %>
'Incluimos el archivo adovbs.inc
<!-- #include FILE="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<%
'Tomamos los valores de los campos del formulario y lo guardamos en las variables
strNombre = cStr(Request.Form("txtnombre"))
strDireccion = cStr(Request.Form("txtdireccion"))
strTelefono = cStr(Request.Form("txttelefono"))
'Creamos la conexion a la base de datos
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open"tabla","DSN=pruebas1;UID=examples;Password=;", adOpenKeyset, adLockPessimistic, adCmdTable
'Danos la intruccion de que se agregue un registro a la base de datos
oRs.AddNew
'Llenamos los campos de la base de datos con los valores de las variables
oRS.Fields("nombre") = strName
oRS.Fields("direccion") = strAddress
oRS.Fields("telefono") = strPhone
'Guardamos los cambios
oRS.Update
'Cerramos la conexion
oRS.Close
'Liberamos los recursos para que se pueda volver a usar inmediatamente
Set oRS = Nothing
%>
<P>
<H2ALIGN=CENTER>Gracias por regsitrarte!</H2>
</BODY>
</HTML>
--------------------------------------------------------------------------------
Ahora necesitamos crear el archivo base.html en el cual se encuentra nuestro formulario base.html:
'Codigo creado por COM-E.NET, se permite el uso de este codigo para fines personales o comerciales
'siempre y cuando se conserven estas lineas.
'COM-E.NET se reserva el derecho de modificar este codigo segun crea necesario y no se hace responsable
'de daños o perdidas que surgan del uso de este codigo.
'dudas o aclaraciones a:
[email protected]<HTML>
<HEAD>
<TITLE>Formulario</TITLE>
</HEAD>
<BODY>
<FONTSIZE=2>Bienvenido</FONT>
<FONT SIZE=1> a la pagina para agregar tus datos</FONT>
<P>
Por favor llena los campos con tus datos
<P>
'Creamos el formulario y le indicamos la pagina a la cual se va a dirigir una ves que se de click en el boton enviar
<FORM METHOD=POST ACTION="base.asp">
<TABLE>
'Creamos el campo para el nombre
'Fijarse como la propiedad name de esta pagina y en la pagina donde definimos las variables son las mismas, de esta manera
' podemos identificar los datos que les vamos a asignar alguna propiedad o variable
<TR>
<TD>Nombre </TD>
<TD><INPUT TYPE=TEXT NAME="txtnombre" SIZE=40> </TD>
<TR>
'Creamos el campo para la direccion
<TD>Direccion </TD>
<TD><INPUT TYPE=TEXT NAME= "txtdireccion"SIZE=40></TD>
<TR>
'Creamos el campo para el telefono
<TD>Telefono </TD>
<TD><INPUT TYPE=TEXT NAME= "txttelefono"SIZE=40></TD>
</TABLE>
<P>
'definimos el boton con el cual se van a enviar los datos, tambien se pudiera declarar un boton para limpiar los datos del formulario
<INPUT TYPE=SUBMIT VALUE="Enviar">
</FORM>
</BODY>
</HTML>