Buscar un registro exacto y no..........

8461277 · #1 (**permalink**) 16/10/2003, 14:09

Uno aproximado, es decir necesitu hacer una consulta en asp en donde busque un registro especifico y no una aproximado, por favor me prodrian explicar como seria?????????? puede ser a traves de un ejemplo

Miguel

lexus · #2 (**permalink**) 16/10/2003, 23:23

Código:

SElect * from tutabla where tucampo = '" & request("tucampodeformulario") & "'"

8461277 · #3 (**permalink**) 17/10/2003, 07:05

lexus me da este error:

Tipo de error:
Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.
/asp/agregar4.asp, línea 24

Te coloco todo el codigo de la pagina, como puedes ver es una pagina que es de ingresar datos en una BD de access, la cual yo quiero que averigue ante de registrar a un nuevo profesor si lo encuentra que DIGA PROFESOR ESTA REGISTRADO y si no esta PROFESOR REGSITRADO CON EXITO en la laptop que tengo funciona de maravilla con los parametro originales con que se programo pero no se, sera que hay hasta el momento 45 registrado???? ya uq en mi maquina lo probe con 18 profesores.

Bueno te dejo el codigo por favor ayudenme, tengo la pagina de la red interna paralizada por este defecto, aqui va el codigo:

la pagina se llama agregar.asp

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Ing Miguel Padron 9\08\2003" CONTENT="">
<META NAME="Registra datos de Profesore Postgrado URG" CONTENT="">
<META NAME="Registra datos a BD Profesore Postgrado URG" CONTENT="">
<meta http-equiv="refresh" content="6;URL=form-agregar4.html">
<META HTTP-EQUIV="Page-Enter" CONTENT = "RevealTrans (Duration=1, Transition=23)">
</HEAD>
<CENTER>
<H1>
<B>
<BODY>
<%

'Verificamos si dentro registro el profesor existe en la BD
'cedula=request.form("Cedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select cedula from profesores where cedula = '" & request("Cedula") & "'"
'sqltxt="select cedula from profesores where cedula="&cedula&" "
'response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\posturg\profesores.m db;"

if rs.eof then
'Aqui se iserta el profesor si no se encuentra en la BD
if Request.Form <> "" Then
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("profesores.mdb"))

TBL.Open "profesores" ,DB, 1, 2
TBL.AddNew
TBL("Cedula") = Request.Form("Cedula")
TBL("Nombre") = Request.Form("Nombre")
TBL("Profesion") = Request.Form("Profesion")
TBL("Categoria") = Request.Form("Categoria")
TBL("Sueldo") = Request.Form("Sueldo")
TBL("Cat-Acd-Otra-Int") = Request.Form("Cat-Acd-Otra-Int")
TBL("Sueldo-Cat") = Request.Form("Sueldo-Cat")
TBL("Otras-Int") = Request.Form("Otras-Int")
TBL("Sueldo-Otras-Int") = Request.Form("Sueldo-Otras-Int")
TBL("Ultimo-Lapso-Post-URG") = Request.Form("Ultimo-Lapso-Post-URG")
TBL("Nombre-Post") = Request.Form("Nombre-Post")
TBL("Materias") = Request.Form("Materias")
TBL("Coord-Post") = Request.Form("Coord-Post")
TBL("Direcc-Personal") = Request.Form("Direcc-Personal")
TBL("Direcc-Trabajo") = Request.Form("Direcc-Trabajo")
TBL("Telef-Habit") = Request.Form("Telef-Habit")
TBL("Telef-Celular") = Request.Form("Telef-Celular")
TBL("E-mail") = Request.Form("E-mail")
TBL.Update
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

Response.Write "Se a Registrado el Profesor con Exito"
end if

else
' Aqui verificamos si existe el Porfesor en la BD
a=request.form("cedula")
'response.write (a)
b=rs("Cedula")
'response.write (b)

a=b
response.write "<font color='red'>El Profesor ya esta Registrado"
end if
%>

</CENTER>
</H1>
</B>
</BODY>
</HTML>

Miguel

lexus · #4 (**permalink**) 17/10/2003, 08:15

hola,
debe ser porque tu campo cedula es numerico y no de texto

en caso qeu tengas el campo "cedula" de forma numerica entonces cambialo asi:

Código:

'Verificamos si dentro registro el profesor existe en la BD
set rs=createobject("ADODB.Recordset")
sqltxt="select cedula from profesores where cedula = " & request.form("Cedula") & ""   
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\posturg\profesores.mdb;"

lo que esta en negrita es lo correcto, me avisas si te funciono.

8461277 · #5 (**permalink**) 17/10/2003, 08:46

No me funciono, y es verdad que el campo en access es numerico, pero lo estraño es porque funciona en la laptop y no en la intranet, ya que al principio funcionaba a la mil maravillas, por favor hay otra sugerencia.

Como puedo verficar dentro de la BD si hay un registro ?

Miguel

lexus · #6 (**permalink**) 17/10/2003, 08:49

muy raro, asi deberia funcionar, ya lo probe asi y funciona.. debes tener una configuracion distinta... que caracteristicas tienee tu intranet. (sistema operativo, drivers de bases de datos, exploradores, etc..)

8461277 · #7 (**permalink**) 17/10/2003, 09:01

Cita:
muy raro, asi deberia funcionar, ya lo probe asi y funciona.. debes tener una configuracion distinta... que caracteristicas tienee tu intranet. (sistema operativo, drivers de bases de datos, exploradores, etc..)

Lexus

Windows Xp profesional, access, IE, utilizo un formulario html para agregar, pero en la pagian de agregar.asp lo primero que hago es consultar la bd para ver si esta registrado y si no que lo registre.

Es raro lo que pasa?????

Hay otra forma de hacer lo que quiero????

Miguel

8461277 · #8 (**permalink**) 17/10/2003, 14:40

Grcais por su ayuda ya lo resollvi.................leyendo y revizando

Miguel