Extract metadata por código

[[Ivanzinho]]

Lo del mantenimiento del los FDB fué una cosa en la que pensé al plantearme 1 BD por aplicación o 1 BD por empresa, pero como se trata de una aplicación que tratará a lo sumo 5 empresas me decidí por la segunda opción. Otra cosa sería una aplicación para una gestoría que puede tratar cientos de empresas, entonces podría planteame otra forma, pero en este caso me decidí por este método porque non le vi ninguna desventaja a tener una sola BD. Pero bueno, creo que esto ya se escapa del tema del hilo y en caso de ser necesario se debería continuar con la discusión en uno nuevo.

Muchas gracias de nuevo por tu interes.

Un saúdo

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