verificar registro y luego enviar formulario

LinkLooker · #1 (**permalink**) 03/04/2013, 08:15

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

Owen-Bonilla · #2 (**permalink**) 03/04/2013, 11:49

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

LinkLooker · #3 (**permalink**) 03/04/2013, 14:13

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!!!

Owen-Bonilla · #4 (**permalink**) 04/04/2013, 09:58

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

LinkLooker · #5 (**permalink**) 04/04/2013, 14:14

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