Consulta con mas de 4096 caracteres

[Uni-Sol]

Buenos días.

Tengo un problema con una consulta realizada en una Tquery y es que mi consulta es un poco bestia y ocupa mas de 4096 carácteres con lo cual al realizarla sobre un tquery me corta el codigo sql. Esta query la quiero volcar en un dbgrid.

¿Sabeis si hay alguna forma de poner un consulta con mas 4096 caracteres en un tquery?

Muchas gracias de antemano y un saludo.

[Casimiro Notevi]

¿Un tquery de qué componentes?

[Uni-Sol]

No se si te refieres a esto pero utilizo el componente TQuery que viene en la pestaña del Data Access de delphi 5. Utilizo el TQuery, el TDataSource y un TDBGrid.

[Casimiro Notevi]

¿Quiéres decir que metes la sentencia, lo guardas y cuando lo abres ya lo ha recortado?, ¿y a cuánto te lo corta?, he hecho una pruebecita con un proyecto nuevo, he puesto un tquery del que comentas y he metido un texto de más de 5000 caracteres en su propiedad 'sql', lo he guardado, cerrado el proyecto, lo he vuelto a abrir y ahí estaban todos los caracteres, con delphi 5 también.

[Uni-Sol]

Tienes razón, he probado lo que has dicho de poner la consulta entera dentro de la propiedad sql del tquery y si que me funciona. Pero yo lo hago rellenando la query desde código. Te pongo el principio del código para que veas como añado la consulta.

Código Delphi [-]
Qry_Principal.Active := False;
Qry_Principal.sql.Clear;
Qry_Principal.SQL.Add('select distinct d.area_s,tp,mer,ter,eer,aer,mec,tec,dc,eec,aec,dp,pm,aep,mrs,ers');
Qry_Principal.SQL.Add(' from detall_q_sit d,');
// Total Pendientes
Qry_Principal.SQL.Add('(select area, count(*) as tp');
Qry_Principal.SQL.Add(' from detall_q_sit');
Qry_Principal.SQL.Add(' group by area) t_p,');
.
.
.
.

Qry_Principal.Active := True;

Asi voy añadiendo la consulta en la Tquery. El problema viene cuando al ejecutarla me da un error de que falta un parentesis en la consulta y para ver que me ha generado me detengo justo antes de que active la query y miro la consulta que me ha generado. Veo el chorro de la consulta y justo en el caracter 4096 se corta y empiezan unos serie de caracteres (muchos) como estos "#0#0#0#0#0#0#0#0#0#0#0#0#8',R'#0'È~-'#7'Dª'#0".

No se si me he explicado bien . Pero bueno ahi reside mi duda. ¿Porque no me genera correctamente la sentencia justo cuando llega a ese número de caracteres?

[Casimiro Notevi]

Sí, eso es un problema, pero es del delphi, que dejaron poco espacio para presentar el código, de todas formas, si lo seleccionas entero y lo pegas a un editor cualquiera verás que está el código completo.

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

Puede ser que al añadirla "a trazos" te esté incluyendo caracteres de LF y CR (Final de carro y salto de línea).
Tal vez deberías utilizar alias para intentar hacerla más pequeña o intentar eliminar esos caracteres a medida que añades las partes.

Otra opción que puedes probar es acceder vía la propiedad Text:

Código Delphi [-]
...
Qry_Principal.SQL.Text := Qry_Principal.SQL.Text + ' from detall_q_sit d,';
...

[Casimiro Notevi]

Empezado por Uni-Sol

[..] Veo el chorro de la consulta y justo en el caracter 4096 se corta y empiezan unos serie de caracteres (muchos) como estos "#0#0#0#0#0#0#0#0#0#0#0#0#8',R'#0'È~-'#7'Dª'#0".

No se si me he explicado bien . Pero bueno ahi reside mi duda. ¿Porque no me genera correctamente la sentencia justo cuando llega a ese número de caracteres?

Seguramente la sentencia tiene realmente un error.
Para más comodidad puedes hacer lo que dice Neftalí, usar la propiedad text:

Empezado por Neftali

Puede ser que al añadirla "a trazos" te esté incluyendo caracteres de LF y CR (Final de carro y salto de línea).
Tal vez deberías utilizar alias para intentar hacerla más pequeña o intentar eliminar esos caracteres a medida que añades las partes.
Otra opción que puedes probar es acceder vía la propiedad Text:[..]

Neftalí, puede ser que el fallo también esté ahí, pero lo que he comentado antes ocurre con delphi5, ese 'edit' está limitado a 4 kb.

[Uni-Sol]

Tienes razón Casimiro, en la ventana de evaluate/modify accedía a la propiedad text para coger la consulta y por lo visto es lo que tu dices, está limitado a 4kb y por eso después del carácter 4096 me ponía los caracteres que he comentado antes, no sabía que pasaba esto en delphi 5. He pasado la propiedad Tquery.SQL.text a un memo y me ha puesto la consulta correctamente y de allí ya he podido ver donde residía el error, que he solucionado y ya me muestra los datos en el dbgrid.

Muchísimas gracias Casimiro y a ti también Naftalí sin vuestra ayuda no me hubiera salido.

Un saludo!!

[Casimiro Notevi]

Ya me tocó en su día luchar con ese problema hasta descubrirlo