Continuação Backup e Restauração

13/05/2012

0

SQL

Estou usando a seguinte programação:
procedure TForm1.ButtonBackupClick(Sender: TObject);
begin
try
IBBackupService1.LoginPrompt := False;
IBBackupService1.DatabaseName := C:\programa files\cemiterio.gdb;
IBBackupService1.BackupFile.Add(F:\modulo\tcc\banco.gbk);
IBBackupService1.Params.Values[user_name] := SYSDBA;
IBBackupService1.Params.Values[password] := masterkey;
IBBackupService1.Active := True;
IBBackupService1.ServiceStart;
except
MessageDlg(Não foi possível realizar o Backup., mtError, [mbOK], 0);
Exit;
end;
MessageDlg(Backup realizado com sucesso!, mtInformation, [mbOK], 0);
IBBackupService1.Active := False;
end;


procedure TForm1.ButtonRestaurarClick(Sender: TObject);
begin
try
IBRestoreService1.LoginPrompt := False;
IBRestoreService1.DatabaseName.Add(C:\programa files\cemiterio.gdb);
IBRestoreService1.BackupFile.Add(F:\modulo\tcc\banco.gbk);
IBRestoreService1.Params.Values[user_name] := SYSDBA;
IBRestoreService1.Params.Values[password] := masterkey;
IBRestoreService1.Active := True;
IBRestoreService1.ServiceStart;
except
MessageDlg(Não foi possível realizar a Restauração., mtError, [mbOK], 0);
Exit;
end;
MessageDlg(Restauração realizada com sucesso!, mtInformation, [mbOK], 0);
IBRestoreService1.Active := False;
end;);
IBRestoreService1.Params.Values[user_name] := SYSDBA;
IBRestoreService1.Params.Values[password] := masterkey;
IBRestoreService1.Active := True;
IBRestoreService1.ServiceStart;
except
MessageDlg(Não foi possível realizar a Restauração., mtError, [mbOK], 0);
Exit;
end;
MessageDlg(Restauração realizada com sucesso!, mtInformation, [mbOK], 0);
IBRestoreService1.Active := False;
end;
Ricardo Wong

Ricardo Wong

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar