Problema ejecución consulta

[Neftali [Germán.Estévez]]

¡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]

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]]

Empezado por nena_yei

...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]

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]]

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

[ecfisa]

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.

[ecfisa]

Anduve lento en preguntar por la base de datos y los componentes....
Ya respondieron más arriba: Acces y TADOQuery..

Saludos.

[nena_yei]

Este enlace pinta muy bien! Pero no sé muy bien como aplicarlo.. Lo del CustomConstraint lo tengo que poner en el componente TQuery donde hago el open y falla? En la propiedad Constraints pongo lo de FIELD IS NOT NULL?

Muchísimas gracias, espero que me expliqueis un poco como hacerlo y que sea la solución!

Un saludo

[nena_yei]

Suena surrealista y yo soy la primera en sorprenderme en el número de carácteres de la consulta..pero he copiado la consulta en el word (despues de almacenarla en un Archivo.txt tal y como me explicasteis) y la consulta con 4 bloques son 26864 carácteres y no falla y la de 5 bloques son 33947 carácteres. No sé si el problema viene cuando pasa de 30000.
La consulta es así de larga porque es una aplicación que está creando una universidad, el departamento de filología hispánica, y la consulta lo que hace es buscar un conjunto de condiciones que indica el usuario dentro de muchos registros, entonces por ejemplo la consulta que estoy ejecutando alctualmente es cuando el usuario pone que quiere buscar: (árbol o arbusto) Y España. Y claro..el problema es que tiene que buscar la palabra árbol pero que tiene que encontrar todas las palabras árbol que estan seguidas de cualquier signo de puntuación, entonces he tenido que hacer "parches", una condición para cada tipo.. en plan:
"tabla.campo like "% ('+palabra+' %" OR tabla.campo like "%''('+palabra+' %" OR tabla.campo like "% ('+palabra+') %" or ...."
Y así teniendo en cuenta un montón de combinaciones con símbolos. Intenté hacerlo con expresiones regulares, pero se ve que en Delphi no se puede con sql, porque intente convertir una consulta que tenía en Acces para que funcionara a través del TQuery y no hubo manera (como "tabla.campo like "%[^a-z]'+palabra+'[^a-z]%").
Así que no me quedó más remedio que hacer todos los parches, entonces la consulta queda infinita, pero son los parches que ha indicado y que necesita el cliente.

Es desesperante.. Qué puedo hacer?
He probado de poner en el TQuery eso de FIELD IS NOT NULL en el Constraints pero no da resultado, sigue fallando, leyendo bien el link pone esto: The bug occurs and is reproducable by just setting one DefaultExpression on any DataSet. Y no debe ser el caso por el que salta mi error.

Gracias, un saludo