23/06/2004, 07:40
| ||||
| ||||
| Formulario web y base de datos...AYUDA Esta es la idea: Un formulario que envía los datos a una base de datos de Access. Lo que necesito es que: 1) Si el DNI del visitante está repetido lo detecte al enviar los datos y le muestra una página con el aviso. 2) Si está todo ok lo envíe a una página de agradecimiento. El punto 1) lo tengo casi resuelto, pero el 2) no. Alguien me puede dar una mano con esto? (con ejemplos, código, etc.). Gracias!! |
|
23/06/2004, 08:18
| |||
| |||
| hola fredo! Sería algo parecido a esto: He supuesto que si no existe, lo registrarás. Si solo te interesa redirigirlo, quita cualquier linea que contenga un Rs1. Espero que funcione. xao! |
|
23/06/2004, 08:39
| ||||
| ||||
| debspain: la idea es usar el formulario para que participen de un concurso, dejando sus datos y después haciendo un sorteo, tomando la info desde la base de datos. 1) si el DNI está repetido quiere decir que es visitante ya dejó sus datos, por lo tanto no podrá volver a dejarlos, es para que no se repita en la bd. en este caso se lo redirige a una página que le dice "Ya participaste, tus datos no fueron enviados". 2) si el DNI no figura, se graba la info en la bd y se lo redirige a una página que le dice "Gracias por participar". esta es la idea. podés adaptar el código que me enviaste a esto que necesito??. gracias!! |
|
23/06/2004, 09:23
| |||
| |||
| hola de nuevo! Por lo que a mi respecta, el ejemplo que te he puesto te sirve perfectamente. Solo tienes que personalizar los campos y la tabla como desees. Ah! perdon! me he olvidado de abrir la conexion, puedes hacerlo o bien con un dsn o con la ruta de la BD directamente, pero vamos, poniendo eso deberia funcionar, siempre y cuando lo personalices. Este seria más o menos el codigo que deberias poner en la pagina que procesa los datos introducidos en el formulario, es decir la pagina cuyo nombre pusiste como valor en la propiedad "action" del formulario. Otra cosa es que quieras exactamente el codigo de todas y cada una de las paginas que vas a necesitar para que funcione todo. Es eso lo que quieres? Si es así o hay algo que no has entendido o no me he explicado bien dilo ok? ta luego fredo!  |
|
23/06/2004, 10:39
| |||
| |||
| hola fredo! Antes de nada: he supuesto que la base de datos se llama bd.mdb y que se encuentra en el mismo directorio que los demás ficheros y que la tabla donde estan registrados los usuarios se llama Participantes. Empecemos... -------------------------------------------------------------------- Pagina index.html --> contiene el formulario de entrada de datos <html> <head><body> <center> <b>Registro de cliente</b></span></center> <form name="formRegistro" method="post" action="registro.asp"> <table width="50%" align="center"> <tr></table> </form> </body> </html> -------------------------------------------------------------------- Pagina registro.asp --> procesa los datos del formulario de index.asp <% if request.form <> "" then dim nombre, apellido1, apellido2, direccion, cp, poblacion, provincia, dni, telf, email%> <html> <head></html><title>Registro</title></head> <% end if %> -------------------------------------------------------------------- Pagina registroOK.html --> pagina de agradecimiento y confirmación de registro <HTML> <HEAD><BODY> <CENTER>Tus datos han sido guardados correctamente. ¡Gracias por participar!</CENTER></BODY> </HTML> -------------------------------------------------------------------- Pagina registroCancelado.html --> pagina de aviso de Usuario registrado <HTML> <HEAD><BODY> <CENTER>Ya participaste. Tus datos no han sido guardados</CENTER></BODY> </HTML> |
|
23/06/2004, 11:00
| ||||
| ||||
| hice todo lo que me dijiste, pero cuando envío los datos me pone lo siguiente: ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /cumple1/registro.asp, line 28 ---------------------------------- SQL = "Select * from Participantes where dni='" & dni & "'" Rs.open SQL,Conexion,adOpenStatic,adlockReadOnly,adCmdText if Rs.EOF and Rs.BOF then ----------------------------------- la linea 28 está en azul (la del centro) qué puede estar pasando? |
|
23/06/2004, 11:35
| ||||
| ||||
| encontré estas respuestas y posibles soluciones: 1) Podria estar intentando abrir una tabla, sin referenciar la conexion que se debia crear anteriormente. 2) fijate que estes incluyendo bien los nombres de los campos del formulario en el asp donde intentas registrarlos... ademas fijate la longitud permitida en los campos de access (o la bd que uses)... y ademas los permisos de lectoescritura que estes utilizando para grabar el nuevo registro. voy a revisar el código, porque hice algunas modificaciones. DEBSPAIN: SI SABES ALGO MAS PUBLICALO, GRACIAS!!  |
|
23/06/2004, 11:39
| |||
| |||
| mira acabo de provocar algunos errores y la unica vez que me ha salido ese error es porque en la sentencia que abre el recordset ("Rs.open SQL,Conexion,adOpenStatic,adlockReadOnly,adCmdText "), he cambiado Conexion por otra palabra... así que fijate que igual en las modificaciones que has hecho igual cambiaste lo de Conexion por otra palabra... De todas formas seguire por aqui :D Chao! |
|
23/06/2004, 11:43
| ||||
| ||||
| debspain, te paso como me quedaron las páginas adaptadas al código que vos me pasaste: --------------------------- index.htm --------------------------- <html> <head> <title>Index</title> </head> <body> <center> <b>Registro de cliente</b> </center> <form name="formRegistro" method="post" action="registro.asp"> <table width="50%" align="center"> <tr> <td> Nombre <input type="text" value="" name="nombre"><br> Apellido <input name="apellido" type="text" id="apellido" value=""> <br> DNI <input type="text" value="" name="dni"><br> Ciudad <input name="ciudad" type="text" id="ciudad" value=""> <br> <input type="text" value="" name="email"> <br> Saludo <textarea name="saludo" cols="30" rows="5" id="saludo"></textarea> <br> </td> </tr> <tr> <td align="center"> <bR><input type="submit" value="Enviar"> <input type="reset" value="Borrar"> </td> </tr> </table> </form> </body> </html> ----------------------- registro.asp ----------------------- <% if request.form <> "" then dim nombre, apellido, dni, ciudad, email, saludo nombre = Request.form("nombre") apellido = Request.form("apellido") dni = Request.form("dni") ciudad = Request.form("ciudad") email = Request.form("email") saludo = Request.form("saludo") %> <html> <head> <title>Registro</title> </head> <body> <% set Conexion=Server.CreateObject("ADODB.connection") set Rs=Server.CreateObject("ADODB.Recordset") set Rs1=Server.CreateObject("ADODB.Recordset") COnexion.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cumple1.mdb") + ";" Conexion.open SQL = "Select * from Participantes where dni='" & dni & "'" Rs.open SQL,Conexion,adOpenStatic,adlockReadOnly,adCmdText if Rs.EOF and Rs.BOF then 'No hay nadie registrado con ese dni Rs1.open "Participantes",Conexion,adOpenKeySet,adlockOptimi stic,adCmdTable Rs1.AddNew Rs1("nombre") = nombre Rs1("apellido") = apellido Rs1("dni") = dni Rs1("ciudad") = ciudad Rs1("email") = email Rs1("saludo") = saludo Rs1.Update Rs1.close Rs.close Conexion.close set Rs1= nothing set Rs = nothing set Conexion = nothing Response.redirect "registroOk.html" else 'El participante ya existe Rs.close Conexion.close set Rs = nothing set Conexion = nothing Response.redirect "registroCancelado.html" end if %> </body> </html> <% end if %> -------------------------------- las otras (registroOK.htm y registroCancelado.htm) las dejé igual, sin cambios. agradecería tu ayuda. saludos. |
|
23/06/2004, 11:53
| |||
| |||
| hola fredo! Malas noticias... a mi me funciona, simplemente he agregado tus campos a la BD y me va perfecto. A ver, puede que sea una tonteria pero he oido que a veces pueden ser estas cosas. Prueba a cambiar la o mayúscula de "COnexion.ConnectionString= " ......." por una minúscula. AUqnue no creo que sea eso, pero visto el exito... |
|
23/06/2004, 12:05
| ||||
| ||||
| |
|
23/06/2004, 12:13
| |||
| |||
| buf fredo.. estoy buscando en la red y todo indica a lo de los permisos de la bd o de la carpeta que la contiene... Creo que más ya no puedo ayudarte... lo siento! De todas formas seguiré buscando y si averiguo algo te lo hago saber!un saludo! |
|
24/06/2004, 07:18
| ||||
| ||||
| alguien que pueda revisar el código y ver dónde está el problema?? ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. gracias!! |
|
29/06/2004, 02:51
| |||
| |||
| Hola!  Prueba con este código, solo he cambiado tu codigo en "registro.asp", básicamente para cambiar las operaciones de Recordset por SQL puro y duro. A mi siempre me ha dado menos problemas manejarlo directamente, y se pueden hacer virguerías...  El los métodos del recordset pienso que están bien pero para hacer 4 cosas basicas...  En serio, prueba a ver si asi te salta el error de apertura de la base de datos (Te pongo el código tal cual a continuación):<% if request.form <> "" then dim nombre, apellido, dni, ciudad, email, saludo nombre = Request.form("nombre") apellido = Request.form("apellido") dni = Request.form("dni") ciudad = Request.form("ciudad") email = Request.form("email") saludo = Request.form("saludo") %> <html> <head> <title>Registro</title> </head> <body> <% dim Conexion, Rs, Rs1, SQL Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cumple1.mdb") + ";" Conexion.open SQL = "Select * from Participantes where dni='" & dni & "'" Set Rs = Conexion.Execute(SQL) If Rs.EOF Then 'No hay nadie registrado con ese dni SQL = "INSERT INTO Participantes (nombre, apellido, dni, ciudad, email, saludo) VALUES " & _ "('" & nombre & "','" & apellido & "','" & dni & "','" & ciudad & "','" & email & "','" & saludo & "')" Conexion.Execute SQL Rs.close Conexion.close set Rs = nothing set Conexion = nothing Response.redirect "registroOk.html" else 'El participante ya existe Rs.close Conexion.close set Rs = nothing set Conexion = nothing Response.redirect "registroCancelado.html" End If %> </body> </html> <% End If %> Nada, ya contarás que tal... saludos = saludos + 1
__________________ Et lux in tenebris lucet... s.f.wil |
|
29/06/2004, 09:12
| ||||
| ||||
| wilby, probé con tu código y ahora me pone este error: --------------------------------------------------------------- Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /cumple1/registro.asp, line 32 --------------------------------------------------------------- La línea 32 es la siguiente: Set Rs = Conexion.Execute(SQL) Qué puede estar pasando ahora? Gracias!! |
|
29/06/2004, 10:10
| |||
| |||
| Ups! Vaya, te puedo asegurar que probé el codigo antes de publicarlo y funciona...  en fins, parece que hay un problema al abrir la conexión...  Bueno, tu no desesperes! En esto es cuestión de ser empecinado y más peleón que el Curro Jiménez de la informática jeje...  La verdad que ahora estoy molido y deseando pirarme pa casita, de todas formas prueba una cosillla, por si cuela... quita los paréntesis en la instrucción, es decir:Set Rs = Conexion.Execute SQL Y a ver si hay mas suerte... lo siento, ahora no estoy nada lúcido, se me acabó la bateríaaa... :-p Lo dicho, si mañana se me ocurre algo más te cuento. saludos = saludos + 1
__________________ Et lux in tenebris lucet... s.f.wil |
|
29/06/2004, 10:14
| ||||
| ||||
| wilby: lo probé sin paréntesis, pero me da otro error: ------------------------------------------ Microsoft VBScript compilation error '800a0401' Expected end of statement /cumple1/registro.asp, line 32 Set Rs = Conexion.Execute SQL --------------------------^ Así que debe ser otra la solución. Cuando tengas novedades me avisás. Gracias!! |
|
30/06/2004, 01:15
| |||
| |||
| Buenos dias! (aquí por lo menos amaneció hace un par de horucas...  )En cuanto a lo último, lo de los paréntesis nada, olvidalo, estaba bien antes... Pues no se que pensar a no ser que sea algo en la configuración local de tu servidor... si, ya se que esta es la excusa fácil que te pondrá todo el mundo pero bueno... ejem, vale, probemos otra cosilla...He buscado un poco de información sobre ese error pero aún no me ha quedado muy claro. Vamos por partes... Y si cambias la descripción de la consulta? Prueba a quitar el "*", bien poniendo la lista de campos (paciencia  ) o como veo que sólo lo utilizas para ver que existe el registro y luego no utilizas la información recogida, intenta con una función sql:SQL = "Select COUNT(*) AS TotDnis from Participantes where dni='" & dni & "'" Si devuelve 1 ó más es que ya estaba registrado con anterioridad, y si devuelve registro vacío haces el insert.  Pero bueno, de todas formas aunque "casque" en otra parte más abajo en el código, sirve para descartar causas, y desestimar que sea o no por la construcción de la consulta (aunque es extraño porque no tendría sentido que en unos sitios funcione y en otros no, pero quien sabe, lo mismo las diferentes versiones de Office/Access con o sin SR's producen resultados diferentes, ya no me sorprende nada del imperio mocosoft...  ).Enga, no me enrollo mas.  (continurá...) 
__________________ Et lux in tenebris lucet... s.f.wil |
|
30/06/2004, 06:56
| ||||
| ||||
| wilby, me sigue dando el mismo error: ----------------------------------------- Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /cumple1/registro.asp, line 32 -------------------------------------------------- la línea 32 es la que modifiqué con el código que me pasaste. |
|
30/06/2004, 07:57
| |||
| |||
| Uff!  pues entonces cambia el tipo de conexión, por alguna razón esta línea no te va bien...Conexion.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cumple1.mdb") + ";" Has probado a realizar conexión por control OBDC? Bueno, por si acaso te lo resumo a continuación (si me paso de listo me lo dices ):Sigue la siguiente "secuencia"... Configuración -> Panel de Control -> Herramientas Administrativas -> Orígenes de datos (ODBC) En la ventana que se abre, pulsa el botón "Agregar" y selecciona "Driver do Microsoft Access (*.mdb)". En donde te pide "Nombre del origen de datos:" introduce un nombre para el OBDC, en este caso, por ejemplo, "NombreEjemplo" (me he lucido con el nombre ein? ). Después pulsa el botón "Seleccionar", te saldrá un explorador con el que se busca el archivo de base de datos que vas a usar, en este caso "cumple1.mdb". Y cuando Aceptes ya se habrá creado en identificador OBDC que apunta a tu base de datos. Por último ya en el código de "registro.asp" reemplaza la línea: Conexion.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cumple1.mdb") + ";" Conexion.open Por esta: Conexion.Open "NombreEjemplo" Y a ver que pasa ahora... 
__________________ Et lux in tenebris lucet... s.f.wil |
|
30/06/2004, 08:19
| ||||
| ||||
| ya hice las modificaciones, pero ahora: cómo testeo esa conexión con la base? probé desde la web pero no va (porque es una conexión local no?) te cuento, cada vez que modifico el código, lo salvo y lo coloco en el servidor. gracias!! |
|
30/06/2004, 09:06
| |||
| |||
| Acabáramos!  Pues si, lo último que te comenté era suponiendo que estabas haciendo pruebas en local, pero evidentemente, el OBDC debería estar registrado en el servidor remoto para que funcionase tu página, así que olvídate, para eso tendrás que ponerte en contacto con los administradores del servicio. Pues lo que se me ocurre entonces es que o bien no tienen instalado el Access en el servidor remoto por lo que no admite código ASP contra esa base de datos, o bien está mal configurado este servicio por su parte. Intenta hacer funcionar tu página en local, antes de subirla, creando tu propio directorio virtual y todo eso, y si funciona bien pero al subirlo sigue dando ese problema, pues ya sabes... O "negocias" con los administradores del sitio o te buscas otro alojamiento... Ya verás como en local te funciona desde la primera versión que publicaste en este tema del foro! No sé, es que si es problema del servidor poco más se puede hacer, creo yo, y si este encima está en la conchinchina o vete a saber...  Enga, no te molesto más. saludos!
__________________ Et lux in tenebris lucet... s.f.wil |
|
30/06/2004, 09:21
| ||||
| ||||
| del lado del proveedor no hay problemas (teóricamente), ellos tienen todo bien instalado (ya les había consultado antes) y actualizado, así que no se qué puede ser. si se te ocurre algo me decís...gracias por tu ayuda!!! |
|
19/07/2004, 11:32
| |||
| |||
| Me sale el mismo error. Hola he probado el codigo y tambien me sale el mismo error: ADODB.Recordset (0x800A0BB9) Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros. Habeis dscubierto a que se debe? saludos. |
