realizar copia de seguridad de bd interbase desde delphi

[ingabraham]

Necesito un codigo
para crear copias de seguridad desde delphi
de una bd de interbase 6

agradezco de ante mano la ayuda

[[Bicho]]

Hola,

creo recordar que con Delphi6 tienes componentes de manejo de Interbase, no es así?
Allí tienes dos componentes (backup y restore). La verdad es que son muy sencillos de usar. En la ayuda de Delphi tendría que haber un ejemplo.

No tengo ninguno amano, lo siento.
Lo esencial es desconectar la base de datos y usar los componentes.

Tambien puedes usar las funciones CopyFile (habiendo desconectado la base de datos antes). Tambien sirve sin problemas

Saludos

[ingabraham]

el cod backup es este


with IBBackupService1 do begin
Active := True;
try
DatabaseName := edtOrigen.Text;
BackupFile.Add(edtDestino.Text);
ServiceStart;
while not EOF do Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;


ok. q me dices?
pero necesito el del restaurrar,
y no se sobre el copy
si tienes un cod te lo agradezco

[jhonny]

Vaya, Vaya, vaya¡¡¡, parece que estamos de vuelta http://www.clubdelphi.com/foros/show...ht=SMTP&page=2, ¿No se suponia que aqui nadie te colaboraba?

[ingabraham]

SI NO Q HAY VECES Q UNO COJE RABIA.

PERO LO RECONOSCO ES UN PORTAL DE CONOCIMIENTOS.
AHORA LO SGTE:

REALIZO MI BACKUP CON EL SGTE COD:
1. PARA Q ES EL BENDITO MEMO?
2. ESTE COD REALIZA COMPRENSION DE LA BD?
3. NECESITO AHORA RESTAURARLA.

Código Delphi [-]
with IBBackupService1 do begin
  Active := True;
   try
    DatabaseName := 'C:\SOFTWARE_NOMINA\NOMINA_GOBERNACION.GDB';
    BackupFile.Add('D:\NOMINA_GOBERNACION.GDB');
    ServiceStart;
    while not EOF do Memo1.Lines.Add(GetNextLine);
   finally
      Active := False;
   end;

COMO HAGO PARA RESTAURAR ESTA COPIA

CON EL IBRESTORESERVICE1

[jhonny]

Bueno, solo una cosa... no quiero entrar en problemas contigo, por el contrario, me pareceria interesante que tus diferencia para con nosotros y la de nosotros para contigo fueran aclaradas y en un futuro todos nos estuvieramos riendo del asunto... yo se que esto te lo han dicho muchas veces pero considero que sería muy bueno para vos y para nosotros que leas la guia de estilo y que la apliques, por ejemplo... si escribes con mayusculas es sinonimo de que nos estas gritando y la verdad es que asi sepamos la respuesta hasta miedo nos da contestarte. Ademas no he visto una disculpa de parte tuya, ¿Me entiendes?

[ingabraham]

Hola en realidad,

Para q me conozcan

Yo trabajo con la Gobernación de Cordoba como desarrollador en java y oracle, delphi no lo domino mucho., pero me ha tocado, por eso pido tanta ayuda.

Deben enterderme q trabajo bajo presión y no jusgarme tanto, todos somos diferentes.

Lo q necesito ahora es restaurar una copia.

Bicho agradezco mucho tu colaboraciòn

[jhonny]

Bueno si, eso es cierto, pero lo que sucede es que la mayoria tambien tenemos trabajos bajo presión, problemas familiares, economicos, sociales, matrimoniales, etc, etc, etc... y pasamos por aqui para ayudar a las demas personas con sus trabajos, tareas, inquietudes o lo que sea, sin pedir algo a cambio y fuera de todo eso, aguantamos que algunos como vos, nos digan cosas absurdas como las del otro dia y que se resistan a seguir las normas de convivencia del foro... pero como realmente son pocos los que hacen eso, entonces sus nombres y en mi caso hasta sus IPs, se nos quedan grabados en el cerebro o en el disco duro, realmente es molesto ese asunto porque ya tenemos una imagen tuya y por culpa de esa imagen creemos que cuando te demos una respuesta satisfactoria, terminaras ofendiendonos y/o diciendo que somos unos estupidos (O quiza algo peor) por haberte ayudado gratis. ¿vez?

[ingabraham]

backup

Código Delphi [-]
  with IBBackupService1 do
  begin
    Params.Clear;
    BackupFile.Clear;
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := 'C:\SOFTWARE_NOMINA\NOMINA_GOBERNACION.GDB';//feBanco.FileName;
      BackupFile.Add(deBackup.Text+'NOMINA_GOBERNACION.gdk');
      ServiceStart;
      While not Eof do
        mmBackup.Lines.Add(GetNextLine);
      ShowMessage('Copia de Seguridad realizada!.');
    finally
      Active := False;
    end;
  end;

restore

Código Delphi [-]
  with IBRestoreService1 do
  begin
    Params.Clear;
    BackupFile.Clear;
    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(feRestBanco.FileName);
      BackupFile.Add(feRestaurar.FileName);
      ServiceStart;
      While not Eof do
        mmRestaurar.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;
  Showmessage('La Copia de Seguridad Fue Restaurada!.');

me aparece un error
cannot restore operation --service is attache

es algo asi como q el servicio esta corriendo.


alguien me ayude, ya tengo el queso me falta el pan.