FORUM WINDEV

[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

Code: Tout sélectionner

//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