2 veces una pagina de modificar datos?????

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

Hola amigos, tengo un problema y es el siguiente:

Tengo una lista de profesores que esta registrados, la cual con un enlaces desde sus nombres, me llava a una pagina de modificacion en donde modifico los datos o campos que se requieran, esto funcionan bien con los demas profesores registrados pero con un en paricular no, ya que cuando se hace click sobre su nombre presenta 2 PAGINAS DE MODIFICACIOON DE DATOS EN VEZ DE 1, y cuando se envia la modificacion da este error:

Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (coma) en la expresión de consulta 'Cedula=5370135, 5370135'.
/asp/actualizar.asp, línea 48

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; brip1; .NET CLR 1.0.3705)

Página:
POST 951 bytes to /asp/actualizar.asp

Datos de POST:
formulario1=5370135&formulario2=rafael+simon+torre s+jimenes&formulario3=guacara+edo.+carabobo&formul ario4=no&formulario5=0245-5810825&formulario6=0416-6471490&formulario7=no&formulario8=lic.+contaduri

Que raro verdad, ya que con los otros profesores no da ese error, y revize los codigos y estan bien, sera que pueden ayudarme a resolver este proble.

Miguel, Venezuela

mebarak · #2 (**permalink**) 14/10/2003, 13:36

ya rebisaste los datos del usuario??, ya que a llomejor intente ingresar algún caracter especial que modifique tu sentencia sql, como puede ser una coma, punto y coma, o unas comillas??

8461277 · #3 (**permalink**) 14/10/2003, 13:55

Gracias por contestar amigo, realicé lo que me dijiste y todo esta bien, ya que con otrops nombres dentro de la lista ejecuto modificaciones y los resultados son los esperados, que pudiera ser alguien tiene alguna idea.

FUNCIONA CON TODOS LOS PROFESORES MENOS CON UNO DE ELLOS, borre los datos dierctamente en la BD de access e introduje todo los datos de nuevos y sigue el mismo error

Ayudenme Miguel

u_goldman · #4 (**permalink**) 14/10/2003, 15:11

Cómo estás enviando y recibiendo esa variable de cédula?

Saludos,

8461277 · #5 (**permalink**) 14/10/2003, 15:16

Amigo, revisando bien me di cuenta que el adminsitrador del centro REGISTRABA 2 VECES EL MISMO PROFESOR, esto no debería suceder ya que en el codigo yo coloque una verificación de cuando hay alguien regsitrado y lo anunciaria como tal, al principio de colocar esta pagina en la red local funcionaba a la mil maravilla, pero parece que ya no, les dejo el codigo que utilizo para registrar los profesores:

<%

'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 like '%"&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("Observacion") = Request.Form("Observacion")
TBL.Update
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

Response.Write "Se a Registrado el Profesor con Exito en la Base de Datos"
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 "El Profesor se encuentra Registrado en la Base de Datos"
end if
%>

</CENTER>
</H1>

</BODY>
</HTML>

QUE ESTARA PASANDO, de pronto borre los datos duplicados.....

Miguel-Venezuela

bakanzipp · #6 (**permalink**) 14/10/2003, 15:55

cambia esto if rs.eof then

por esto if rs.eof and rs.bof then

y revisa si funca

saludos

8461277 · #7 (**permalink**) 15/10/2003, 09:04

Amigi bakanzipp gracias por ayudarme pero no funciona que pasara, hay otra forma en donde yo puedo verificar si existe un registro dentro de la BD y si es asi que me diga YA ESTA REGISTRADO y si no existe que LO REGISTRE, es importante para el buen funcionamiento de la pagina bajo red local?????

Aydenme Miguel

u_goldman · #8 (**permalink**) 15/10/2003, 09:53

Algún comportamiento extraño con el uso de LIKE?

Por si acaso sácale los espacios al principio y al final, si los tuviera

cedula= trim(request.form("cedula"))
sqltxt="select cedula from profesores where cedula = '"&cedula&"'

Es el único proceso que ingresa estos datos?

Salu2,

8461277 · #9 (**permalink**) 15/10/2003, 10:03

ok lo intentare y les aviso

Miguel

bakanzipp · #10 (**permalink**) 15/10/2003, 10:53

bueno lo otro seria usar el = en vez del like..

cedula ='" & cedula& "'

bakanzipp · #11 (**permalink**) 15/10/2003, 10:54

jejeje..sorry por el atraso...u_goldman ya te habia dado la alternativa

8461277 · #12 (**permalink**) 16/10/2003, 06:24

Amigos hice lo que me sugirieron pero me sigue dando error, es decir me agrega el profesor que ya esta agregado dentro de la BD
Esta cosnulta funciona:
sqltxt="select cedula from profesores where cedula = '"&cedula&"'

pero no encuentra nada, dentro de la BD y me registra al profesor y deberia decirme que esta regsitrado, le dejo el codigo que uso hasta hora, cono la sugerencias que me hn dado:

<%

'Verificamos si dentro registro el profesor existe en la BD
cedula=request.form("Cedula")
set rs=createobject("ADODB.Recordset")
sqltxt=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("Observacion") = Request.Form("Observacion")
TBL.Update
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

Response.Write "Se a Registrado el Profesor con Exito en la Base de Datos"
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 "El Profesor se encuentra Registrado en la Base de Datos"
end if
%>

Por favor digame que mas puedo hacer, ya que tengo detenido la pagina interna de la institucion donde trabajo...

Miguel

bakanzipp · #13 (**permalink**) 17/10/2003, 09:04

bastante raro tu problema....si tu select encuentra al profesor no deberia meterse al ingreso ya que el recordset no viene vacio..

prueba con esto
if rs.eof and rs.bof then
'agregar profesor
else
'mensaje
end if

y esto esta mal

sqltxt=sqltxt="select cedula from profesores where cedula = '"&cedula&"'

deberia ser asi
sqltxt="select cedula from profesores where cedula = '"&cedula&"';"

y mas encima deberias dejar en tu tabla el campo cedula como primary key para que no te deje ingresar datos duplicados si por abc motivo lo hace.

saludos

8461277 · #14 (**permalink**) 17/10/2003, 09:24

Me da el siguiente 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 25

Cambien la propiedad del campo ya que el campo cedula es numerico dentro de la bd access, ya que pienso que el que trae la url es texto y existe la divergencia pero me dice:

que falta cerrar el selet???

Ayuda

meru-kun · #15 (**permalink**) 17/10/2003, 10:10

Si intentas meter directamente un Request.Form numerico en una DB no te dejará hacerlo, asi que primero pasalo por variable (no se si ya lo has hecho).
Luego haz una primary key, efectivamente.
Y dinos cual es la linea 25 >_<

8461277 · #16 (**permalink**) 17/10/2003, 14:37

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

Miguel

meru-kun · #17 (**permalink**) 17/10/2003, 15:12

OK. Me alegro ver que ya funciona.

Por curiosidad ¿que era lo que estaba mal?

sjam7 · #18 (**permalink**) 18/10/2003, 12:35

Si el campo es numerico entonces esto esta mal:
sqltxt="select cedula from profesores where cedula = '"&cedula&"';"

debe ser sin comillas simples '

asi:
sqltxt="select cedula from profesores where cedula = "&cedula&""

pruebalo y nos avisas si funciono

RucarMaN · #19 (**permalink**) 18/10/2003, 18:57

Pana Guiate por este y ten pendiente los campos '" & texto & "' y " & numero & " en tu BD
'------------mi code
<%@ Language="VBScript" %>


<%
Dim grado, sec, cupo
grado = Request.Form("grado")
sec = Request.Form("sec")
cupo = Request.Form("cupo")
idsec = grado+sec
%>
<title>Agregar Sección</title>
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")

MiConexion = control
Conexion.Open = MiConexion

Dim Temp

Temp = "SELECT * FROM secciones WHERE idsec='" & idsec & "' AND codgrado=" & grado & " AND sec='" & sec & "'"
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("idsec") = idsec
Tabla("codgrado") = grado
Tabla("sec") = sec
Tabla("totalcupos") = cupo
Tabla.Update
%>





Ingreso de datos completado 


 
<a href="agresecc.html" style="text-decoration: none">Ingresar
otra</a>

<%

Else
Response.Write "<body bgcolor=""#ffffff"" text=""BLACK"" background=""TRI_BG.jpg"">"
Response.Write "<center><img src=""stop.gif"">"
Response.Write "<center> La Siguente Sección: " & idsec & ", YA EXISTE"
Response.Write " <a href=""agresecc.html""><img border=""0"" src=""volver.gif""></a>"
End If

Tabla.Close
Conexion.Close
%>