Consulta con dos bbdd

[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€

[Catublipas]

Vale Casimiro, casi lo tengo:

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
    while not IBQuery2.eof do
    begin
      ClientDataSet1.Append;
      if IBQuery1.FieldByName('PROYECTO').Value = IBQuery2.FieldByName('PROYECTO').Value then
      begin
        ClientDataSet1.FieldByName('PROYECTO').Value:= IBQuery1.FieldByName('PROYECTO').Value;
        ClientDataSet1.FieldByName('FACTURA').Value:= IBQuery2.FieldByName('FACTURA').Value;
        ClientDataSet1.post;
      end;
      IBQuery2.next;
    end;
    IBQuery1.next;
  end;
end;

El problema que solo me muestra el primer proyecto de ese ProyectManager esto me muestra con respecto al ejemplo anterior me muestra:

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

[Catublipas]

Perdona las comas las he puesto yo, pero ya tengo la solución(aunque tengo un 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
    while not IBQuery2.eof do
    begin
      ClientDataSet1.Append;
      if IBQuery1.FieldByName('PROYECTO').Value = IBQuery2.FieldByName('PROYECTO').Value then
      begin
        ClientDataSet1.FieldByName('PROYECTO').Value:= IBQuery1.FieldByName('PROYECTO').Value;
        ClientDataSet1.FieldByName('FACTURA').Value:= IBQuery2.FieldByName('DOCNUM').Value;
        ClientDataSet1.post;
      end;
      IBQuery2.next;
    end;
    IBQuery1.next;
    IBQuery2.First;
  end;
end;

Mi problema ahora es que es extremadamente lento(10 segundos).¿Se te ocurre algo?
Y estoy contigo, es una enorme chapuza, y porque no has visto la base de datos, si no te daría algo.
De todas formas muchas gracias de nuevo!

[Casimiro Noteví]

Empezado por Catublipas

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€

A ver, no me digas que los datos están guardados de esa manera, valores separados por comas.
¿A qué lumbreras se le ocurrió esa chapuza inmensa, además dividido en 2 bases de datos?

Creo que necesitas hacer una reestructuración del sistema. Eso es una chapuza tremenda.