Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Firebird Backup/Restore mit FIBPlus (https://www.delphipraxis.net/136332-firebird-backup-restore-mit-fibplus.html)

Chemiker 28. Jun 2009 18:44

Datenbank: FB • Version: 2 • Zugriff über: FIBPlus

Firebird Backup/Restore mit FIBPlus
 
Hallo,

bei FIBPlus gibt’s die Komponenten pFIBBackupService und pFIBRestoreService gibt es irgendwo ein gutes Beispiel wie man sie einsetzen kann?

Bis bald Chemiker

Hansa 28. Jun 2009 18:57

Re: Firebird Backup/Restore mit FIBPlus
 
So ungefähr :

Delphi-Quellcode:
procedure TfrmSicherung.btnSicherungClick(Sender: TObject);
begin
  inherited;
  SchreibeJournal ('Datensicherung gestartet');
  StatusMemo.Show;
  StatusMemo.Lines.Clear;
  with BackupService do begin
//    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name='+User);
    Params.Add('password='+Password);
    Active := True;
    try
      Verbose := True;
      // You can set here any your necessary options
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := DBgdb;
      BackupFile.Clear;
      BackupFile.Add(DBgbk);
      ServiceStart;
    finally
      Active := False;
      ShowMessage ('lokale Datensicherung beendet !'+#10#13+'Die Datei '+
                     ExtractFilePath (ParamStr (0))+'DB\DB.FBK'+
                    ' sollte aber noch auf ein externes Medium kopiert werden!');
      SchreibeJournal ('Datensicherung beendet');
      Close;
    end;
  end;
end;

procedure TfrmSicherung.FormCreate(Sender: TObject);
begin
  inherited;
  DBgdb   := ExtractFilePath (ParamStr (0))+'DB\DB.FDB';
  DBgbk   := ExtractFilePath (ParamStr (0))+'DB\DB.FBK';
  User    := 'SYSDBA';
  Password := 'masterkey';
end;

Delphi-Quellcode:
inherited frmSicherung: TfrmSicherung
  Left = 408
  Top = 263
  Width = 491
  Height = 423
  Caption = 'Systemsteuerung'
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel [1]
    Left = 16
    Top = 8
    Width = 128
    Height = 20
    Caption = 'Datensicherung'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  inherited sbDrucker: TStatusBar
    Top = 377
    Width = 483
  end
  inherited pnlEscEnde: TGfghPanel
    TabOrder = 3
  end
  object StatusMemo: TMemo
    Left = 16
    Top = 88
    Width = 457
    Height = 241
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    Visible = False
  end
  object btnSicherung: TButton
    Left = 16
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 2
    OnClick = btnSicherungClick
  end
  object BackupService: TpFIBBackupService
    OnTextNotify = BackupServiceTextNotify
    BlockingFactor = 0
    Options = []
    Left = 440
    Top = 344
  end
end

Chemiker 29. Jun 2009 06:44

Re: Firebird Backup/Restore mit FIBPlus
 
Hallo,

wenn ich über diese Komponenten das Backup und das Restore durchführe, dürfen die Clients keinen Zugriff auf die Datenbank haben, aber wie sieht mit dem Server von Firebird aus muss er vorher runtergefahren werden?

Bis bald Chemiker

TBx 29. Jun 2009 06:58

Re: Firebird Backup/Restore mit FIBPlus
 
Wieso dürfen die Clients keinen Zugriff auf die Datenbank haben?
Diesen dürfen Sie immer über den Server haben. Auch bei der Datensicherung. Diese ist wie alles andere im Firebird auch transakionsgestützt. Das bedeutet, dass alles, was noch nicht gepostet ist, eben auch nicht gesichert wird.

Und der Server muss den Zugriff sowieso haben, dieser führt die Datensicherung aus!

Beim Restore ist es richtig, da dürfen die Clients keinen Zugriff haben.

Dies kannst DU auf mehrere Arten Erreichen, zu.B. kannst Du die Datenbank zuvor herunterfahren (bringt aber nur was, wenn nicht wie so oft nur auf SYSDBA gearbeitet wird).
Ein anderer gängiger Weg ist es, die DB mit einem anderen Namen zu restoren und dannach umzubenennen.

Gruß

Thomas

Chemiker 29. Jun 2009 21:15

Re: Firebird Backup/Restore mit FIBPlus
 
Hallo,

Danke erst mal.

Zusammenfassung:

1. Der Server muss bei Restore und beim Backup laufen.
2. Ein Backup ist auch bei Client zugriff möglich
3. Beim Restore dürfen die Client keinen Zugriff haben.

Zum Punkt 3 stellt sich nur die Frage, wie kann ich gewährleisten das die Clients keinen Zugriff haben, wenn das Restore läuft?

Wenn möglich, würde ich gerne eine Applikation dafür Schreiben, dass das Restore automatisch durchgeführt wird und zuvor die Clients gesperrt werden. Ist das überhaupt möglich und wenn ja, wie kann man das Umsetzen?

Bis bald Chemiker

dataspider 30. Jun 2009 08:07

Re: Firebird Backup/Restore mit FIBPlus
 
Hi,

Man sollte vor dem Backup die DB herunterfahren (ConfigService / ShutDownDataBase).
Jetzt darf nur noch der Besitzer der DB sich anmelden.
Firebird blockt normalerweise alle Benutzer ausser SYSDBA.
Im Backupprozeß[EDIT]Restore, nicht Backup[/EDIT] wird IMHO dann auch zusätzlich SYSDBA geblockt.
Als Errorcode erhält man beim Connectversuch 335544528 (isc_shutdown).
Somit sollte man auf diesen Fehler entsprechend reagieren.

Frank

borwin 30. Jun 2009 08:17

Re: Firebird Backup/Restore mit FIBPlus
 
Hallo Chemiker,

Zitat:

Zum Punkt 3 stellt sich nur die Frage, wie kann ich gewährleisten das die Clients keinen Zugriff haben, wenn das Restore läuft?
also grundsätzlich machst Du nur ein Restore, wenn mal was schief gegeangen ist. D.h. die Datenbank oder der Server ist gecrash.
Dann können die clients sowieso nicht arbeiten.
Beim Restore wird die Datenbank neu angelegt. Die alte wird nicht überschrieben. Diese wird vorher gelöscht.
Während des Restore kann sowieso kein Client auf die Datenbank zugreifen.
Somit sehe ich die Sache sehr unkritisch.

Gruß Borwin

TBx 30. Jun 2009 08:59

Re: Firebird Backup/Restore mit FIBPlus
 
Zitat:

Zitat von borwin
also grundsätzlich machst Du nur ein Restore, wenn mal was schief gegeangen ist.

Von diesem Vorgehen ist dringend abzuraten.
Ein erfolgreiches Backup ist noch lange keine Garantie für ein erfolgreiches Restore.
Man sollte nach einem Backup immer auch ein Restore durchführen, nicht ins laufende System sondern an einem seperaten Ort. Sollten dabei Fehler auftreten, hat man noch die Möglichkeit zu reagieren.
Im Fehlerfall nicht reagieren zu können, weil man auch ein Backup hat, das nicht wiederherstellbar ist, wäre ja nun wirklich nicht schön.

borwin 30. Jun 2009 09:52

Re: Firebird Backup/Restore mit FIBPlus
 
Zitat:

Man sollte nach einem Backup immer auch ein Restore durchführen, nicht ins laufende System sondern an einem seperaten Ort.
Da stimme ich Dir 100% zu. Dort gibt es aber keine Probleme mit den Clients.

Gruß Borwin

Chemiker 30. Jun 2009 21:54

Re: Firebird Backup/Restore mit FIBPlus
 
Hallo,

vielen Dank für die vielen Ideen und Anregungen.

Ich habe jetzt mir ein Testtool mit FIBPlus zusammengeschrieben und auch schon getestet. Habe mal aus der Datenbank 2 Mio. Datensätze gelöscht zu Testzwecken.
Backup gezogen geht auch mit angemeldeten Client, aber die Performanz leidet aber merklich darunter. Beim Restore zuvor den Client abgemeldet (Anwendung runtergefahren) und anschließend mit dem Testtool das Restore durchgeführt (Das braucht aber auch seine Zeit bei 40 Mio. Datensätze).
Danach war die DB erheblich verkleinert und die Geschwindigkeit der Datenbank war angestiegen.

Zitat:

Zitat von TBx
Man sollte nach einem Backup immer auch ein Restore durchführen, nicht ins laufende System sondern an einem seperaten Ort. Sollten dabei Fehler auftreten, hat man noch die Möglichkeit zu reagieren.

Wie würde man so was organisatorisch und technisch umsetzen?

Postulieren wir mal, es wird ein Backup gezogen und der Test ob das Backup i.o. ist wird auf eine andere Weise getestet (nicht im laufenden System), wie kann man dann die DB „reinigen“ sprich gelöschte Datensätze tatsächlich löschen, nicht abgeschlossene Transaktionen schließen usw. und das am liebsten beim laufenden System?

Bis bald Chemiker


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:10 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz