Fórum Backup/Restore em BD Interbase a partir do Delhpi #182772

Preciso fazer a mesma coisa, se conseguir por favor me ajude tb.

albertocrosa@bol.com.br

[b:fda7733815]vcs tem que usar os componentes IBBackup e IBRestore encontrados na paleta Interbase Admin

IBBackup veja um exemplo [/b:fda7733815]
procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
begin
ServerName := ´Poulet´;
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
try
Verbose := True;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := ´c:\interbase\examples\database\employee.gdb´;
BackupFile.Add(´c:\temp\employee1.gbk´);

ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;

end;

[b:fda7733815]IBRestore veja um exemplo [/b:fda7733815]
procedure TForm1.Button1Click(Sender: TObject);
begin
with IBRestoreService1 do
begin
ServerName := ´Poulet´;
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(´c:\interbase\tutorial\tutorial.gdb´);

BackupFile.Add(´c:\interbase\tutorial\backups\tutor5.gbk´);
ServiceStart;
Whilenot Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;

end;

[b:fda7733815]Vê se isto aqui ajuda[/b:fda7733815]