Hola estoy intentando ejecutar respaldos y restauraciones de mi base de datos (Firebird 2.0) y estoy atorado con un problema a la hora de lanzar la restauraración
El mensaje de error es el siguiente:
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project BackupRestore.exe raised exception class EIBClientError with message 'SPB Constant Unknown'.
---------------------------
Break Continue Help
---------------------------
|
Este es el código que uso:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
with IBRestoreService1 do begin
DataBaseName.Clear;
BackupFile.Clear;
DataBaseName.Add('D:\Desarrollo\TDelphi\Starw Basico\Base\STARADM.FDB');
BackupFile.Add('D:\Desarrollo\TDelphi\Starw Basico\Base\backupfile.fbk');
Active:= True;
ServiceStart;
while not eof do
Memo1.Lines.Add(GetNextLine);
Label2.Caption:='Restauracion Terminada';
Active:= False;
end;
end;
El error es lanzando en esta línea
Pensé que podría ser por falta de firmarme con usuario y contraseña, por lo que puse la propiedad LoginPrompt del IBRestore a True pero me envía este error:
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project BackupRestore.exe raised exception class EIBClientError with message 'Operation cancelled at user's request'.
---------------------------
Break Continue Help
---------------------------
|
Que estoy haciendo mal ???
Nota:
El Respaldo se genera sin problemas con este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
IBBackupService1.Active:= True;
IBBackupService1.ServiceStart;
while not IBBackupService1.eof do begin
IBBackupService1.GetNextLine;
end;
IBBackupService1.Active:= False;
Form1.Label1.Caption:='Respaldo Terminado';
end;
Salud OS