Discussion :

[FOCUS77]

Bonjour à tous.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

Maintenant, pour répondre à la question,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[FOCUS77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var
  Form1: TForm1; USB:String;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[FOCUS77]

Bonjour à tous

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FOCUS77]

Bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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