30-06-2011, 11:22 AM
[Hyper File] Comment migrer les fichiers hyper files 7 en une base MySql ?
Voici la procédure permettant de transformer les fichier Hyper File 7 en tables MySQL.
Etape 1
Définir, si besoin, dans MySQL la database qui va acceuillir les nouvelles tables.
Etape 2
Dans l`analyse du projet, modifier le type des fichiers (onglet "Info" dans la fenêtre "Description du fichier"). Remplacer "Hyper File 7" par "Accés natif / Autres accès OLEDB". Si elle n`existe pas, vous devrez décrire une connexion vers MySQL et la sélectionner. Valider et générer l`analyse.
Etape 3
Pour la création des tables MySQL, utiliser la commande Hcréation() ou HCréationSiInexistant().
Exemple: HCréationSiInexistant(Cedex)
Etape 4
Voici la procédure permettant de transformer les fichier Hyper File 7 en tables MySQL.
Etape 1
Définir, si besoin, dans MySQL la database qui va acceuillir les nouvelles tables.
Etape 2
Dans l`analyse du projet, modifier le type des fichiers (onglet "Info" dans la fenêtre "Description du fichier"). Remplacer "Hyper File 7" par "Accés natif / Autres accès OLEDB". Si elle n`existe pas, vous devrez décrire une connexion vers MySQL et la sélectionner. Valider et générer l`analyse.
Etape 3
Pour la création des tables MySQL, utiliser la commande Hcréation() ou HCréationSiInexistant().
Exemple: HCréationSiInexistant(Cedex)
Etape 4
Code :
//Transfert des données HF7 vers les tables MySQL correspondantes. Cette étape est réalisée par le code suivant:
// Transfert des données du fichier HF7 Cedex
// vers la table MySQL Cedex
// Répertoire du fichier
RépertoireHF7 est une chaîne "F:Mes ProjetsprojetExe"
// Fichier HF7
CedexHF7 est une Source de Données
// Ouvre une connexion HF7
SI HOuvreConnexion("ConnectionHF7", "", "", RépertoireHF7, "", hAccèsHF7) ALORS
// Définition d`un alias qui permettra d`utiliser
// la commande HCopieEnreg
SI HAlias(Cedex,CedexHF7) ALORS
// L`alias est redirigé vers la connexion HF7
HChangeConnexion(CedexHF7,"ConnectionHF7")
// Nécessaire car le fichier physique s`appelle CEDEX
HChangeNom(CedexHF7,"Cedex")
// Boucle de lecture avec transfert des enregistrements de HF vers MySQL
HLitPremier(CedexHF7)
TANTQUE PAS HEnDehors()
Trace(CedexHF7.Ville)
HRAZ(Cedex)
SI HCopieEnreg(Cedex,CedexHF7,"","",hCopieIdAuto) ALORS
HAjoute(Cedex)
FIN
HLitSuivant(CedexHF7)
FIN
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN