Consulta con dos bbdd

[Casimiro Noteví]

Pero se supone que el campo 'proyectos' de la segunda BD tendrá el código del campo 'proyectos' de la primera BD, ¿no?

Por cierto, ¿por qué están en bases de datos separadas?

[Catublipas]

Es el mismo campo sí, por decisión de los anteriores programadores se estableció así la estructura de las bbdds, yo tampoco le ví mucho sentido. Pero me es imposible cambiar la estructura de la base de datos, si estuvieran en la misma base de datos, sería solo hacer un SELECT, un join de las claves y el Where = 'codigo del Edittext'.
Pero necesito hacerlo desde Delphi.

[Catublipas]

Realmente yo no necesito mostrar ni guardar los datos de la primera consulta, pero si que tienen que servir de filtro para la segunda, es decir, que coja los proyectos en la primera tabla, y que la segunda haga la consulta de todos esos proyectos.

[Casimiro Noteví]

Empezado por Catublipas

Realmente yo no necesito mostrar ni guardar los datos de la primera consulta, pero si que tienen que servir de filtro para la segunda, es decir, que coja los proyectos en la primera tabla, y que la segunda haga la consulta de todos esos proyectos.

Pues, disculpa, pero sigo sin entender:
El usuario elige un proyecto, ejemplo, el 6
Buscas en la BD1 el proyecto con el número 6.
Buscas en la BD2 los registros con proyecto número 6.
Se supone que tienes un query con el registro del proyecto 6 de la BD1.
Se supone que tienes un query con los registros del proyecto 6 de la BD2.
¿Y ahora qué quieres hacer?

[Catublipas]

No Casimiro el usuario elige un ProyectManager, ejemplo, el 6, hacemos la búsqueda de los proyectos en la BBDD1 de ese ProyectManager y este tiene 3 proyectos:
001
002
003

A continuación quiero buscar cada una de las facturas de esos proyectos en la BBDD2:
001-->1,2,3
002-->4,5,6
003-->7,8,9

[Casimiro Noteví]

Lo siento, no entiendo cómo están estructuradas y relacionadas esas tablas y bases de datos.

Pon un ejemplo con los datos que has escrito antes.

BD, tabla, campos, valores

[Catublipas]

Las bases de datos no están relacionadas de ahí mi problema,
te expongo lo que he intentado hacer con tu ayuda a ver si así ves mejor el problema:

Código Delphi [-]
procedure TPrueba1Form.Button1Click(Sender: TObject);
begin
  IBQuery1.Close;
  IBQuery1.Open;
  IBQuery2.Close;
  IBQuery2.Open;
  ClientDataSet1.Open;
  while not IBQuery1.eof do
  begin
    ClientDataSet1.Append;
    ClientDataSet1.FieldByName('PROYECTO').Value:= IBQuery1.FieldByName('PROYECTO').Value;
    ClientDataSet1.post;
    while not IBQuery2.eof do
    begin
      ClientDataSet1.Append;
      if IBQuery1.FieldByName('PROYECTO').Value = IBQuery2.FieldByName('PROYECTO').Value then
      begin
        ClientDataSet1.FieldByName('FACTURA').Value:= IBQuery2.FieldByName('NUMEROFAC').Value;
        ClientDataSet1.post;
      end;
      IBQuery2.next;
    end;
    IBQuery1.next;
  end;
end;

Previamente cree en el ClientDataSet los Fields PROYECTO y FACTURA.
De esta manera me lista los proyectos perfectamente pero las facturas me salen vacías, de esta forma:

PROYECTO FACTURA
001
002
003
004


Es un avance pero se me escapa algo. No se si esta información te sirve de algo.

BBDD1

Tabla PROYECTMANAGER

CODIGOPM-->6
PROYECTOS -->1,2,3
NOMBRE--> Carlos

BBDD2

Tabla FACTURAS

PROYECTO-->1
NUMEROFAC-->001,002,003
IMPORTE -->100€,200€,300€

PROYECTO-->2
NUMEROFAC-->004,005,006
IMPORTE -->1500€,2500€,3500€

PROYECTO-->3
NUMEROFAC-->007,008,009
IMPORTE -->50000€,60000€,30000€