Fórum Restore no Firebird #267305

set isc_user=SYSDBA
set isc_password=SENHA DO FIREBIRD
copy BANCO.FDB BANCO.OLD // PARA FAZER BACKUP
gbak -b BANCO.FDB BANCO.GBK
gbak -r BANCO.GBK BANCO.FDB

e a melhor forma que consegui fazer e restaurar o backup


qualquer dúvida me avise

obs: copie o arquivo gbak para uma pasta e uma dll fbclient.dll
isso se vc for fazer o backup em uma pasta separada

Isso tudo eu consigo fazer por dentro do Delphi, através de um botão ou somente pelo prompt do Dos?

Se você estiver usando o IBX para acesso aos dados, pode usar os componentes IBBackupService e IBRestoreService. Dê uma pesquisada no fórum que esse assunto já foi discutido várias vezes.

coloque o componente ibx de backup e q vc criar digite esses comandos

try
SaveDialog1.FileName := ´Backup´ + FormatDateTime(´ddmmyy´,Date) + ´.gbk´;
if SaveDialog1.Execute then
begin
With Backup do
begin
Cursor := crHourGlass;
Active := False;
Params.Clear;
ServerName := ´SERVIDOR´; //Nome ou IP do Computador
Protocol := TCP;
DatabaseName := ´c:\GUARA.FDB´;
Params.Clear;
Params.Add( ´User_Name=SYSDBA´ );
Params.Add( ´Password=123´ );
BackupFile.Clear;
BackupFile.Add( SaveDialog1.FileName );
LoginPrompt := False;
Active := True;
ServiceStart;
if Verbose then
begin
While not Eof do
begin
Application.ProcessMessages;
Memo1.Lines.Add(GetNextLine);
StatusBar1.Panels[0].Text := GetNextLine;
end;
end
else
begin
while IsServiceRunning do
begin
Application.ProcessMessages;
end;
end;
StatusBar1.Panels[1].Text := ´Processo finalizado com sucesso!!!´;
Active := False;
end;
end;
finally
Cursor := crDefault;