Firebird Datenbankbackup wieder herstellen

[Hansa]

Zitat von theomega:

...Gebackupt habe ich über den Komponenten TIBBackupService (Standart von Delphi 7 Enterprise) via diesem Code:

... Eine Fehlerursache könnte sein: evtl ist TIBBackupService nicht mit Firebird 1.5 kompatible.

Mann o Mann,

TIBBackupService ist IBX. Also die DB-Zugriffskomponenten von Borland. Die werden einen Teufel tun, ihre Konkurrenz zu stärken. 8) Mit FB 1.0 gabs damit schon Ärger. Mit FB 1.5 traue ich mich damit an eine DB nicht mehr dran. Ich kann nur sagen, daß es mit FIBplus als Ersatz für IBX immer funktioniert hat. Und zwar so :

Delphi-Quellcode:

procedure TfrmBackup.Button1Click(Sender: TObject);
begin
  CloseB.Enabled := False;
  StatusBox.Lines.Clear;
  with pFIBBackupService1 do begin
    ServerName := ServerE.Text;
    LoginPrompt := False;
    Params.Add('user_name='+UserE.Text);
    Params.Add('password='+PasswordE.Text);
    Active := True;
    try
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := DBNameE.Text;
      BackupFile.Clear;
      BackupFile.Add(BackupE.Text);
      ServiceStart;
    finally
      Active := False;
      ShowMessage ('lokale Datensicherung beendet !'#10#13'Die Daten sollten aber noch auf ein externes Medium kopiert werden!');
    end;
  end;
  CloseB.Enabled := True;
end;