Consulta con dos bbdd

[Catublipas]

Rectifico esa sería la interseccion te muestro las dos tablas:

TABLA PROYECTMANAGER

Código SQL [-]
    ProyectM  Proyectos        
     6            1                                                             
     6            2                                         
     6            3

TABLA FACTURAS

Código SQL [-]
Proyectos       Factura        Importe  
  1               001           200€
  1               002           300€
  1               003           5400€
  2               004           100€
  2               005           700€
  3               006           1200€

[Casimiro Noteví]

Pero si lo tienes hecho. De la BD1 extraes los proyectos:

Código SQL [-]
select proyectos from froyectmanager where proyectm= : parametro

Luego puedes crear un string con el resultado, mediante un bucle, algo similar a:

Código Delphi [-]
cProyectos:=''
while not query1.eof do
  cProyectos = cProyectos + query.fields[0].asstring + ','
  query1.next
end;

Ahora tienes en cProyectos algo así: 1,2,3,
Quitas la última coma, que sobra.
Ahora montas una sql para la BD2
ibquery2.selectsql.text='select proyecto,factura,importe where proyecto in (' + cProyectos + ')'
Y la ejecutas.
Ya tienes los resultados en el ibquery2, que si lo enlazas mediantes un datasource a un dbgrid... ya está.

[Catublipas]

Eyyy que buena idea .
Lo pruebo este mediodía y te digo algo .
Muchas gracias!!

[Catublipas]

Buenas Casimiro,
estoy retomando el tema y tiene muy buena pinta, porque me quitaría un bucle anidado.
Una pregunta ¿Como recorro el String para que se tome como parámetro la variable cProyectos en la segunda consulta?

Muchas gracias!

[Casimiro Noteví]

Empezado por Catublipas

¿Como recorro el String para que se tome como parámetro la variable cProyectos en la segunda consulta?

No tienes que recorrer el string, solamente quitarle la última coma, que no sirve.
Por ejemplo, si en cProyectos tenemos '1,2,5,14,22,' quitamos la última coma y la sentencia quedará como he puesto antes:

Código Delphi [-]
unavariable = 'select proyecto, factura, importe where proyecto in (' +cProyectos+ ')'

Por lo que la variable unavariable tendría:

Código SQL [-]
select proyecto, factura, importe where proyecto in ( 1,2,5,14,22 )

Lo asignas al query y lo ejecutas, nada más.

[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 Noteví]

Empezado por Catublipas

¿Por qué puede ser esto?

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