realizar copia de seguridad de bd interbase desde delphi

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