Interbase IBBackup e IBRestore

Delphi

18/09/2003

Alguem sabe como utilizar os componentes IBBackup e IBRestore
para gerar backup e restauração, tudo isso dentro de aplicações
desenvolvidas em Delphi????
T+


Eniorm

Eniorm

Curtidas 0

Respostas

Chas

Chas

18/09/2003

[b:9aed60d985]IBBackup veja um exemplo[/b:9aed60d985]
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:9aed60d985]IBRestore veja um exemplo[/b:9aed60d985]
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;

[i:9aed60d985][b:9aed60d985]t++ colega[/b:9aed60d985][/i:9aed60d985]


GOSTEI 0
POSTAR