Restaurer ma Base sans Erreur??? [Résolu]

[touhami]

Bonjour a tous,
la sauvegarde de ma base de données s'effectue sans aucun probeleme,
mais au contraire de la restauration,
et voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  DataModule1.IBMaBase.Connected := FALSE;
 
    WITH DataModule1.IBRestoreService1 do
    begin
      Params.ADD('user_name=sysdba');
      Params.ADD('password=masterkey');
     try
        Verbose := True;
        Options := [REPLACE, UseAllSpace];
        DatabaseName.Clear;
        BackupFile.Clear;
        DatabaseName.ADD('D:\Monapplication\MaBase.gdb');
        BackupFile.ADD('D:\MesSauvegardes\LaSauvegarde.gbk');
        Active := True;
        ServiceStart;
      finally
        Active := False;
        ShowMessage('Terminer');
      end;
    end;
  DataModule1.IBMaBase.Connected := TRUE;

j’obtiens l'erreur suivante :

le Projet MonProjet.exe a provoqué une classe d'exception EIBInterBaseError avec le message 'I/O error for file "D:\Monapplication\MaBase.gdb"
Error while trying to open file
le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus'.

mes la restauration est bien effectuer , le problème que je ne peut pas savoir la source du problème.
j'utilise Interbase 7.5 et Delphi 7 entreprise sous Windwos XP Pro.
Bon developpement.

[lio33]

La base de données est-elle en cours d'utilisation par une autre application ?
Ouverte dans IBExpert ou IBConsole par exemple.

Pour la restauration la base ne doit pas avoir de users connectés.

Enfin, je pense !

[jean-jacques varvenne]

il faut changer l'extension "gdb" en "fdb" par exemple.

cette extension et utilisée par windows

[touhami]

Bonjour,
je vous remercie pour votre réponse,
Ma base de donnée n'est pas Ouverte dans IBExpert ou IBConsole.
et je suis le seul utilisateur (SYSDBA) qui est connecter a la base.
et je ne sais pas comment faire pour détecter quel processus qui utilise ma base.
j'ai essayer d'exécuter pas à pas mon morceau de programme ,
tous va bien sauf quand j'arrive a la dernière instruction :

Code :

DataModule1.IBMaBase.Connected := TRUE;

j'obtient le message d'erreure.

et pour la reponse du Monsieur jean-jacques varvenne

il faut changer l'extension "gdb" en "fdb" par exemple.

a titre d'information j'utilise Interbase 7.5 non pas FireBird.
et est ce que l'extension GDB pose toujours des problème avec Windows XP même avec Interbase 7.5.
Merci beaucoup pour l'intérêt que vous avez mis a ma question.
Bon développement a tous.

[Benjamin GAGNEUX]

Salut,

jean-jacques varvenne a raison, l'extentions gdb est déjà utilisé par windows, et cela n'a rien a voir avec la version d'IB. Il faut donc en choisir une autre ou désactiver la restauration système.

plus d'info ici : http://thierry-laborde.developpez.com/articles/interbase6/#L4

[touhami]

Bonjour,
Merci yobenzen pour votre reponse est je vais essayer tous de suite.

[touhami]

Bonjour,
j'ai essayé a nouveau avec Un Base de données avec l'extension "Fdb"au lieu de "Gdb" mais le probleme est toujour présent.

le Projet MonProjet.exe a provoqué une classe d'exception EIBInterBaseError avec le message 'I/O error for file "D:\Monapplication\MaBase.gdb"
Error while trying to open file
le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus'.

j'utilise Interbase 7.5 et Delphi 7 entreprise sous Windwos XP Pro.
Bon developpement.

[touhami]

Bonjour,
merci pour tous le monde ,
j'ai reinstallé mon Interbase et je installé a nouveau est le probleme est bein resolue.
Merci a Andry pour ses Conseils utililes.
Bon developpement a tous.

[Barbibulle]

Bonjour,
Votre probleme est tout a fait normal et n'a rien a voir avec une mauvaise installation.

Une fois la procédure de restauration lancée (ServiceStart) celle ci rend la main immédiatement.

Ce qui vous arrive c'est que tout simplement la restauration est en cours et donc vous ne pouvez y acceder tant que celle ci n'est pas terminée. (Ce qui explique pourquoi au bout d'un certain temps vous arrivez a vous connecter)

Pour résoudre ce problème il suffit de mettre une boucle d'attente de fin du service de restauration :

Code :

1
2
3
IBRestoreService1.ServiceStart;
While NOT IBRestoreService1.EOF do Sleep(10);
...

Dernière remarque si vous utilisez le paramètre de restauration 'UseAllSpace' votre base va en effet est plus compacte et donc plus petite. Cependant elle sera bien moins performante notamment lorsque vous ferez des créations de données (INSERT).

[touhami]

Bonjour,
c'est avec un tres grand plaisire que je lit ton message Barbibulle,
Merci pour votre reponse et Bon developpement a tous.