|
Propiedad Locate
Hola a todos!
Necesito realizar unas comprobaciones en mi aplicación antes de eliminar un registro en la Base de Datos. El problema es que no se como realizar más de una comprobación, me explico; if (not (DataModule.Query1.Locate('param1', Edit1.text, [])) and (DataModule.Query1.Locate('param2', edit2.text, [])) then Application.Messagebox ( ........ Si sólo realizo la comprobación de la primera línea todo va bien pero al hacer el AND el programa me salta las tres líneas de código como si no estuvieran ( Lo he probado podiendo un punto de ruptura y con F8). Por lo visto no lo estoy haciendo del modo correcto. Alguna idea? Gracias!! |
Hola dsa!
Nunca se va cumplir la condición y por eso te salta las líneas. Cuando haces un locate, te posicionas en el registro de la tabla, no puedes posicionarte en dos registros de la tabla a la vez por lo tanto nunca se cumple el if. Espero haberme explicado bien. En vez de locate utiliza lookup o bien create una nueva consulta. Espero que te sirva. Saludos!:) |
Hola!!
He probado con esto; if (not (DataModule.Query1.Lookup('param1;param2', VarArrayOf(['edit1.text','edit2.text', []))) Pero tanto con Lookup como con Locate me salen los mismos errores; Missing operator or semicolon Ordinal type required Incompatible types: 'Integer' and 'String' Por lo que he visto en la ayuda del Delphi lo podria hacer tambien con un Locate. Ahora ya no se qué hacer. Muchas Gracias!! |
Debieras de optar por la segunda opción que te indica Nuria, es decir crear una consulta con el predicado Or si obtienes algún registro haces lo que proceda.......
Un Saludo. |
El planteamiento de dsa132132 es totalmente correcto, lo que pasa es que quizás en lugar de AND ha de ser un OR (tampoco se exactamente lo que quiere conseguir), pero el uso de los 2 Locates en el IF no es erróneo
Básicamente lo que hace el if este es que si no existe un registro en el que el campo "param1" sea igual a Edit1.Text (es decir, Param1 <> Edit1.Text) y sí existe un registro en el que el campo Param2 sea igual a Edit2.Text, muestre el mensaje Quizás es que Param1 y Param2 no son los nombres de los campos??? Si fuera esto, tendrías que quitarle las comillas No obstante, también creo que lo del SQL es una muy buena opción (por no decir la mejor si la tabla es grande) |
Quizás no me explique bien, el uso de dos locates es correcto pero no el AND, porque nunca se cumplirá esa condición, no por otra cosa. Menos mal que siempre está cadetill para explicarlo mejor....;rolleyes:
|
El problema es que no nos dice que comprobación es la que quiere realizar. Yo por ejemplo para eliminar un cliente supongamos que la condición es que no tenga ninguna factura ni ningún albarán.
nContro:=0; Busca Facturas. Si encuentra 1, no interesa si tiene más ó no. nContro:=nContro+1; Busca Albaranes, lo mismo que el anterior. nContro:=nContro+1;
Un Saludo. |
Hola a todos;
Quizás he sido yo desde un principio el que no se ha explicado con claridad, lo que intento es lo siguiente; Deseo eliminar en registro de la Base de Datos pero antes hago la comprobación de que ese registro existe en la Base de Datos. Hasta aqui bien. Ese registro que deseo eliminar tiene 3campos como clave primaria (antes había puesto sólo 2 por simplificar mi consulta, supongo que será lo mismo), entonces intentava hacer un Locate sobre esos 3 campos porque si lo hago sobre uno solo no es correcto. He probado con OR en vez de AND pero sigue saltándose la instrucción. Muchas gracias a todos por vuestro interés!! |
Sí, vale, pero Busca Facturas y Busca Albaranes han de ser una función (por ejemplo) que realice o bien un Locate sobre las tablas pertienentes, o una sentencia SQL o lo que nos de la gana. Si la elección fuera la del Locate, se puede hacer todo directamente en el mismo IF y ahorrarnos la variable :p
De hecho, yo más o menos suelo hacer lo mismo que tu, pero en lugar de la variable, pongo un Exit Como suelo hacer funciones, el que se encarga de mostrar o no el mensaje será el que llame a ésta. No obstante, como ya decía anteriormente y comentas muy bien, sin saber exactamente lo que pretende conseguir con esos Locates, es hablar por hablar |
Vaya, antes respondo, antes se me adelanta :p
Si lo que quieres es mirar por 3 campos a la vez....
|
Yo no veo ningún problema en usar dos locates en el mismo if, incluso con AND. Esto, porque delphi no se traga toda la comprobación de un bocado.
Realiza el primer locate, que deja el puntero en un registro, y luego el segundo, que lo deja en otro. Ahora... que esto se vea como dos pasos en el debugger... eso no lo creo, pues la operación que traza es el IF, y no cada condición. Salvo que se pueda entrar a debugear el código del Locate, y que se trace con StepIn, entraria dos veces. Otro punto a tener en cuenta es el estado de la directiva del compilador {$B} que es el Boolean ShortCircuit. Cuando está activado, que es mas optimo, hace que el compilador deje de evaluar las condiciones en cuanto pueda determinar el resultado de la operación completa. Asi, si está en {$B+}, y el primer Locate devuelve FALSE, nunca evaluará el segundo, pues no tiene sentido para el resultado de la operación, dado que se usa AND. Si se usara OR y el primero devuelve TRUE, igual, nunca se evaluaria el segundo. Si el programador necesita que se evaluen todas las condiciones, independientemente de esto, por ejemplo, porque realizan alguna tarea imprescindible, entonces debe desactivar el Short Circuit, bien dentro de la pestaña del compilador, para todo el proyecto, o bien con la directiva {$B-} en el punto donde le interese. Saludos. ;) |
Cita:
Este tampoco es correcto. Supone que tenes los registros: Código:
campo1 campo2 campo3Bien sea con un locate que abarque los tres campos, o con un Query que incluya los tres en el predicado, si podes garantizar que un registro existe en la BD. Hasta luego. ;) |
Saludos!
Al final lo he hecho mediante IF anidados; if (not (DataModule.Query1.Locate('param1', Edit1.text, [])) then Application.Messagebox ( 'Error...... else if (not (DataModule.Query1.Locate('param2', Edit1.text, [])) then Application.Messagebox (..... ... No creo que sea la solución mas eficiente pero me ha parecido la más sencilla y he estado haciendo pruebas i parece que funciona bien. Muchas gracias a todos por vuestra ayuda e interes!! |
Cita:
// Saludos |
Cita:
Cita:
Cita:
:D |
Código:
if MiTabla.Locate('campo1; campo2; campo3', VarArrayOf[Valor1, Valor2, Valor3], []) thenSaludos |
Buen dia Foro..
Disculpa por meterme aca y no abrir un hilo nuevo, pero ya que estaba este problema planteado y al codigo lo saque de este hilo, me gustaria consultar una duda y un problema que tengo con tal codigo.. Yo estoy utilizando este codigo
pero el error que me salta ami es Código:
[Error] Not enough actual parameters
Me podrian decir donde o que estoy haciendo mal.. Desde ya muchisimas gracias.. |
Hola Vales.
Cita:
Por favor recordá que : nueva pregunta = nuevo hilo ;) Saludos. |
Buen día.
Además de lo ya dicho por ecfisa, añadiría que tu código puede mejorar de varias maneras. Por ejemplo, mirá este código equivalente (pero más compacto):
Un saludo. Cita:
Un saludo. |
Muchas gracias por sus respuestas, me comi los parentesis, aunque en verdad yo como no sabia la sintaxis me guie de la que habian expuesto y no sabia que los llevaba a tales parentesis, ahora me funciona barbaro..
Y con respecto al mejoramiento del codigo te lo agradezco jachguate, lo tendré en cuenta, aunque asi me funciona muy bien y estoy apunto de terminar este proyecto para ser entregado y rendir la tesis. si fuera en otra ocasion me tomaria el tiempo para hacerlo.. Muchas gracias por su tiempo, me fueron de gran ayuda.. |
| La franja horaria es GMT +2. Ahora son las 01:13:49. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi