Firebird Backup/Restore mit FIBPlus

[mkinzler]

Zitat:

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?

Mit einem Sweep
Ein Backup/Restore Zyklus ist allerdings die effektivste Lösung

[mquadrat]

@mkinzler

IMHO schließt ein Sweep aber keine offenen Transaktionen. Die müssen erst zu sonst läuft der Sweep ins Leere..

[mkinzler]

Ja deshalb ist ein Backup/Restore ja am effektivsten

[hoika]

Hallo,

Zitat:

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

Also ich restore immer in eine restore.fdb (data.fdb -> data.fbk -> restore.fdb).

Ein einfacher Test, ob alles gutgegangen ist,
wäre ein select count (*) über alle Tabellen, dann Backup, dann Restore,
Connect zur Restore, Select Count(*) und prüfen,
ob alle Datensätze drinstehen.

Das
select count (*) über alle Tabellen, dann Backup,
in der gleichen Transaktion laufen lassen.

Wenn das Backup also Dienst (-service) läuft,
sollte der Rechner nicht in die Knieh gehen ;)
Auch sollte man das verbose (habe nur die Komamndzeilen-Params im Kopf)
weglassen.


Heiko

[Freiwilderer]

moin,
ich hab das mal ausprobiert und das programm spuckt zwar aus, dass es durchgelaufen ist, aber die neue Sicherungsdatei ist nicht erstellt worden ...

nutze Delhpi 5 ^^

würde mich über einen Lösungsvorschlag freuen

[Freiwilderer]

scheint wohl irgendwie am passwort zu liegen, hab jetzt diese fehlermeldung bekommen.

........
Unsuccessful exception caused by a system error that procludes
successful execution of subsequent statements.
Your user name and password are not defined. Ask your databas administrator ......... und so weiter.

habe aber die parameterübergabe drin

Delphi-Quellcode:

    LoginPrompt := False;
    Params.Add('user_name='+User);
    Params.Add('password='+Password);
    Active := True;

mfg

[Freiwilderer]

hi,
... hab nen fehler gefunden und jetzt erstellt er eine fbk datei, allerdings hat die nur 60kb (bei einer ausgangsdateigröße der db von ca 40mb) er scheint da also irgendwo abzubrechen, kommt allerdings kein fehler, in dem debugger auch nich ^^

mfg

[Chemiker]

Hallo Freiwilderer,

tut mir leid das ich jetzt erst jetzt Zeit gefunden habe Dir zu antworten, bin zur Zeit dabei mich in C# einzuarbeiten.

Das die Datei kleiner wird ist ja durchaus möglich, weil die Datenbank ja aufgeräumt wird und die Datensätze die gelöscht sind auch tatsächlich gelöscht werden. Ob die ganze Aktion funktioniert hat, kann man ja sehen wenn man nach dem BackUp ein Restore durchführt.

Ich habe mir ein kleines Programm geschrieben und mit den beiden Befehlen etwas zu spielen, was allerdings noch nicht eingearbeitet worden ist, ist der automatische Test ob das Backup auf in alle Einzelheiten auch richtig durchgeführt worden ist.

So sieht der Quelltext für das Backup aus:

Delphi-Quellcode:

procedure TForm3.btAktionAusfuehrenClick(Sender: TObject);
begin
  with pFIBBackupService1 do
  begin 
    BackupFile.Clear;
    Params.Clear;
    ServerName:= 'localhost';
    LoginPrompt:= FALSE;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active:= TRUE;
    try
      Verbose := True;
      Options:= [IgnoreLimbo,NonTransportable];    
      DatabaseName:= FFBDBOriginal;
      BackupFile.Add(FFBDBCopy);
      ServiceStart;
      while not EOF do
      begin
        MemoAktionenAnzeigen.Lines.Add(GETNextLine);
      end;
    finally
      Active:= FALSE;
    end;    
  end;
end;

Und so für das Restore:

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
begin
  with pFIBRestoreService1 do
  begin
    ServerName:= 'localhost';
    LoginPrompt:= FALSE;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active:= TRUE;
    try
      Verbose := True;
      Options := [Replace, UseAllSpace];
      PageBuffers := 3000;
      PageSize := 4096;
      BackupFile.Add(FFBDBCopy);
      DatabaseName.Add(FFBDBOriginal);
      ServiceStart;
      while not EOF do
      begin
        MemoAktionenAnzeigen.Lines.Add(GETNextLine);
      end;
    finally
      Active := False;
    end;
  end;
end;

Soweit funktioniert das auch, aber bitte nicht mit der original Datenbank durchführen sonder eine Test Datenbank anlegen und selber testen. In der Hilfe von FIBPlus ist auch einiges beschrieben, man muss leider sich das nur mühselig zusammensuchen.

Bis bald Chemiker

[Freiwilderer]

hi chemiker,
danke für deine Antwort.

läuft so irgendwie immer noch nicht
also meine Ursprungsdatenbank hat 36MB
wenn ich die dann gesichert habe sind es noch 61KB (was ich für ziemlich klein halte)
nach einem restore, den ich gerade ausprobiert habe, hat die DB dann eine größe von ca 1MB

hab die while not eof schleife rausgenommen, weil die ja wohl eh nur zum protokollieren is, sonst aber alles so weit übernommen.

hier nochmal meine backupprocedure, vielleicht sieht da jemand noch n fehler...:

Delphi-Quellcode:

procedure TfrmDatensicherung.BT_StartClick(Sender: TObject);
begin
  with FIB_Backup do
  begin
    BackupFile.Clear;
    Params.Clear;
    if Pos('/3050:',ED_DBPfad.Text) > 0 then  // Lokaler oder UNC Pfad?
     begin
      DatabaseName := Copy(ED_DBPfad.Text,Pos('/3050:',ED_DBPfad.Text)+6,Length(ED_DBPfad.Text));
      ServerName   := Copy(ED_DBPfad.Text,1,Pos('/3050:',ED_DBPfad.Text)+4);
      Protocol     := TCP;
     end
    else
     begin
      ServerName:= 'localhost';
      DatabaseName := ED_DBPfad.Text;
      Protocol := Local;
     end;

    LoginPrompt:= FALSE;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active:= TRUE;
    try
      Verbose := True;
      Options:= [IgnoreLimbo,NonTransportable];
      BackupFile.Add(ED_Sicherungspfad.Text);
      ServiceStart;
    finally
      Active:= FALSE;
    end;
  end;
end;

mfg

[Freiwilderer]

KOMANDO: ZURÜCK

... ... die wiederhergestellte datenbank, ... die mit etwas über ein MB läuft
...
das heißt, wohl, dass ich mich einfach mit der größe vertan hab ^^
aber ne DB Sicherung, mit 61KB is ja schon echt sehr klein ^^

is halt noch nich so viel drin ... wäre aber nie auf die idee gekommen, dass das richtig sein könnte ;)

vielen dank für die hilfe.