MARIANO SERAL
 
 
Inicio Introducción Variables Flujo Objetos SQL Arch. texto
 

ACCESO A DATOS


Podemos conectar a la base de datos utilizando ODBC o bien de forma directa utilizando OLEDB a continuación le proponemos un ejercicio, le facilitamos el codigo, vamos ha hacer un formulario de pedido de clientes, primero diseñaremos la base de datos con los registros que queremos guardar que en este caso serán tantos como campos.

Página del formulario:

    * LOS CAMPOS EMPRESA NOMBRE Y EMAIL SON OBLIGATORIOS PARA QUE EL FORMULARIO SEA ENVIADO.
EMPRESA:   *
NOMBRE:   *
APELLIDO1:  
APELLIDO2:  
DIRECCIÓN:  
LOCALIDAD:  
PROVINCIA:  
TELEFONO:  
E-MAIL:   *
PEDIDO:   UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
PEDIDO: UNIDADES:
OBSERVACIONES:  

Código del formulario:

<form name="form1" method="post" action="enviocontacto2.asp">
<table width="98%" border="0" cellspacing="0">
<tr>
<td width="23%">&nbsp;</td>
<td width="2%">&nbsp;</td>
<td colspan="4"><font color="#FF0000" size="1" face="Verdana, Arial"><strong>*
LOS CAMPOS EMPRESA NOMBRE Y EMAIL SON OBLIGATORIOS
PARA QUE EL FORMULARIO SEA ENVIADO.</strong></font></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">EMPRESA:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="EMPRESA" type="text" size="50" maxlength="50">
<font color="#FF0000" size="2" face="Verdana, Arial"><strong>*</strong></font></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">NOMBRE:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="NOMBRE" type="text" size="25" maxlength="25">
<font color="#FF0000" size="2" face="Verdana, Arial"><strong>*</strong></font></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">
APELLIDO1:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="APELLIDO1" type="text" size="25" maxlength="25"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">
APELLIDO2:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="APELLIDO2" type="text" size="25" maxlength="25"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">DIRECCI&Oacute;N:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="DIRECCION" type="text" size="50" maxlength="50"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">LOCALIDAD:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="LOCALIDAD" type="text" size="30" maxlength="50"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">PROVINCIA:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="PROVINCIA" type="text" size="30" maxlength="50"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">TELEFONO:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="TELEFONO" type="text" size="9" maxlength="12"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">E-MAIL:</font></strong></td>
<td>&nbsp;</td>
<td colspan="4"><input name="EMAIL" type="text" size="25" maxlength="50">
<font color="#FF0000" size="2" face="Verdana, Arial"><strong>*</strong></font></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA1:</strong></font></td>
<td rowspan="10">&nbsp;</td>
<td width="35%"><input name="REFERENCIA1" type="text" size="45" maxlength="45"></td>
<td width="14%" colspan="2" align="right"><font size="2" face="Verdana, Arial"><font color="#000000"><strong>UN</strong></font><strong>IDADES:</strong></font></td>
<td width="26%"><input name="UNIDADES1" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><strong><font size="2" face="Verdana, Arial">REFERENCIA2:</font></strong></td>
<td><input name="REFERENCIA2" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES2" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA3:</strong></font></td>
<td><input name="REFERENCIA3" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES3" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA4:</strong></font></td>
<td><input name="REFERENCIA4" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES4" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA5:</strong></font></td>
<td><input name="REFERENCIA5" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES5" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA6:</strong></font></td>
<td><input name="REFERENCIA6" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES6" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA7:</strong></font></td>
<td><input name="REFERENCIA7" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES7" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA8:</strong></font></td>
<td><input name="REFERENCIA8" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES8" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>REFERENCIA9:</strong></font></td>
<td><input name="REFERENCIA9" type="text" size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2" face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES9" type="text" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana, Arial"><strong>COMENTARIO:</strong></font></td>
<td colspan="4"><input name="REFERENCIA10" type="text" size="80" maxlength="80">
<font size="2" face="Verdana, Arial">&nbsp;</font></td>
</tr>
<tr align="right">
<td colspan="6"> <input type="submit" name="Submit" value="Enviar">
</td>
</tr>
</table>
</form>

Página de confirmación que el pedido ha sido enviado correctamente:

EMPRESA  
NOMBRE  
APELLIDO1  
APELLIDO2  
DIRECCION  
LOCALIDAD  
PROVINICA  
TELEFONO  
EMAIL  
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:    
PEDIDO:  
 

Código para está página:

Para la conexión y envio de datos

<%
conexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("pedidos.mdb")
set conn = Server.CreateObject("adodb.connection")
conn.open conexion

DIM EMPRESA, NOMBRE, NAPELLIDO1, NAPELLIDO2, NDIRECCION, NLOCALIDAD, NPROVINCIA, NTELEFONO, EMAIL, TEXTO, REFERENCIAA, REFERENCIAB, NREFERENCIA3, NREFERENCIA4, NREFERENCIA5, NREFERENCIA6, NREFERENCIA7, NREFERENCIA8, NREFERENCIA9, NREFERENCIA10, NUNIDAES1, NUNIDADES2, NUNIDADES3, NUNIDADES4, NUNIDADES5, NUNIDAES6, NUNIDADES7, NUNIDADES8, NUNIDADES9, NUNIDEADES10
NAPELLIDO1 = REQUEST.FORM("APELLIDO1")
NAPELLIDO2 = REQUEST.FORM("APELLIDO2")
NDIRECCION = REQUEST.FORM("DIRECCION")
NLOCALIDAD = REQUEST.FORM("LOCALIDAD")
NPROVINCIA = REQUEST.FORM("PROVINCIA")
NTELEFONO = REQUEST.FORM("TELEFONO")
NUNIDADES1 = REQUEST.FORM("UNIDADES1")
NUNIDADES2 = REQUEST.FORM("UNIDADES2")
NUNIDADES3 = REQUEST.FORM("UNIDADES3")
NUNIDADES4 = REQUEST.FORM("UNIDADES4")
NUNIDADES5 = REQUEST.FORM("UNIDADES5")
NUNIDADES6 = REQUEST.FORM("UNIDADES6")
NUNIDADES7 = REQUEST.FORM("UNIDADES7")
NUNIDADES8 = REQUEST.FORM("UNIDADES8")
NUNIDADES9 = REQUEST.FORM("UNIDADES9")
NUNIDADES10 = DATE
REFERENCIAA = REQUEST.FORM("REFERENCIA1")
REFERENCIAB = REQUEST.FORM("REFERENCIA2")
NREFERENCIA3 = REQUEST.FORM("REFERENCIA3")
NREFERENCIA4 = REQUEST.FORM("REFERENCIA4")
NREFERENCIA5 = REQUEST.FORM("REFERENCIA5")
NREFERENCIA6 = REQUEST.FORM("REFERENCIA6")
NREFERENCIA7 = REQUEST.FORM("REFERENCIA7")
NREFERENCIA8 = REQUEST.FORM("REFERENCIA8")
NREFERENCIA9 = REQUEST.FORM("REFERENCIA9")
NREFERENCIA10 = REQUEST.FORM("REFERENCIA10")
IF REFERENCIAA = "" THEN REFERENCIAA = "SIN NOMBRE"

IF REFERENCIAB= "" THEN REFERENCIAB = "SIN NOMBRE"
IF NREFERENCIA3 = "" THEN NREFERENCIA3 = "SIN NOMBRE"
IF NREFERENCIA4 = "" THEN NREFERENCIA4 = "SIN NOMBRE"
IF NREFERENCIA5 = "" THEN NREFERENCIA5 = "SIN NOMBRE"
IF NREFERENCIA6 = "" THEN NREFERENCIA6 = "SIN NOMBRE"
IF NREFERENCIA7 = "" THEN NREFERENCIA7 = "SIN NOMBRE"
IF NREFERENCIA8 = "" THEN NREFERENCIA8 = "SIN NOMBRE"
IF NREFERENCIA9 = "" THEN NREFERENCIA9 = "SIN NOMBRE"
IF NREFERENCIA10 = "" THEN NREFERENCIA10 = "SIN NOMBRE"
IF NUNIDADES1 = "" THEN NUNIDADES1 = "-"
IF NUNIDADES2 = "" THEN NUNIDADES2 = "-"
IF NUNIDADES3 = "" THEN NUNIDADES3 = "-"
IF NUNIDADES4 = "" THEN NUNIDADES4 = "-"
IF NUNIDADES5 = "" THEN NUNIDADES5 = "-"
IF NUNIDADES6 = "" THEN NUNIDADES6 = "-"
IF NUNIDADES7 = "" THEN NUNIDADES7 = "-"
IF NUNIDADES8 = "" THEN NUNIDADES8 = "-"
IF NUNIDADES9 = "" THEN NUNIDADES9 = "-"

IF NAPELLIDO1 = "" THEN NAPELLIDO1 = "VACIO"
IF NAPELLIDO2 = "" THEN NAPELLIDO2 = "VACIO"
IF NDIRECCION = "" THEN NDIRECCION = "VACIO"
IF NLOCALIDAD = "" THEN NLOCALIDAD = "VACIO"
IF NPROVINCIA = "" THEN NPROVINCIA = "VACIO"
IF NTELEFONO = "" THEN NTELEFONO = "VACIO"
IF REQUEST.FORM("EMPRESA") = "" OR REQUEST.FORM("NOMBRE") = "" OR REQUEST.FORM("EMAIL") = "" THEN
RESPONSE.REDIRECT("noenviado.ASP")
END IF
DIM VALORES
VALORES = "'" & REQUEST.FORM("EMPRESA") & "','" & REQUEST.FORM("NOMBRE") & "','" & NAPELLIDO1 & "','" & NAPELLIDO2 & "','" & NDIRECCION & "','" & NLOCALIDAD & "','" & NPROVINCIA & "','" & NTELEFONO & "','" & REQUEST.FORM("EMAIL") & "','" & REFERENCIAA & "','" & NUNIDADES1 & "','" & REFERENCIAB & "','" & NUNIDADES2 & "','" & NREFERENCIA3 & "','" & NUNIDADES3 & "','" & NREFERENCIA4 & "','" & NUNIDADES4 & "','" & NREFERENCIA5 & "','" & NUNIDADES5 & "','" & NREFERENCIA6 & "','" & NUNIDADES6 & "','" & NREFERENCIA7 & "','" & NUNIDADES7 & "','" & NREFERENCIA8 & "','" & NUNIDADES8 & "','" & NREFERENCIA9 & "','" & NUNIDADES9 & "','" & NREFERENCIA10 & "','" & NUNIDADES10 & "'"
strsql = "insert into CONTACTO values(" & VALORES & ")"

set miconexion = conn.execute(strsql)
%>

También necesitaremos una tercera página para cuando los datos no se han enviado cuando no se han rellenado los campos obligatorios será la página no enviado.asp en este caso.

Para mostrar los datos enviados en pantalla lo podemos hacer de la siguiente forma

<table width="98%" border="1" cellspacing="0">
<tr>
<td width="15%"><strong><font size="2" face="Verdana, Arial">EMPRESA</font></strong></td>
<td colspan="2"> <%=REQUEST.FORM("EMPRESA")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">NOMBRE</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("NOMBRE")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">APELLIDO1</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("APELLIDO1")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">APELLIDO2</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("APELLIDO2")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">DIRECCION</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("DIRECCION")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">LOCALIDAD</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("LOCALIDAD")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">PROVINICA</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("PROVINCIA")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">TELEFONO</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("TELEFONO")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">EMAIL</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("EMAIL")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA1</font></strong></td>
<td width="66%"><%=REQUEST.FORM("REFERENCIA1")%></td>
<td width="19%"><%=REQUEST.FORM("UNIDADES1")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA2</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA2")%></td>
<td><%=REQUEST.FORM("UNIDADES2")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA3</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA3")%></td>
<td><%=REQUEST.FORM("UNIDADES3")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA4</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA4")%></td>
<td><%=REQUEST.FORM("UNIDADES4")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA5</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA5")%></td>
<td><%=REQUEST.FORM("UNIDADES5")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA6</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA6")%></td>
<td><%=REQUEST.FORM("UNIDADES6")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA7</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA7")%></td>
<td><%=REQUEST.FORM("UNIDADES7")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA8</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA8")%></td>
<td><%=REQUEST.FORM("UNIDADES8")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">REFERENCIA9</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA9")%></td>
<td><%=REQUEST.FORM("UNIDADES9")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial">COMENTARIO</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("REFERENCIA10")%></td>
</tr>


marianoseral.com huescah@terra.es