BKP interbase/Firebird

[edson_hh 0]

Estou com um problema na restauração de banco de dados...

 

O bkp e a restauração sao feitos denotr do proprio sistema.

 

O bkp funciona certo.. usei essa rotina:

 

Sendo:

 

=>1 DirectoryEdit - renomeado deBackup;

=>1 FilenameEdit - renomeado FeBackup;

 

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 := feBackup.FileName;
	  BackupFile.Add(deBackup.Text+'/'+'Backup.gbk');
	  ServiceStart;
	finally
	  Active := False;
	end;
  end;
  ShowMessage('Backup Efetuado com Sucesso');

a restauração foi feito isso:

 

SENDO:

=>2 FilenameEdit - renomeados FeRestaurar, feRestBanco;

 

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);
[color="#FF0000"][b]  ServiceStart;[/b][/color]
	finally
	  Active := False;
	end;
  end;

ele da um erro na linha em destaque.. o erro eh pq o banco esta sendo usado.

 

Como posso resolver isso? desconctar do banco pra restaurar e depois reconectar?

 

 

opbrigado.

[Leonardo_Iron 0]

Isso mesmo edson, tenta fazer isso, caso não funcione pode ser o serviço também.