PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Sauvegarde de Base
Sauvegarde de Base
Started by Gilles Lanchantin, Mar., 30 2006 6:32 PM - 5 replies
Posted on March, 30 2006 - 6:32 PM
Bonjour,

Je voulais savoir comment faire une procédure de sauvegarde d'une base. En effet j'avais déjà créé des projets en visual basic avec une base access, et il n'y avait que le fichier *.mdb à sauvegarder.

Avec Hyperfile, on a autant de fichiers que de tables plus les indexes.

Existe-t-il une procédure de sauvegarde toute faite, et surtout comment vérifier que la sauvegarde comporte tous les fichiers et est bien identique à celle présente sur le poste.

Même question pour la restauration.

Merci de vos réponses.
Posted on March, 30 2006 - 8:08 AM
Bonjour,

Je veux juste signaler un truc pour les gens utilisant les sauvegardes physiques des fihiers *.Fic *.Ndx *.MMO .....

Vous pouvez juste sauvegarder les *.fic et les *.mmo ... sans les index *.ndx pour gagner de l'espace et pour avoir une sauvegarde "au minimum taille possible" puis dans le code de l'ouverture de la base de données de votre application testez la non presence des index pour lancer une reindexation des fichiers restaurés d'une suvegarde.


--

Ali Hindi : Alidev7@yahoo.fr
Posted on March, 30 2006 - 10:46 AM
Bonjour,

Merci Ali, je ne savais pas cela, je sauvegarde toujours mes fichiers FIC et NDX. Alors la, je vais essayer ta solution.

Bonne continuation et Bon Dev.

Chris Letellier
Posted on March, 30 2006 - 4:58 PM
Bonjour,

Voici ce que j'utilise.
Seuls les fichiers sont sauvegardés, en démarrage de l'appli je vérifie si les index sont à jour et je les recrée :

ResCréationArchive est un entier = zipCrée("lezip",LeFichierZIP)
SI ResCréationArchive <> 0 ALORS
Erreur(zipMsgErreur(ResCréationArchive))
SINON
Message("Sauvegarde en cours...")
ResFichier = fRep(gstrDossierBases+"*.FIC", frFichier)
TANTQUE ResFichier <> ""
zipAjouteFichier("lezip",ResFichier,zipAucun)
ResFichier = fRep("", frFichier)
FIN

Message("Sauvegarde terminée.")
zipFerme("lezip")

Info("Sauvegarde terminée dans",LeFichierZIP,"",ResFichier)
FIN


Voici le code de création des index :

// réindexe auto
lesFichiers est une chaîne = HListeFichier()
leFichier est une chaîne = ""
POUR TOUTE CHAINE leFichier DE lesFichiers SEPAREE PAR RC
SI HFichierExiste(leFichier) ALORS
SI HVérifieIndex(leFichier)>0 ALORS
HRéindexe(leFichier)
FIN
FIN


En espérant que cela te sera utile...

Cordialement

-- André
Posted on March, 30 2006 - 6:48 PM
Bonjour,

Tu a 2 solutions pour ta sauvegarde :

* en automatique grace a WDJournal

* en programmation : en copiant les fichiers avec fCopieFichiers ( tu copie donc les extensions FIC et NDX) et tu Zip cela avec WDZIP

Bonne continuation et bon dev.

Chris Letellier
Posted on March, 31 2006 - 12:40 AM
avec windev 10 c'est inclus enprenant en compte le menu ? dansla fenêtre principal du projet et ca marche ! par contre pour la restauration il faut le faire à la main ou développer la procedure ..