Backup/Restore em BD Interbase a partir do Delhpi

Delphi

18/09/2003

Olá Pessoal.
Alguem sabe como posso fazer o Backup/Restore de um Banco Interbase a partir do Delphi? Eu gostaria que isso fosse automatizado pela minha aplicaçăo, mas năo sei como proceder.

[]s

Japoneyz
:twisted:


Japoneyz

Japoneyz

Curtidas 0

Respostas

Albertocrosa

Albertocrosa

18/09/2003

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

albertocrosa@bol.com.br


GOSTEI 0
Chas

Chas

18/09/2003

[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]


GOSTEI 0
POSTAR