Foros del Web » Programando para Internet » ASP Clásico »

verificar registro y luego enviar formulario

Estas en el tema de verificar registro y luego enviar formulario en el foro de ASP Clásico en Foros del Web. Saludos a todos. Tengo un formulario que antes de ser enviado quiero que verifique si el registro existe en una Base de datos SQL y ...
  #1 (permalink)  
Antiguo 03/04/2013, 08:15
Avatar de LinkLooker  
Fecha de Ingreso: agosto-2002
Mensajes: 136
Antigüedad: 21 años, 7 meses
Puntos: 3
verificar registro y luego enviar formulario

Saludos a todos.

Tengo un formulario que antes de ser enviado quiero que verifique si el registro existe en una Base de datos SQL y luego envíe el mismo.


Es decir, dentro de mi formulario tengo un campo que se llama "cédula" y quiero que antes de enviar el formulario, se verifique si existe la "cédula" en la Db y si existe se envía, si no que muestre mensaje de que "cédula" no existe.


Gracias de antemano
  #2 (permalink)  
Antiguo 03/04/2013, 11:49
 
Fecha de Ingreso: mayo-2001
Ubicación: Monterrey, N.L.; México
Mensajes: 558
Antigüedad: 22 años, 10 meses
Puntos: 0
Respuesta: verificar registro y luego enviar formulario

De manera rápida, podrias intentar lo siguiente:


CEDULA.ASP
Cita:
<body>

<p>Ingresa numero de cedula</p>
<form method="POST" name="Cedula" action="valida_cedula.asp">

<p><input type="text" name="T1" size="20"></p>
<p><input type="submit" value="Validar" name="B1"></p>
</form>

</body>


VALIDA.CEDULA.ASP
Cita:
<%

//Confirmamos que el campo "cedula" tengo algo escrito, sí no, lo regresamos a la misma página
IF request.form("Cedula") = "" then
response.redirect "Cedula.asp"
%>

<%
// En caso contrario, validamos en la Base de Datos (En este ejemplo es access) sí existe o no el registro

Else

Dim cedula_ingresada
cedula_ingresada=replace(request.form("cedula"),"' ","")

Path=Server.MapPath("DB\MI_BD_ACCESS.accdb")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & Path
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM Tabla_En_BD WHERE NumCedula_En_BD='"&cedula_ingresada&"'
rs.Open sql, ConexionBD

if not rs.eof then


//Sí el dato existe, le puedes crear una sesion (puedes quitar esas lineas) y lo mandas a cualquier pagina que quieras. Con la sesion, puedes "jugar" en las páginas subsecuentes.
session("autorizacion")=1
response.redirect "Cualquier_Pagina.asp"

end if


// De no existir la cedula, lo mandas a algun formulario de registro de datos
ELSE
response.redirect "Registrar-Cedula.asp"
end if
end if
%>

Espero te sirva este ejemplo sencillo

Saludos
__________________
Luis Gerardo Soto Bonilla
[email protected]
Monterrey, Nuevo León
México
  #3 (permalink)  
Antiguo 03/04/2013, 14:13
Avatar de LinkLooker  
Fecha de Ingreso: agosto-2002
Mensajes: 136
Antigüedad: 21 años, 7 meses
Puntos: 3
Respuesta: verificar registro y luego enviar formulario

Saludos Owen, gracias por responder...

Excelente tu aporte....

aprovecho para preguntar...Se que la forma de conex para una db Acces es diferente a una SQL

para el caso de SQL seria algo como:

set con=Server.createobject("adodb.Connection")
set tb=Server.createobject("adodb.recordset")
con.open "driver={SQL Server}; Server=nombredelserver; Database=nombredb; UID=usuario; PWD=mipass"


Ahora la sentencia para la busqueda en la Db seria la misma para Acces y SQL??

sql="SELECT * FROM Tabla_En_BD WHERE NumCedula_En_BD='"&cedula_ingresada&"'
rs.Open sql, ConexionBD



Gracias por tus aporte!!!
  #4 (permalink)  
Antiguo 04/04/2013, 09:58
 
Fecha de Ingreso: mayo-2001
Ubicación: Monterrey, N.L.; México
Mensajes: 558
Antigüedad: 22 años, 10 meses
Puntos: 0
Respuesta: verificar registro y luego enviar formulario

LinkLooker...
Es correcto, la sentencia SELECT es la misma.
No debes tener ningún problema y la conexión a SQL es como lo mencionas.

Saludos
__________________
Luis Gerardo Soto Bonilla
[email protected]
Monterrey, Nuevo León
México
  #5 (permalink)  
Antiguo 04/04/2013, 14:14
Avatar de LinkLooker  
Fecha de Ingreso: agosto-2002
Mensajes: 136
Antigüedad: 21 años, 7 meses
Puntos: 3
Respuesta: verificar registro y luego enviar formulario

Ok..

Ahora si deseo que la búsqueda no sea solo en una base de datos sino en 3. Es decir..Que busque en la bd1, sino consigue registro, pase a la db2 y si no la consigue pase a la db3....Que tendría que agregar al código ???


Gracias de antemano

Etiquetas: formulario, registro, verificar
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:54.