Extract metadata por código

[[RONPABLO]]

Yo tengo una aplicacion que trabaja con 3 bds diferentes y no veo la hora de tener tiempo para ponerlas en una sola, perder el poder que dan los query y dejarle todo el enlace de empresas a Delphi no es bueno, es mejor que los querys te den los resultados discriminados, en algun momento vas a necesitar juntar datos de una empresa a otra y vas a tener que consultar en firebird la bd de una empresa, ir a Delphi para tener unos datos de la empresa, enviar los filtros otra vez a firebird en la otra bd, volver a consultar, volver a Delphi y al final para juntar la informacion. Cuando sean muchos datos esto se volvera muy lento y cada vez mas complejo.
un solo ejemplo como harias la siguiente consulta en varias bd:

Código SQL [-]
Select * from Empresas a where 
a.id not in (select b.empresa from InsumosEntreempresas b)

Recuerda que Firebird no permite querys entre bds

[[Ivanzinho]]

Empezado por RONPABLO

Yo tengo una aplicacion que trabaja con 3 bds diferentes y no veo la hora de tener tiempo para ponerlas en una sola, perder el poder que dan los query y dejarle todo el enlace de empresas a Delphi no es bueno, es mejor que los querys te den los resultados discriminados, en algun momento vas a necesitar juntar datos de una empresa a otra y vas a tener que consultar en firebird la bd de una empresa, ir a Delphi para tener unos datos de la empresa, enviar los filtros otra vez a firebird en la otra bd, volver a consultar, volver a Delphi y al final para juntar la informacion. Cuando sean muchos datos esto se volvera muy lento y cada vez mas complejo.

Recuerda que Firebird no permite querys entre bds

Eso mismos me pasa a mi con una aplicación heredada de paradox, y también estoy deseando cambiarlo, pero es que en el caso que nos ocupa, la información de las distintas empresas es totalmente independiente y en ningún caso será necesario el cruce de datos. No discuto que sea mejor una o varias BD, simplemente que dependiendo de los requerimientos puede ser más conveniente un método u otro, pero vuelvo a aclarar, simplemente es mi punto de vista.

Un saúdo

[Spynosa]

puedes hacer un backup con solo los metadatos

Código Delphi [-]
with IBBackupService1 do
  begin
    ServerName :='localhost';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
       Options := [MetadataOnly];
      DatabaseName := 'c:\mibase.fdb';
      BackupFile.Add('mibase.fbk');

      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;

y luego un restore

Código Delphi [-]

 with IBRestoreService1 do
  begin
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [Replace, UseAllSpace];
      PageBuffers := 3000;
      PageSize := 4096;
      DatabaseName.Add('c:\mibase2.fdb');

      BackupFile.Add('c:\mibase.fbk');
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;

[[Ivanzinho]]

Muchas gracias a todos por vuestras respuestas, al final me voy a decidir por la solución propuesta por Spynos, ya que tengo implementado un modulo para backups y restores y es lo que mejor se me adecúa. Muchas gracias a ArdiIIa por presentarme Marathon, el cual desconcia, y por el ejemplo de uso que acompañó.

Un saúdo.

[paty_rlopez]

hola estube haciendo lo del ejemplo pero cuando llega a esta linea:

Memo1.Lines.Add(GetNextLine);

me marca un error

cannot open file coco270720072.gbk

este es exactamente mi codigo

¿alguien me pueder decir que tengo mal?

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
  begin
    ServerName := '127.0.0.1'; 
    LoginPrompt := False; 
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey'); 
    Active := True; 
    try 
      Verbose := True; 
      Options := [NonTransportable, IgnoreLimbo]; 
      DatabaseName := 'c:\coco\cocodelphi.fdb';
      SQL1.Close;
      SQL1.SQL.TExt := 'Select * from Corte__Ultimo';
      SQL1.ExecQuery;
      BackupFile.Add('COCO'+ SQL1.FieldByName('FECHA_RESUMEN').AsString + SQL1.FieldByName('Turno').AsString+'.gbk');
      ServiceStart; 
      While not Eof do 
        Memo1.Lines.Add(GetNextLine); 
    finally 
      Active := False; 
    end; 
  end; 
end;

Gracias por su atencion
Saludos Cordiales

[paty_rlopez]

perdonen las molestias, ya encontre mi error
la fecha me la regresaba con estos caracteres '//' por lo que el nombre del archivo no era valido

gracias y disculpen

[Delfino]

Puedes mediante GBak tb hacer un backup de solo los metadata..