PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WD -  Como migrar arquivos arquivos hiperfile em um banco de dados MySQL?
WD - Como migrar arquivos arquivos hiperfile em um banco de dados MySQL?
Débuté par BOLLER ADRIANO, 28 juin 2016 23:20 - Aucune réponse
#1
Membre enregistré
3 661 messages
Popularité : +175 (223 votes)
Posté le 28 juin 2016 - 23:20
Aqui é o procedimento para transformar o Hyper Arquivo 7 em arquivo de tabelas MySQL.

estágios 1

Definir, se necessário, na base de dados MySQL que irá acomodar as novas tabelas.

fase 2

L`analyse no projeto, alterar o tipo de arquivo (guia "Info" no "Descrição do arquivo"). Substituir "Hiper Arquivo de 7" com "Nativo de acesso / Outros OLEDB Access." Se não n`existe, você irá descrever uma conexão com MySQL e selecione-o. Validar e gerar l`analyse.

3 fases

Para a criação de tabelas MySQL, use o HCreation () ou HCreationIfNotFound ().

Exemplo:

HCreationIfNotFound (Cedex)

passo 4

transferência HF7 de dados para as tabelas MySQL correspondentes. Esta etapa é realizada com o seguinte código:

// Transferência de arquivo de dados HF7 Cedex
// Para MySQL Cedex mesa
// Diretório Arquivo
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


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Revenir à WINDEV 25