AIDE Modification automatique de la structure des fichier des donnée ?

Re-Bonsoir,

C'est le code que j'utilise. Il faut seulement bien lire la page d'aide de la fonction : HModifieStructure

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

et surtout la section qui parle de l'éventualité de la modification du mot de passe des fichiers de données.

Une autre alternative sera d'utiliser : WDModFic.exe

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

perso sur des ajout de colonne j'utilise
la fonction HModifieStructure(monfichierfic)
et ca passe en général ca passe.

 

Avant le HmodifieStructure, J'utilisais cette méthode qui fonctionne parfaitement

Code (Text):

RES est un booléen
sLigneDeCommande est une chaîne
sDisque est une chaîne = "C"
sChemSauve est une chaîne


HFerme("*")
Multitâche(100)
//SI PAS En Mode Test() ALORS

SI Ouvre(FEN_OUINON,"Voulez vous faire une sauvegarde de vos données avant la mise à jour (conseillé) ?") ALORS
    sChemSauve = SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Sauvegardes\"+Ste+"_avant_la_migration_" + DateSys()+HeureSys()
//    RES = fRepCopie(chemin,sChemSauve,frJauge)
    RES = fCopieFichier(chemin+"\*.fic",sChemSauve,frJauge)
    SI PAS RES ALORS
        Ouvre(FEN_ERREUR,"Copie de sauvegarde de " + chemin  +" vers " + sChemSauve + RC +RC +ErreurInfo(errMessage))
    FIN
    RES = fCopieFichier(chemin+"\*.mmo",sChemSauve,frJauge)
    SI PAS RES ALORS
        Ouvre(FEN_ERREUR,"Copie de sauvegarde de " + chemin  +" vers " + sChemSauve + RC +RC +ErreurInfo(errMessage))
    FIN
FIN

//On simule un Quitter propre
INIEcrit(Ste,"StopArret","0",chemin+"\"+ComIni)


SI ModeCS = Vrai ALORS //En mode Serveur
    sRepertoireWDModFic est une chaîne=fCheminCourt(SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Utilitaires\ ")
//    sRepertoireWDModFic est une chaîne=fCheminCourt(sansespace(disque)+sansespace(CheminLogiciel)+"\Utilitaires\ ")
//    sNomCompletWDD est une chaîne=sansespace(disque)+sansespace(CheminLogiciel)+"\Cudbe.WDD"
    sNomCompletWDD est une chaîne=SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Cudbe.WDD"
    sUtilisateur est une chaîne=CSUSER
    sMotDePasse est une chaîne=CSPASS
    sMotDePasseAnalyse est une chaîne=MotPasseAnalyse
    sAdresseOuNomServeurHF est une chaîne=CSIPSERVEUR
    nNumPortServeurHF est un entier=CSPORT
    sNomBaseDeDonnees est une chaîne=CSBASE
 
         
    sLigneDeCommande=ChaîneConstruit([
    "%1WDModFic.exe" /FILEPWD=%8 /WDD="%2" /SERVER=%3:%4@%5:%6/%7 -Error -report -nobackup
    ],ComplèteRep(sRepertoireWDModFic),sNomCompletWDD, sUtilisateur, sMotDePasse,sAdresseOuNomServeurHF, nNumPortServeurHF, sNomBaseDeDonnees, sMotDePasseAnalyse)



    SI PAS LanceAppli(sLigneDeCommande,exeActif,exeBloquant) ALORS
        Ouvre(FEN_ERREUR,"Impossible d exécuter la modification automatique des données CLIENT/SERVEUR  : ",ErreurInfo(),"Ligne de commande utilisée : ",sLigneDeCommande)
    SINON
        FinProgramme()
    FIN

SINON
    LanceAppli(sansespace(disque)+sansespace(CheminLogiciel)+"\Utilitaires\WDModfic.EXE  -error -report /WDD="+sansespace(disque)+sansespace(CheminLogiciel)+"\Cudbe.WDD /PWD="+MotPasseAnalyse+" /DIR="""+ComplèteRep(chemin),exeMaximise+exeActif)

//Attention le WDMODFIC plante sur les fichiers non indéxés

    sLigneDeCommande = SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Utilitaires\WDModfic.EXE"+" -subdir -nobackup "+  "/WDD="+SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Cudbe.WDD /PWD="+MotPasseAnalyse+" /DIR="""+ComplèteRep(chemin) + ""
    LanceAppli(sLigneDeCommande  ,exeActif,exeBloquant)
    //LanceAppli(SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Utilitaires\WDModfic.EXE   /WDD="+SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Cudbe.WDD /PWD="+MotPasseAnalyse+" /DIR="""+ComplèteRep(chemin) + "-nobackup"  ,exeActif,exeBloquant)
//    LanceAppli(SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Utilitaires\WDModfic.EXE  -error -report /WDD="+SansEspace(gsDisque)+SansEspace(gsCheminLogiciel)+"\Cudbe.WDD /PWD="+MotPasseAnalyse+" /DIR="""+ComplèteRep(chemin),exeMaximise+exeActif)
    SI sansfermeture = Vrai ALORS FinProgramme()
FIN




 

 

Hello,

pour ma part, je teste les fichiers au démarrage de l'appli.

Si tout se passe bien, je passe, sinon si j'ai une erreur de type je lance WDModFich en ligne de commande.

Dans tous les update, je mets le *.wdd de la version en cours pour le passer en paramètre de WDModFic

ça donne ça :

[windev]QUAND EXCEPTION DANS


HCréationSiInexistant("*",gsCleCryptage)



RETOUR

FAIRE
// gérer les erreurs de version d'analyse
SI ExceptionInfo(errCode) = 70016 ALORS
// aviser les utilisateurs
sMessage est une chaîne
sMessage=[
L'application et la base données n'ont pas la même structure, ceci provient
généralement d'une mise à jour du logiciel ou du rechargement d'une ancienne sauvegarde de données.
Le programme va convertir la structure des données pour la rendre compatible.
]

HFerme("*")
Erreur(sMessage)

sCheminWDModFic,sCheminAnalyse,sLigneDeCommande est une chaîne
sCheminWDModFic =( ComplèteRep(gsRepApplication) + "")
sCheminAnalyse = (ComplèteRep(gsRepApplication) + "fichierdata.wdd")

// Paramètres pour la modification automatique des fichiers

// Utilisateur et mot de passe sur le serveur HFSQL
// (avec les droits de faire la modification de structure des fichiers)
sUtilisateur est une chaîne = val_ini("Serveur_User")
sMotDePasse est une chaîne = val_ini("Serveur_Pass")
sMotDePasse = DecryptePassword(sMotDePasse)
// Adresse IP ou nom DNS de la machine qui héberge le serveur HFSQL
sAdresseOuNomServeurHF est une chaîne = val_ini("Serveur_HFSQL")
// Port du serveur HFSQL
nNumPortServeurHF est un entier = 4900
// Nom de la base de données dans laquelle se trouvent les fichiers à modifier
sNomBaseDeDonnées est une chaîne = val_ini("Serveur_BDD")

// Construction de la ligne de commande
// Il suffit d'enlever /report pour ne pas avoir
// une boîte de dialogue à la fin

sLigneDeCommande = ChaîneConstruit([ "%1WDModFic.exe" -error -nobackup -noanaguid /WDD="%2" /SERVER="%3:%4@%5:%6/%7"
], ComplèteRep(sCheminWDModFic), ...
sCheminAnalyse, sUtilisateur, ...
sMotDePasse, sAdresseOuNomServeurHF, ...
nNumPortServeurHF, sNomBaseDeDonnées)


SI PAS LanceAppli(sLigneDeCommande, exeActif, exeBloquant) ALORS
// Échec du lancement, affichage de l'erreur
Erreur("Impossible d'exécuter la modification automatique des données : ", ErreurInfo(), ...
"Ligne de commande utilisée : ", sLigneDeCommande)
FIN


ToastAffiche("Réindexation des fichiers en cours ...",toastLong,cvMilieu,chCentre,iVertFoncé)

sListeFichier est une chaîne = HListeFichier()
POUR TOUTE CHAÎNE sFichier DE sListeFichier SEPAREE PAR RC
SI PAS HRéindexe(sFichier,hNdxNormal) ALORS
CONTINUER
FIN

FIN

ToastSupprimeTout()


FIN

FIN[/windev]

 

Merci les mecs , vous m'avez sauvez la vie ^^