--- Em delphi-br@yahoogrupos.com.br, "Danilo Marques" <[EMAIL PROTECTED]>
escreveu
>
> Bom dia pessoal !!!
>
> Alguem tem alguma dica ou sugestão de como faço uma aplicação para o
cliente fazer backup do banco de dados Firebird ???
> Se alguem poder me ajudar fico grato ...
>
> Uso Delphi 7 e Firebird 2.0
>
>
>
> Danilo Marques
=======================================================================
Bom dia!
Utilizo dessa forma:
--> Coloque um componente chamado IBBackupService da paleta
InterbaseAdmin.
--> Coloque um botão no form e coloque o seguinte código:
try
with IBBackupService do
begin
ServerName := 'localhost'; //no caso de rede, coloque o IP do servidor
LoginPrompt := False;
Params.Add('user_name=fulano');
Params.Add('password=1234');
Active := True;
try
Verbose := True;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := 'c:\teste\banco.fdb';
BackupFile.Add('c:\teste\backup\backup.fbk');
ServiceStart;
finally
showmessage('BACKUP realizado com sucesso!!');
Active := False;
end;
end;
except
on e : Exception do showmessage('Nome de arquivo inválido!!'+e.message);
end;
--> Agora, para restaurar, utilize o componente IBRestoreService.
--> Coloque outro botão e com o seguinte código:
with IBRestoreService do
begin
ServerName := 'localhost';
LoginPrompt := False;
Params.Add('user_name=fulano');
Params.Add('password=1234');
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add('c:\teste\temp\banco.fdb'); // joga o banco em
um outro diretório para não dar erro no banco em execução
BackupFile.Add('c:\teste\backup\backup.fbk');
ServiceStart;
finally
showmessage('Restauração realizada com sucesso!!');
Active := False;
end;
end;
NOTA: Para esses procedimentos, vc precisa jogar uma cópia do seu
banco em um diretório(c:\teste\temp\banco.fdb) onde, vc efetuará o
RESTORE. Logo após o restore, utilize uma função ou crie um esquema
para copiar o banco do diretório temporário para o diretório real.
