Moyen simple de sauvegarde

Version imprimable

04/05/2015, 10h04
FOCUS77

Moyen simple de sauvegarde
Bonjour à tous.

Le code suivant copie une B.D.D vers un Flash Disque:
Code:

1 2 3 4 procedure TForm1.SauvegarderClick(Sender: TObject); begin FileUtil.CopyFile('C:\Base\REGISTRE.GDB','F:\Base\REGISTRE.GDB',[cffOverWriteFile]) ; end;
Pensez-vous que c'est une méthode efficace de sauvegarder une B.D.D?

merci d'avance.
04/05/2015, 10h53
Jipété
Bonjour,

tout d'abord je précise bien haut et fort que je ne connais rien aux BdD's : je sais juste qu'il s'agit de gros fichiers gérés par des programmes bien particuliers, et çam'suffit :mrgreen:

Maintenant, pour répondre à la question,
Citation:
Envoyé par FOCUS77

Code:

1 2 3 4 procedure TForm1.SauvegarderClick(Sender: TObject); begin FileUtil.CopyFile('C:\Base\REGISTRE.GDB','F:\Base\REGISTRE.GDB',[cffOverWriteFile]) ; end;

Pensez-vous que c'est une méthode efficace de sauvegarder une B.D.D?
je dirais que ça dépend du point de vue : si on est programmeur, hop !, une simple ligne comme ci-dessus et l'affaire est dans le sac, c'est très efficace on peut dire.

Si on se place du point de vue du système d'exploitation ou du gestionnaire de BdD, imaginons le scénario suivant : la BdD est énorme, genre 30 Go de fichier, et aujourd'hui c'est "activité calme", très peu de mouvements sur les données, mettons quelques ko ou Mo. Il faut vraiment recopier les 30 Go ? Il n'y aurait pas un moyen pour savoir ce qui a été modifié en BdD depuis la dernière sauvegarde pour ne recopier que ça ?

Ça serait sans doute plus efficace, et c'est en tout cas la voie que j'explore pour les sauvegardes des fichiers de mes machines virtuelles : j'en ai un qui pèse 100 Go et qui bouge très peu ; plutôt que de recopier à chaque fois ces 100 Go (ce qui prend un temps dément en copie vers dd usb [même usb3 : aux alentours de 20 minutes !]), je "monte" les fichiers source et destination et je fais une sauvegarde intelligente ("juste ce qui a changé") avec l'ami rsync : une poignée de secondes !

OK, c'est bien plus compliqué pour le programmeur, :P

merci Jipété pour votre réponse.

La Base de donnée ne dépasse pas 100 Mo on pourra donc la remplacer régulièrement.
L’inconvénient est qu'on ne peut pas deviner le lecteur USB (F?,G?,H?) de la machine cible, peut être il est plus commode de stoker le nom USB dans un fichier (Sauvegarde.txt) déposé avec le fichier (REGISTRE.GDB) dans le dossier (Application\DataBase) , et d'implémenter les codes suivants.
Code:

1 2 var Form1: TForm1; USB:String;
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.FormCreate(Sender: TObject); var f:TextFile; s:string; begin Try AssignFile(f,ExtractFilePath(Application.ExeName)+'DataBase\Sauvegarde.txt'); Reset(f); readln(f,s); // recueil du Nom de USB. USB:=Trim(s); CloseFile(f); Except ShowMessage('Fichier sauvegarde déplacé!'); end; end;
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.SauvegarderClick(Sender: TObject); Var Src,Dest:String; begin Src:=ExtractFilePath(Application.ExeName)+'DataBase\REGISTRE.GDB'; Dest:=USB+':\DataBase\REGISTRE.GDB'; if not FileUtil.DirPathExists(USB+':\DataBase') then FileUtil.CopyFile(Src,Dest,[cffCreateDestDirectory]) else FileUtil.CopyFile(Src,Dest,[cffOverWriteFile]) ; end;
merci à tous. 8-)

Correction de 'moyen simple de sauvegarde'

Bonjour à tous :P

On fait la duplication d'une BDD en cous d'utilisation n'est pas possible qu'après sa déconnexion, et de préférence
suivie par la fermeture de l'application à l'aide d'un bouton(FermerSauvegarder) et d'un Timer, comme le montre l'exemple suivant.
(cela exige que la propriété connected de IBCONNECTION doit être False et que celle ci est connectée par programmation)

Code:

1
2
var
  Accueil: TAccueil;i:integer;USB:String;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TAccueil.FormCreate(Sender: TObject);
 var f:TextFile; s:string;
begin
   Try
  AssignFile(f,ExtractFilePath(Application.ExeName)+'Configuration\NomUSB.txt'); //NomUSB.txt doit contenir le nom USB ex:F
    Reset(f);
    readln(f,s); // recueil du Nom de USB.
    USB:=Trim(s);
    CloseFile(f);
   Except
     ShowMessage('Fichier sauvegarde déplacé!');
   end;
end;

Code:

1
2
3
4
5
Enabled=False,Interval=100:
procedure TAccueil.Timer1StartTimer(Sender: TObject);
begin
  i:=0; //initialisation de la variable i.
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TAccueil.FermerSauvegarderClick(Sender: TObject);
   Var Src,Dest:String;
 begin
   IBConnection1.Connected:=False ; //déconnection de la BDD pour pouvoir la dupliquer.
 
 Src:=ExtractFilePath(Application.ExeName)+'DataBase\REGISTRE.FB';
   Dest:=USB+':\DataBase\REGISTRE.FB';
   if not FileUtil.DirPathExists(USB+':\DataBase')   then
   FileUtil.CopyFile(Src,Dest,[cffCreateDestDirectory])
   else
   FileUtil.CopyFile(Src,Dest,[cffOverWriteFile])  ;
   Timer1.Enabled:=true ;
end;

Code:

1
2
3
4
5
6
7
procedure TAccueil.Timer1Timer(Sender: TObject);
begin
  if i<15 then
     i:=i+1
     else
     Application.Terminate ;
end;

merci à tous 8-)

Bonjour :P

J'ai voulu améliorer cet exemple en remplaçant le Timer par la méthode ' Application.ProcessMessages ', et ça a bien fonctionné.
L'avantage est qu'elle permet de simplifier le codage et d'allouer juste le temps qu'il faut pour enregistrer la BDD et fermer
l'application.

Code:

1
2
var
  Accueil: TAccueil;i:integer;USB:String;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TAccueil.FormCreate(Sender: TObject);
 var f:TextFile; s:string;
begin
   Try
  AssignFile(f,ExtractFilePath(Application.ExeName)+'Configuration\NomUSB.txt'); //NomUSB.txt doit contenir le nom USB ex:F
    Reset(f);
    readln(f,s); // recueil du Nom de USB.
    USB:=Trim(s);
    CloseFile(f);
   Except
     ShowMessage('Fichier sauvegarde déplacé!');
   end;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TAccueil.FermerSauvegarderClick(Sender: TObject);
   Var Src,Dest:String;
 begin
   IBConnection1.Connected:=False ; //déconnection de la BDD pour pouvoir la dupliquer.
 
 Src:=ExtractFilePath(Application.ExeName)+'DataBase\REGISTRE.FB';
   Dest:=USB+':\DataBase\REGISTRE.FB';
   if not FileUtil.DirPathExists(USB+':\DataBase')   then
   FileUtil.CopyFile(Src,Dest,[cffCreateDestDirectory])
   else
   FileUtil.CopyFile(Src,Dest,[cffOverWriteFile])  ;
    Application.ProcessMessages ;
    Application.Terminate ; 
end;

merci à tous