Consulta con dos bbdd

[Catublipas]

He eliminado la coma última, y he hecho lo que me has puesto, pero me salen los campos vacíos, sin embargo si en cProyectos lo igualo a un solo numero de proyecto, si que me coge los datos. Pero el string lleno de proyectos no. Es decir, solo con un numero de proyecto si que va, con varios separados por comas no.

¿Por qué puede ser esto?

[Casimiro Notevi]

Empezado por Catublipas

¿Por qué puede ser esto?

Haz un copia->pega de tu código para que pueda verlo

[Catublipas]

Con este ejemplo si que funciona, ha sido una prueba que quería hacer ya que con la variable asignada a un solo proyecto si que funciona :P, ademas superrapido.

Código SQL [-]
begin
  cProyectos:='';
  IBQuery1.Close;
  IBQuery1.Open;
  while not IBQuery1.Eof do
  begin
    cProyectos := cProyectos + IBQuery1.Fields[0].AsString + ',';
    IBQuery1.Next;
  end;
  cProyectos := Copy(cProyectos,0,Length(cProyectos)-1);
  cProyectos := '3132';   //Es una prueba, solo he asignado un proyecto
  IBQuery2.SQL.Text:='select * from FACTURAS where PROYECTOS in ('+ cProyectos +')';
  IBQuery2.Close;
  IBQuery2.Open;

Y este sería el código que debería funcionar:

Código SQL [-]
begin
  cProyectos:='';
  IBQuery1.Close;
  IBQuery1.Open;
  while not IBQuery1.Eof do
  begin
    cProyectos := cProyectos + IBQuery1.Fields[0].AsString + ',';
    IBQuery1.Next;
  end;
  cProyectos := Copy(cProyectos,0,Length(cProyectos)-1);
  IBQuery2.SQL.Text:='select * from FACTURAS where PROYECTOS in ('+ cProyectos +')';
  IBQuery2.Close;
  IBQuery2.Open;

La segunda al dejar la variable con los proyectos separados por ',' no muestra resultado, sin embargo la primera va clavada, muestra los resultados de ese proyecto.

[Casimiro Notevi]

Esto va al revés:

Código Delphi [-]
IBQuery2.Close;  // primero cerramos
IBQuery2.SQL.Text:='select * from FACTURAS where PROYECTOS in ('+ cProyectos +')';   // asignamos la sql
IQuery2.Open;  // abrimos

De todas formas, pon un breakpoint en la línea IBQuery2.Open y cuando se detenga ahí, mira el valor de IBQuery2.SQL.Text

[Catublipas]

El valor de

Código Delphi [-]
Self.IBQuery2.FText 'select * from FACTURA where PROYECTO in (9,10,30,31,32,43,59,62,71,77,79,80,81,86,130,134,136,139,140,145,146,151,158,161,163,165,167,171,18  1,196,197,199,211,237,242,266,310,314,316,323,359,377,379)'#$D#$A

Me pilla perfecto todos los proyectos, pero no los muestra .

[Casimiro Notevi]

Coge la sentencia (copy/pega) y ejecútala en el flamerobin, ibexpert o en el 'manager' que uses.

Código SQL [-]
select * from FACTURA where PROYECTO in (9,10,30,31,32,43,59,62,71,77,79,80,81,86,130,134,136,139,140,145,146,151,158,161,163,165,167,171,18  1,196,197,199,211,237,242,266,310,314,316,323,359,377,379)

[Casimiro Notevi]

171,18  1,196,

¡Ah, ya veo el fallo! hay un espacio ahí, ¿eso cómo puede ser?

[Catublipas]

Pongo otro ejemplo mas corto

Código Delphi [-]
Self.IBQuery2.FText 'select * from FACTURA where PROYECTO in (12,38,156)'#$D#$A

y me sigue sin mostrar. y aquí no ha espacio.

[Casimiro Notevi]

Self.IBQuery2.FText 'select * from FACTURA where PROYECTO in (12,38,156)'#$D#$A

Pero ahí hay un montón de errores, si pones código que sea el que de verdad estás usando.

[Catublipas]

Lo tengo Casimiro,

fallo mío, estaba trabajando con el ejemplo que hemos puesto, y en la bbdd, no lo he transcrito con los campos exactamente y por eso no se mostraba.

Casimiro esto funciona de lujo, mucho más rápido que puenteando las bases de datos.

Eres un genio. Si hay alguna forma que pueda ayudaros, dímelo.

Me has resuelto un problemón.

Muchísimas gracias.

Un saludo!