Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Bases de datos > Firebird e Interbase
Register FAQ Members List Calendar Guía de estilo Today's Posts

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 27/05/2008
[egostar] egostar is offline
Registrado
 
Join Date: Feb 2006
Posts: 6,572
Poder: 27
egostar Va camino a la fama
Error al intentar ejecutar IBRestore

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:

Quote:
---------------------------
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

Código Delphi [-]
     Active:= True;

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:

Quote:
---------------------------
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Reply With Quote
 



Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Error al intentar conectar Firebird jfrank Firebird e Interbase 3 08/06/2007 19:48
Error al intentar un Preview JulioGO Impresión 2 28/04/2006 22:14
Error 10060 al intentar conectarme??? vivim82 MySQL 1 13/05/2004 15:38
Error 10061 al intentar conectarme con DB2 mpedra DB2 2 01/07/2003 17:33


All times are GMT +2. The time now is 21:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi