Discussion :

[bilel.pictor]

Bonjour,
j'ai une application créer en Windev 4.1, je veux récuperer les informations de ma base de données HF avec un script sur windev 9 vu que l'application est en production et je dois pas y touché, sachant que j'ai pu lire les données avec WDmap.

j'espere que vous puissiez m'aider et merci d'avance

[EDM-TAHITI]

Hello,
La tâche n'est pas très difficile, mais il faut suivre ces quelques régles:
- faire copie dans un répertoire non accessible par l'appli en cours
- Lancer la version 9 de l'exe pour voir s'il ouvre bien tous les fichiers
- Modifier alors dans l'analyse les fichiers pour qu'il prennent en compte WD9

Voilà. Dans l'analyse, il y aura toujours la conversion WD4.1 vers WD9 (message demandant de garder la correspondance) jusqu'a ce que tu dises non, alors, l'appli sera définitevement en WD9.

Ainsi, récupération des fichiers et surtout des données de l'appli, même strucutre, avec le même code (a deux ou trois bricoles près)...

[bilel.pictor]

merci pour ta réponse,
mais excuse moi vu que je suis débutant en windev je crains que j'ai pas bien compris ce que je dois faire. juste faut savoir que j'ai pas la source du logiciel je veux juste faire un script pour récupérer des données

[EDM-TAHITI]

Hello,
Oui, cela, je l'avais compris. Et la manip te permet de récupérer les fichiers de données avec les données, et pratiquement sans rien faire...
Et les données récupérées, c'est pour les exploiter je suppose????

Maintenant, si d'autres contraintes existent et que tu n'as rien dis, pas facile de résoudre les problèmes sur des choses dont on ignore l'existence....

[bilel.pictor]

bonjour,
merci EDM-TAHITI pour ton intérêt
j'ai cherché sur le net et j'ai trouvé la fonction hdéclare dans un exemple sur le site de windev
donc voila
j'ai mis ce bout de code

Code :

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

1
2
3
4
 
resultat est un booléen
resultat = hDéclare ("FICH","c:\projet\MyAnalyse.wdd","MP","FICH55")
HChangeRep ("*","c:\projet\base")

mais le probleme que je sais pas comment récuperer les données, que je veux par la suite les exploités

Merci

[Yusep]

Bonjour
J'utilise cette procedure pour importer des fichiers 5.5 vers 7

Code :

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

1
2
3
4
5
6
7
8
9

PROCEDURE ImportarWD55(AnalyseImport, Fichier)
[FONT=System][FONT=System][/FONT][/FONT]HCréation(Fichier)
SI PAS HImporteHF55(Fichero, Fichier, DirPrograme55+[FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]"\"[/FONT][/FONT][/FONT]+Fichier+[FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]".FIC"[/FONT][/FONT][/FONT], [FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]""[/FONT][/FONT][/FONT], AnalyseImport, [FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]""[/FONT][/FONT][/FONT], [FONT=Courier New][FONT=Courier New][FONT=Courier New]hValDéfaut[/FONT][/FONT][/FONT] + [FONT=Courier New][FONT=Courier New][FONT=Courier New]hImpConversion[/FONT][/FONT][/FONT], [FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]"JAUGE_Jauge1"[/FONT][/FONT][/FONT]) ALORS
Erreur([FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]"Importation impossible"[/FONT][/FONT][/FONT])
SINON
Trace([FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]"Fichier importé : "[/FONT][/FONT][/FONT]+DirPrograme55+[FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]"\"[/FONT][/FONT][/FONT]+Fichier+[FONT=MS Shell Dlg][FONT=MS Shell Dlg][FONT=MS Shell Dlg]".FIC"[/FONT][/FONT][/FONT])
FIN
[FONT=System][FONT=System][/FONT][/FONT]

[EDM-TAHITI]

Hello,
Il me serait agréable que tu répondes directement aux questions posées afin que je puisse cerner ton problème.
En principe, puisque tu lis les données, tu prends le répertoire de la base, tu le copies dans un autre répertoire, et depuis le nouveau projet 9, tu devrais pouvoir lire les infos de ce nouveau répertoire!. Est-ce le cas?

[devwd]

Le truc le plus important est :


Est-ce que tu disposes du fichier nomprojet.wdd qui décrit la base de donnée ?

Dans les versions antérieures à windev 7, il était impossible de lire le contenu des fichiers sans ce descripteur.

[bilel.pictor]

j'ai trouvé la solution, merci pour votre aide

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
 
i est un entier = 0
anaHF5 est une chaîne = "c:\projet\myanalyse.wdd"
ficHF5 est une chaîne = "c:\projet\mybase"
FIC est une chaîne = "FILE1"
 
SI PAS  HDéclare (FIC, anaHF5,"MP") ALORS Info(HErreurInfo())
SI PAS  HChangeRep("*", ficHF5) ALORS Info(HErreurInfo())
SI pas  (HOuvre(FIC,"MP") )
ALORS  (HErreurInfo())
 
POUR i = 1 A HNbEnr(FIC)
                HLit(FIC, i)
                SI HEtat() ALORS Info({FIC+".champ1"})
FIN