FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Comprobar en evento OnExit si valor de campo ya existe
Buenas!!!
Despues de mucho tiempo desconectado de las bases de datos ahora tengo que volver a "entretenerme" con ellas y estoy calentando con un programa sencillito de prueba pero mis conocimientos estan un poco oxidados...Seguramente esto es algo que habran preguntado miles de veces pero he estado buscando por el foro y googleando y no lo he encontrado...o no he sabido buscar... Trabajo con Delphi5 y Access a traves de ADO, tengo una tabla con dos campos: Codigo y Cliente. Los registros se añaden a traves de un form con dos DBEdit y la idea es que cuando se añada un nuevo registro, al terminar de escribir el Codigo, es decir, en el evento OnExit del correspondiente DBEdit se compruebe si ese codigo de cliente ya existe en la base de datos para evitar duplicados. Para hacer esto creo recordar que usaba algo parecido al siguiente codigo (despues de, evidentemente, llamar al metodo Insert):
pero me da un error que dice algo asi como: Cita:
Es muy probable que este cometiendo un error evidente pero como ya dije llevo bastante tiempo desconectado de las bases de datos y no lo encuentro... Mi duda es si el metodo LOCATE implica un POST cuando es llamado porque si no, no entiendo que "cambios" son los "solicitados" aludidos en el error... Un poco de luz por favor... Gracias y un saludo! JMGR |
#2
|
||||
|
||||
Hola...
y para ingresar los datos utilizas DBEdit o Edit ??? yo utilizo Edit.. y en el evento onExit pongo lo sgte (Estoy utilizando SQL Server - Delphi 7 y ADO para el SQL )
AQ_Consulta es un ADOQuery en donde pregunta si existe el codigo.. si es EOF (Fin de Archivo)...no existe y me pasa el sgte campo (vDet.Setfocus), de lo contrario existe y envio mensajes ... limpio variables Salu2
__________________
BlueSteel |
#3
|
|||
|
|||
Si. El metodo locate implica un post.
El problema q tienes es q el DBEdit es q ya actualiza la base de datos (hace un 'post') al salir, por lo que si el 'codigo' ya existe, te genera el error de 'valores duplicados' antes de llegar a tu codigo para encontrar el error. En otras palabras, el error q estas intentando 'pillar' lo detecta el servidor de base de datos antes. Deberias colocar el mensaje de error en el evento onPostError de la tabla, olvidandote de comprobar si ya existe ese codigo o no. Si lo que quieres es algo mas concreto, deberias buscar para 'cazar' excepciones. Un par de cosas que he visto q tambien son extrañas: - Si haces un locate, estas reposicionando el cursor en la base de datos por lo que si tienes la opcion UpdateWhereAll activada (que me parece q es por defecto), en el momento de salir estas cambiando el valor del dbedit antes que se actualizen los cambios. - Veo un Table.Edit pero no veo ningun post. Parece q dejas abierta la tabla en modo edicion. Lo correcto (para q no te pasen errores como este, pues si la dejas en Table.State = dsEdit te puede pasar de todo) es hacer Table.Edit; Table.FieldValues['NOMBRE'] := 'nombre de ejemplo'; Table.FieldValues['TEL'] := '9355555555'; ... Table.Post; Al entrar a los dbedits, estos automaticamente abren la tabla en modo edicion, y al salir postean, por lo que es innecesario incluir ese edit aqui. La mejor manera de hacer estas cosas es no usar los dbedits, y si usar el evento onexit de un edit normal y corriente, editando como te ponia antes. Si te empeñas con los dbedit, no uses el locate o filtros o nada parecido dentro de ellos (ni el next, prior, ni indexfieldnames...) pues si mueves el cursor de la base de datos ya la pifiaste PD: borland dejo de desarrollar sobre las TTable porque tenian (y provocaban) infinidad de bugs, te recomiendo q uses SQL, es mucho mas sencillo trabajar con ello Venga, espero haberte servido de ayuda Última edición por coso fecha: 08-05-2008 a las 00:47:04. |
#4
|
||||
|
||||
En lugar de Locate puedes usar LookUp para ver si el código ya existe sin cambiar el cursor del registro.
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
|||
|
|||
Cita:
Cita:
|
#6
|
|||
|
|||
Cuando llamas a edit, la TTable.State esta en dsEdit. Cuando llamas a locate, la TTable.State pasa a dsBrowse. Si tienes activado UpdateWhereAll en la tabla, que es por defecto, se hace un post automatico. Compruebalo con algun programilla o el debbuger...
Saludos Última edición por coso fecha: 09-05-2008 a las 12:53:43. |
#7
|
|||
|
|||
Bueno primero que nada pido perdon por la tardanza en dar noticias pero es que tuve que irme de viaje y no pude conectarme hasta ahora...gracias por la multitud de respuestas.
En principio de las soluciones propuestas la que mejor entiendo es la de BlueSteel de hacerlo con un Query pero no se si es "matar mosquitos a cañonazos"... El metodo LookUp ya lo he probado pero no me vale, por lo menos poniendolo en el OnExit, ya que sigue saltando el error...a lo mejor poniendolo en otro sitio pero no tengo claro donde... En cuanto a controlar el evento OnPostError estoy en ello pero me esta costando bastante entender como debo usarlo... Para empezar he probado a quitar el codigo del evento OnExit del DBEdit y no me salta ningun error aunque haya introducido un valor ya existente de lo cual deduzco que al salir del DBEdit no se produce automaticamente un POST...¿o si..? Este codigo me produce un bucle infinito, se el por qué, pero no me aclaro de como hacerlo:
¿Donde estoy tropezando? PD:¿ Como puedo cambiar la opcion UpdateWhereAll? Edito: A la espera de respuestas por ahora lo he solucionado comprobando si existe el valor del campo con otro componente ADOTable apuntando a la misma tabla... Última edición por JMGR fecha: 16-05-2008 a las 22:21:43. |
#8
|
|||
|
|||
no no al salir del DBEdit no se produce un post mil excusas. Eso si, el locate si que hace updates a la base de datos (no me preguntes cuando, creo q con el UpdateWhereAll activado pero no estoy seguro. Personalmente, estoy escarmentado de mover el cursor de una tabla si esta en modo edit). Si tu mueves el cursor de la tabla (locate, gotonearest, etc...) el valor de DBEdit se actualiza solo. Prueba de hacer, en el momento en que hagas post, olvidandote de los eventos, algo asi:
Venga, a ver si te sirve. PD: La propiedad UpdateMode de la tabla o query puede tener la opcion UpdateWhereAll, UpdateWhereChanged y UpdateKeyOnly PDD : Si el codigo cliente es un indice, no seria mejor q lo adjudicase de manera automatica? En el caso q no, en el evento OnExit del dbedit del codigo cliente (poco elegante pero efectivo)
Última edición por coso fecha: 16-05-2008 a las 22:37:04. |
#9
|
||||
|
||||
Tus intuiciones son ciertas JMGR
Cuando se produce el OnPostError, debes tener en cuenta que tienes un registro en Edición (dsEdit o dsInsert) que está modificado pero aún no se ha guardado ese cambio, es más, no se puede guardar porque ha producido un error. Pero que no se te escape otro detalle, la Tabla se encuentra apuntando a ese mismo registro que da error. Tienes las alternativas del parámetro Action (no recuerdo cuales son ), pero tal y como veo tu código, no veo alternativas para tu usuario, es decir, tu usuario no podrá continuar hasta que cambie el código de ese cliente y al guardar no dé errores:
Con eso, informas al usuario y dejas el registro en edición, esperando a que cambie el código. A otra cosa modosa: ¿estás seguro que el OnPostError se produce por el fallo del código de forma exclusiva? Obviamente no, ocurrirá cuando: - Si un campo es Requerido (not null) pero tiene el valor null - Un índice único sobre algún campo está a punto de violarse ( - Por pérdida repentina de conexión a la base de datos (... no sé si está en red o no). - etc. Para saber el error que ha ocurrido, tendrás que indagar en las "ADOExceptions" para obtener el código de error... y aquí será mejor que un entendido en ADO hable mejor que yo. Básicamente sería algo así como:
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 16-05-2008 a las 22:36:59. |
#10
|
|||
|
|||
Bueno de momento lo he solucionado con la poco elegante pero efectivisima forma propuesta por coso ( no puedo generarlos de manera automatica porque esos codigos ya estan creados anteriormente):
Cita:
Lepe: Cita:
La mejor forma, como indicas, seria identificar el error segun su codigo y comprobar que es debido a un valor duplicado pero he estado buscando y no he encontrado ninguna lista de los errores asi que por ahora me conformo con que funcione... Cualquier sugerencia mas sera bienvenida... Gracias por el interes y sobre todo por las respuestas. Un saludo. JMGR |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cancelar accion de un evento OnExit | FGarcia | Varios | 5 | 11-05-2007 13:38:18 |
Evento 'OnExit' del Form | Wellnic | OOP | 3 | 10-04-2007 19:08:51 |
Error en evento OnExit en TDBEdit | halcon_rojo | Varios | 1 | 27-04-2006 23:17:19 |
Problemas con evento OnExit | santi33a | Varios | 4 | 15-04-2006 13:30:50 |
Evento OnExit de un Edit | Caro | OOP | 1 | 03-02-2006 17:57:01 |
|