Discussion :

[mnssylvain]

merci pour ces explications, j'ai encore un peu de mal à tout gérer mais ça va venir (enfin j'espère.)

J'arrive pas encore à inclure mais fichiers dans l'installation. Je veux les mettre car la base de donnée sera livrée avec des données exemples.


J'ai un soucis quand je teste l'installation de mon application.
J'arrive maintenant à rentrer dedans (hcreationsiinexistant....)

mais lorsque je modifie des données j'ai un message d'erreur :

Vous avez appelé la fonction HModifie.
Impossible d'ouvrir le fichier <C:\Program Files\gestion loge 2\Fichiers\Membres.FIC>.
Il n'est pas possible d'ouvrir en écriture des fichiers présents dans les bibliothèques (WDL) et les composants (WDK).

edit:

OK j'ai trouvé, j'avais inclus les fichiers dans les bibliothèques, c'est pour cela que le logiciel se lancer mais rien n'était modifiable.

Du coup j'ai trouvé à quel endroit on ajoute les fichiers. Par contre j'ai trouvé qu'une façon, lorsque l'on crée l'installation. Tu parles aussi de la création de l'exécutable mais la je n'ai rien vu pour le moment.

Enfin le principal c'est d'avoir trouvé une façon.

Pour en revenir au premier problème, celui de la sauvegarde, je pense continuer à utiliser les fonctions fXXXXX pour copier mes fichiers dans un autre répertoire car la commande archive crée un fichier compresser.
Et moi j'ai besoin de pouvoir changer de répertoire pour pouvoir consulter mes sauvegardes.

J'ai bien avancé, je pense même avoir terminé. Je finis mes test et ce soir je mettrai le code pour ceux qui ont le meme probleme.

[mnssylvain]

OK problème résolu voici comme promis mes codes:

La procédure sauvegarde:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
HLitPremier(Paramètres)
 
Paramètres.datedernièreSauvegarde= DateDuJour
HModifie(Paramètres)
 
Datesauv est une chaîne
datesauv=DateVersChaîne(DateDuJour,"jj_mm_aaaa")
fCopieFichier(fRepDonnées +"\*.*",fRepExe +"\sauv\"+"sauv du" +" " +datesauv ,frRécursif)
 
 fListeRépertoire(fRepExe+"\sauv",supprrepertoire)
TitreSuivant("Sauvegarde automatique")
Info("La sauvegarde a bien été effectuée")

La procédure "supprrepertoire" qui est appelée dans la précédente qui permet de supprimer les répertoire de + de 6 mois:

Code :

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

1
2
3
4
daterep est une Date
daterep=DateDuJour
daterep..Mois-=6
SI fDate("","",fCréation) < daterep ALORS fRepSupprime("")

et une procédure pour faire une copie des fichiers à un endroits choisi par l'utilisateur (cle usb....)

Code :

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

1
2
3
4
5
6
7
8
Datesauv est une chaîne
chemin est une chaîne
datesauv=DateVersChaîne(DateDuJour,"jj_mm_aaaa")
chemin=fRepSélecteur("C:\Documents and Settings\Administrateur\Bureau\", "Sélectionnez un répertoire.....", "Sélectionnez le répertoire dans lequel vous désirez stocker votre sauvegarde:")
 
fCopieFichier(fRepDonnées + "\*.*",chemin +"\sauv nomdulogiciel du" +" " +datesauv ,frRécursif)
TitreSuivant("Sauvegarde automatique")
Info ("Sauvegarde réussie")

et un dernier petit pour restaurer une sauvegarde
je charge d'abord la sauvegarde sur un clic d'un bouton (consulter la sauvegarde)

Code :

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

1
2
3
4
5
6
7
8
chemin est une chaîne
Cheminbureau est une chaîne
cheminbureau= SysRep(srBureau)
chemin = fRepSélecteur(cheminbureau, "Sélectionnez un répertoire.....", "Sélectionnez le répertoire de la sauvegarde à consulter")
HChangeRep("*",chemin)
 
Ouvre(Fen_menugeneralarchive)
Ouvre(Fen_menugeneralarchive)

puis sur le clic d'un bouton (restaure la sauvegarde):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TitreSuivant("Restauration")
//1 : Restaurer
//2 : Annuler
SELON Dialogue("Voulez vous vraiment restaurer cette sauvegarde? Vous risquez de perdre les données actuelles!")
	// Restaurer
	CAS 1
		Chemin est une chaîne
		chemin = Membres..Répertoire
		fCopieFichier(chemin +"\*.*",fRepDonnées+"\" ,frRécursif)
		HChangeRep("*",fRepDonnées)
		Ferme
	// Annuler
	CAS 2
 
FIN