Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Problema ejecución consulta (https://www.clubdelphi.com/foros/showthread.php?t=68767)

nena_yei 06-07-2010 12:25:55

Problema ejecución consulta
 
Hola

Tengo una consulta sql muy larga con muchísimas condiciones, que no puedo tocar porque la ha hecho otro programador, el código es correcto y obtiene los resultados acertados. Pero el problema esta.. en que esa consulta puede ser más o menos larga dependiendo de los apartados seleccionados (puedes seleccionar con unos checkbox en qué apartados quieres realizar la búsqueda), entonces.. la consulta sql funciona perfectamente si selecciono 4 de estos apartados, cuando ya selecciono más de 4 (sean cuales sean) el programa lanza el siguiente error:

Project dech.exe raised exception class EAccessViolation with message 'Access violation at address 4C6217B3 in module 'idsql32.DLL'. Write of address 09B22000'.

Es un problema como de ejecución, no? Como si se saturara, como podría solucionarlo? Ya comento que la consulta sql no tiene errores, el problema es cuando es demasiado grande la consulta creo y hay demasiadas condiciones, que yo creo que se satura y lanza el error. Pero no sé, vosotros sois los expertos.

Espero que podais ayudarme. Muchas gracias!

ecfisa 06-07-2010 13:20:34

Hola nena_yei.

En primer lugar, te pido disculpas por tomarme la libertad de contestar
sin ser experto. Pero mi intención es ayudarte en lo que pueda.

Con los datos que aportas, sólo puedo remitirme al error genericamente.
Y si buscamos en la ayuda de Delphi, nos dice:
Cita:

EAccessViolation is raised when an application
.Dereferences a nil (Delphi) or NULL (C++) pointer.
.Writes to memory reserved for executable code.
.Attempts to access a memory address for which there is no virtual memory
allocated to the application.
Run-time exception information is saved in fields provided by EExternal.
Note: Applications should not raise EAccessViolation directly, but should
instead rely on the runtime to raise this exception.
Particularmente me suena a error de uso o liberación de memoria sin asignar...
Miraría en la creación de los componentes que uses (si los creas en tiempo de ejecución) y en la liberación de los mismos.

Saludos.

Neftali [Germán.Estévez] 06-07-2010 14:06:33

Como bien han dicho, ese error suele aparecer cuando se accede a una posición incorrecta de memoria. Normalmente cuando hay algo que no se ha creado o que ya se ha liberado.

Deberías ejecutar paso a paso y detectar en qué línea está saltando el error.

Lo que está claro, es que no es un error en la consulta, como tú dices.

El problema es que sin ver el código es difícil saber algo más.

Intenta encontrar (si la hay) una secuencia en la que selecciones condiciones, que te genere ese error y a partir de ese punto, intenta ejecutar paso a paso para encontrar el error.

nena_yei 06-07-2010 15:27:56

Gracias por las respuestas

Antes de poner el tema, debugué paso a paso, es lo primero que hago siempre. Y todo bien hasta que hace el open del query, que es cuando salta el error. Entonces por mucho que voy paso a paso, no consigo nada, porque hasta el final no salta. Si fuera algo de componentes o algo, el error saltaría igualmente aunque la consulta fuera con menos condiciones, y no salta.

Me tiene desconcertada :( No hay alguna manera de hacer algo para no sé, limpiar la memoria para intentar que el query no desborde la aplicación?

Caro 06-07-2010 15:42:05

Cita:

Empezado por nena_yei (Mensaje 369343)
Antes de poner el tema, debugué paso a paso, es lo primero que hago siempre. Y todo bien hasta que hace el open del query, que es cuando salta el error. Entonces por mucho que voy paso a paso, no consigo nada, porque hasta el final no salta. Si fuera algo de componentes o algo, el error saltaría igualmente aunque la consulta fuera con menos condiciones, y no salta.

Me tiene desconcertada :( No hay alguna manera de hacer algo para no sé, limpiar la memoria para intentar que el query no desborde la aplicación?

Hola nena_yei, muéstranos parte del codigo donde da el error para poder ayudarte mejor, porque solo con lo que has descrito hasta ahora, es dificil adivinar donde podría estar el error.

Saluditos

nena_yei 06-07-2010 15:48:50

Código:

con:=con+') and apartado="L" and doc=1 order by lemaord';
  con:=stringreplace(con,'#','_',[rfReplaceAll]);
  dades.q1.close;
  dades.q1.sql.text:=con;
  screen.Cursor:=crHourglass;
  self.Cursor:=crHourglass;
  dades.q1.open;

Este es el fragmento donde está el código que falla. El código que hay antes es el montaje de la consulta y ponerlo aquí en el foro sería una locura, porque son demasiadas lineas. Espero que con esto os sirva.

Gracias

Neftali [Germán.Estévez] 06-07-2010 15:56:28

¿Tienes algun evento asociado a q1 con código?
¿AfterOpen, BeforeScroll,...?

nena_yei 06-07-2010 16:07:04

No, ninguno, acabo de hacer la comprobación

Neftali [Germán.Estévez] 06-07-2010 16:12:03

Alguna otra prueba...
Desconecta TODOS los componentes visuales que tengas asociados a esa consulta y lánzala de nuevo (no creo que tenga nada que ver, pero pruébalo).
Guarda las consultas en algun LOG antes de lanzarlas y comprueba luego la longitud de las que te fallan. No estén rebasando un límite (256, 512,...).
Comprueba también que las que te fallan no tengan ningun caracter extraño (acentos, ñ,...)
A veces con algun WHERE por fechas o similar puede dar problemas (separadores). Comprueba que las que fallan no tengan algo en común...

P.D: En estos momentos ya estamos consultando la bola de cristal...:(

nena_yei 06-07-2010 16:20:34

La condición que me falla no es siempre la misma, es decir, yo tengo 6 apartados para hacer la búsqueda. Entonces, elija los apartados que elija (tanto da cual) si selecciono más de 5, salta el error, sean los que sean, no es un conjunto de condiciones que falle, sino como si fallara en global, porque todo por separado funciona perfecto. Cuando se acumulan demasiadas es cuando falla.

Hay algún límite de caràcteres de consulta sql para ejecutar el query? Que no sea que el query solo admite hasta X carácteres y por eso esté fallando, porque se desborda, podría ser? Esto tiene solución?

Neftali [Germán.Estévez] 06-07-2010 16:24:41

Eso puedes probarlo poniendo directamente el código de la consulta que se te genera en la propiedad SQL del Query. Pon una de las que funciona y una de las que falla. Si es por tamaño, la que falla, fallará igualmente si la pones directamente en la propiedad.

nena_yei 06-07-2010 16:55:20

Para copiar la consulta sql que ejecuta en ese momento (la grande) en un fichero externo, así en plan rápido para tener una especie de LOG para luego ponerlo directamente en la propiedad SQL del componente Query, como lo hago? Es que no suelo trabajar con Delphi y seguro que hay una manera rápida y sencilla de hacerlo.

Gracias!

Caro 06-07-2010 17:02:54

Cita:

Empezado por nena_yei (Mensaje 369365)
Para copiar la consulta sql que ejecuta en ese momento (la grande) en un fichero externo, así en plan rápido para tener una especie de LOG para luego ponerlo directamente en la propiedad SQL del componente Query, como lo hago? Es que no suelo trabajar con Delphi y seguro que hay una manera rápida y sencilla de hacerlo.

Hola de nuevo, puedes utilizar un StringList y hacer algo como esto:

Código Delphi [-]
var
 sl :TStringList;
begin
 sl := TStringList.Create;
 Try
  sl.Add(Query.SQL.Text);
  sl.SaveToFile('Archivo.txt');
 Finally
  sl.Free;
 end;

Revisa bien que las consultas que estas generando esten bien, como te ha indicado Neftali.

Saluditos

Caro 06-07-2010 17:08:51

También puedes mostrarnos la consulta que se genera en la que te da error.

Saluditos

Neftali [Germán.Estévez] 06-07-2010 17:19:28

¡Qué grande Caro! (me has leído la mente)
Justamente lo que te ha comentado.

Si además añades esto al código:

Código Delphi [-]
var
 sl :TStringList;
begin
 sl := TStringList.Create;
 Try
  if FileExist('c:\Archivo.txt') then begin
    sl.LoadFromFile('c:\Archivo.txt');
  end;
  sl.Add(Query.SQL.Text);
  sl.SaveToFile('c:\Archivo.txt');
 Finally
  sl.Free;
 end;
Tendrás un fichero que va guardando historial de todas las consultas que ejecutas.

nena_yei 06-07-2010 17:33:57

Os cuento..he hecho lo que me habéis comentado, gracias! Y una vez tenía guardada la consulta en el archivo Archivo.txt, la he puesto en el Query manualmente en la propiedad SQL, he puesto la sentencia Open del query al principio de todo de la aplicación, donde no hay nada más y salta el mismo error! Y he ejecutado la consulta en Access y funciona correctamente, así que el código sql está bien.

Como podría solucionarlo¿? Ahora ya sé que no tiene nada que ver con componentes de aquella parte donde lo estaba ejecutando ni nada, porque ahora lo he puesto al inicio y salta el mismo error.

Muchas gracias, se os ocurre como hacerlo?

Un saludo

Neftali [Germán.Estévez] 06-07-2010 18:13:26

Cita:

Empezado por nena_yei (Mensaje 369385)
...he puesto la sentencia Open del query al principio de todo de la aplicación, donde no hay nada más y salta el mismo error! Y he ejecutado la consulta en Access y funciona correctamente, así que el código sql está bien.

Hola; Bueno, poco a poco vamos afinando....

¡¡Craso error el pensar que lo que funciona en Access funciona también desde un TADOQuery (que supongo que es lo que estás utilizando) o un TQuery.

Los ficheros de datos del Motor Jet4 son ficheros MDB. Access no es más que un programa para gestionar esos ficheros y la sintaxis de Access no es del todo estandard, así que hay "determinadas cosas" que funcionan en Access y no funcionan fuera (desde ADO, por ejemplo).

Debeías poner la sentencia para verla, o eliminar paulatinamente partes de la sentencias e ir lanzándolas desde el Query, para ver qué parte es la que falla.

Por ejemplo, algunas cosas que pueden fallar "desde fuera", son los parámetros de Access (esta es evidente), tema de fecha (por los separadores), algunas funciones (iif,...),....

nena_yei 06-07-2010 18:18:30

Te cuento..he ejecutado todas las partes por separado y no hay ningún problema, las ejecuta todas correctamente, sin errores y con los resultados correctos.
Junto dos partes y no hay problema, junto 4 partes y nada, pero cuando pongo 5 partes, salta el error. No sé si es que en ese momento el TQuery se satura o que.. No es un trozo de código concreto el que falla, sino cuando lo pongo todo junto y hay demasiado. Por eso creo que es algo de que el TQuery se vuelve loco con tanta consulta o que tiene X carácteres permitidos y salta el error, o algo de memoria. Porque si fuera el sql al ponerlas por separado también fallarian, y no es ningún fragmento en concreto.

Neftali [Germán.Estévez] 06-07-2010 18:34:09

¿De cuantos caracteres hablamos? ¿Los has contado? ¿Cuantos tiene con 4 trozos y cuantos con 5 trozos?

ecfisa 06-07-2010 18:35:00

Hola de nuevo nena_yei.

Sigue siendo muy ambiguo el tema, me hubiera gustado saber con que base de datos estás trabajando y con que componentes te conectas con ella...

Pero a ver si esto te sirve: (Solution--IDSQL32.DLL and Access Violations)

http://<a href="http://delphi.cjcsof...a=page%3D1</a>

Saludos.


La franja horaria es GMT +2. Ahora son las 11:54:56.

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