p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

asp_espanol thread: Re: Duda sobre como asignar campos a la BD ACCESS


Message #1 by "daniel" <daniel@e...> on Fri, 2 Aug 2002 19:18:44
> Saludos:
> 
> Tengo un problema, no soy experto en ASP y estoy creando un asp para 
agregar
> registros a la base de datos desde un formulario, el problema es que me 
dice
> que no son los mismos tipos de datos al hacer la asignacion, por ejemplo;
> 
> Boletos = Request.Form("Boletos")
> 
> 
> Alguien me puede ayudar.
> 
> 
> Gracias
> -------------------------------------------------





para insertar registros en la base datos access deben coincidir los 
nombres de los campos ("no olvides no poner espacios en el nombre del 
campo " ) . 

bien eso consta de varias cosas.
-1 un formulario normal y corriente con el vinculo a por ejemplo : 
ingresar.asp
-esa pagina ingresar.asp con el codigo asp :
--------------------------------------------------------------
<html>
<head>
</head>
<body>

<%@ Language="VBScript" %> 
<html> 
<head> 
<title>Ingreso de Datos</title> 
</head> 

<% 

Dim Conexion,Tabla 
Set Conexion = Server.CreateObject("ADODB.Connection") 
Set Tabla = Server.CreateObject("ADODB.Recordset") 

Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & 
Server.MapPath("../../data/datos.mdb") 

Dim Temp 
 
Temp="Select * From venta Where UCase(Tipo)='" & UCase(Request("Dato1")) 
& "' And UCase(Fecha)='" & UCase(Request("Dato2")) & "' And UCase(calle)
='" & UCase(Request("Dato3")) & "' And UCase(zona)='" & UCase(Request
("Dato4")) & "' And UCase(salon)='" & UCase(Request("Dato5")) & "' And 
UCase(dormitorios)='" & UCase(Request("Dato6")) & "' And UCase(baños)='" & 
UCase(Request("Dato7")) & "' And UCase(Cocina)='" & UCase(Request
("Dato8")) & "' And UCase(terraza)='" & UCase(Request("Dato9")) & "' And 
UCase(solana)='" & UCase(Request("Dato10")) & "' And UCase(ascensor)='" & 
UCase(Request("Dato11")) & "' And UCase(superficie)='" & UCase(Request
("Dato12")) & "' And UCase(Comunidad)='" & UCase(Request("Dato13")) & "' 
And UCase(años_edificio)='" & UCase(Request("Dato14")) & "' And UCase
(observaciones)='" & UCase(Request("Dato15")) & "' And UCase(precio)='" & 
UCase(Request("Dato16")) & "' And UCase(nombre_cliente)='" & UCase(Request
("Dato17")) & "' And UCase(telefono)='" & UCase(Request("Dato18")) & "' 
And UCase(telefono_movil)='" & UCase(Request("Dato19")) & "'" 
Tabla.Open Temp,Conexion,2,3,1 
 
If Tabla.BOF And Tabla.EOF Then 
    Tabla.AddNew 
    Tabla("tipo") = Request("Dato1") 
    Tabla("fecha") = Request("Dato2") 
    Tabla("calle") = Request("Dato3") 
    Tabla("zona") = Request("Dato4") 
    Tabla("salon") = Request("Dato5")
    Tabla("dormitorios") = Request("Dato6") 
    Tabla("baños") = Request("Dato7") 
    Tabla("cocina") = Request("Dato8") 
    Tabla("terraza") = Request("Dato9") 
    Tabla("solana") = Request("Dato10") 
    Tabla("ascensor") = Request("Dato11") 
    Tabla("superficie") = Request("Dato12") 
    Tabla("comunidad") = Request("Dato13") 
    Tabla("años_edificio") = Request("Dato14") 
    Tabla("observaciones") = Request("Dato15") 
    Tabla("precio") = Request("Dato16") 
    Tabla("nombre_cliente") = Request("Dato17") 
    Tabla("telefono") = Request("Dato18") 
    Tabla("telefono_movil") = Request("Dato19") 
    Tabla.Update 
 
%> 

<font face="Tahoma" size="2"><b><i>Ingreso de datos 
completado</i></b></font></p> 
<% 

Else 
    Response.Write "El registro ya existe" 
End If 

Tabla.Close 
Conexion.Close 
%> 
<p align="center"><font face="Tahoma" size="2"><b><i></i></b></font></p> 

<p align="center"><font face="Tahoma" size="2"><b><i><a href="agentes.asp" 
target="_top">Ingresar 
Nuevo</a></i></b></font></p> 
</body> 
</html> 

--------------------------------------------------------------------

- y la base datos access con el mismo nombre = en este caso (datos.mdb) y 
el nombre de la tabla en este caso(venta).

saludos

Message #2 by "Gonzalo Ruiz de Villa" <gonzalo.ruizdevilla@a...> on Fri, 2 Aug 2002 20:54:54 +0200
Busca en la documentación de vbscript funciones como
IsNumeric
IsDate
CDate
CLng
CInt
etc etc que te permiten comprobar si el dato es del tipo que necesitas.
Otras funciones como Len te permiten comprobar la longitud, para que no sea
mas grande que el tamaño del campo
Otra funciones como Trim eliminan espacios antes y depueés del texto de duna
cadena
etc etc.
es un tema amplio, pero hay muchos ejemplos de lo que quieras en la red.


-----Mensaje original-----
De: daniel [mailto:daniel@e...]
Enviado el: viernes, 02 de agosto de 2002 19:19
Para: ASP en Español
Asunto: [asp_espanol] Re: Duda sobre como asignar campos a la BD ACCESS


> Saludos:
>
> Tengo un problema, no soy experto en ASP y estoy creando un asp para
agregar
> registros a la base de datos desde un formulario, el problema es que me
dice
> que no son los mismos tipos de datos al hacer la asignacion, por ejemplo;
>
> Boletos = Request.Form("Boletos")
>
>
> Alguien me puede ayudar.
>
>
> Gracias
> -------------------------------------------------





para insertar registros en la base datos access deben coincidir los
nombres de los campos ("no olvides no poner espacios en el nombre del
campo " ) .

bien eso consta de varias cosas.
-1 un formulario normal y corriente con el vinculo a por ejemplo :
ingresar.asp
-esa pagina ingresar.asp con el codigo asp :
--------------------------------------------------------------
<html>
<head>
</head>
<body>

<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>

<%

Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")

Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" &
Server.MapPath("../../data/datos.mdb")

Dim Temp

Temp="Select * From venta Where UCase(Tipo)='" & UCase(Request("Dato1"))
& "' And UCase(Fecha)='" & UCase(Request("Dato2")) & "' And UCase(calle)
='" & UCase(Request("Dato3")) & "' And UCase(zona)='" & UCase(Request
("Dato4")) & "' And UCase(salon)='" & UCase(Request("Dato5")) & "' And
UCase(dormitorios)='" & UCase(Request("Dato6")) & "' And UCase(baños)='" &
UCase(Request("Dato7")) & "' And UCase(Cocina)='" & UCase(Request
("Dato8")) & "' And UCase(terraza)='" & UCase(Request("Dato9")) & "' And
UCase(solana)='" & UCase(Request("Dato10")) & "' And UCase(ascensor)='" &
UCase(Request("Dato11")) & "' And UCase(superficie)='" & UCase(Request
("Dato12")) & "' And UCase(Comunidad)='" & UCase(Request("Dato13")) & "'
And UCase(años_edificio)='" & UCase(Request("Dato14")) & "' And UCase
(observaciones)='" & UCase(Request("Dato15")) & "' And UCase(precio)='" &
UCase(Request("Dato16")) & "' And UCase(nombre_cliente)='" & UCase(Request
("Dato17")) & "' And UCase(telefono)='" & UCase(Request("Dato18")) & "'
And UCase(telefono_movil)='" & UCase(Request("Dato19")) & "'"
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
    Tabla.AddNew
    Tabla("tipo") = Request("Dato1")
    Tabla("fecha") = Request("Dato2")
    Tabla("calle") = Request("Dato3")
    Tabla("zona") = Request("Dato4")
    Tabla("salon") = Request("Dato5")
    Tabla("dormitorios") = Request("Dato6")
    Tabla("baños") = Request("Dato7")
    Tabla("cocina") = Request("Dato8")
    Tabla("terraza") = Request("Dato9")
    Tabla("solana") = Request("Dato10")
    Tabla("ascensor") = Request("Dato11")
    Tabla("superficie") = Request("Dato12")
    Tabla("comunidad") = Request("Dato13")
    Tabla("años_edificio") = Request("Dato14")
    Tabla("observaciones") = Request("Dato15")
    Tabla("precio") = Request("Dato16")
    Tabla("nombre_cliente") = Request("Dato17")
    Tabla("telefono") = Request("Dato18")
    Tabla("telefono_movil") = Request("Dato19")
    Tabla.Update

%>

<font face="Tahoma" size="2"><b><i>Ingreso de datos
completado</i></b></font></p>
<%

Else
    Response.Write "El registro ya existe"
End If

Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i></i></b></font></p>

<p align="center"><font face="Tahoma" size="2"><b><i><a href="agentes.asp"
target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>

--------------------------------------------------------------------

- y la base datos access con el mismo nombre = en este caso (datos.mdb) y
el nombre de la tabla en este caso(venta).

saludos

---
Usted está suscrito a asp_espanol como:
gonzalo.ruizdevilla@a...
Para darse de baja, envíe un mensaje en blanco a
%%email.unsub%%



  Return to Index