Clave principal de BD en Access
Publicado por Carlos (3 intervenciones) el 17/01/2003 05:43:43
Panas el problema es el siguiente tengo una pagina donde se llenan formularios, suponiendo que la clave principal de mi tabla es el ID de la persona al momento de yo agregar otra persona con el mismo ID me da error como es de esperarse, el caso es que yo quiero validar esto mandando un mensaje de error o mandandolo a otro pagina.
Lo que hice fue esto una funcion para que me verifique este caso pero no me funciona, bueno cualquier comentario es de ayuda gracias...
function verifica(valor)
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/adltaxis.mdb")
Set rsfind = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Persona"
rsfind.Open strSQL, adoCon
Do while not rsfind.eof
if rsfind ("Cedula") = valor then
bandera = true
end if
rsfind.movenext
loop
'Reset server objects
rsfind.Close
Set rsfind = Nothing
Set adoCon = Nothing
if bandera = true then
response.Redirect("PAGINA DE ERROR")
end if
end function
Lo que hice fue esto una funcion para que me verifique este caso pero no me funciona, bueno cualquier comentario es de ayuda gracias...
function verifica(valor)
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/adltaxis.mdb")
Set rsfind = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Persona"
rsfind.Open strSQL, adoCon
Do while not rsfind.eof
if rsfind ("Cedula") = valor then
bandera = true
end if
rsfind.movenext
loop
'Reset server objects
rsfind.Close
Set rsfind = Nothing
Set adoCon = Nothing
if bandera = true then
response.Redirect("PAGINA DE ERROR")
end if
end function
Valora esta pregunta
0