PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Récupération de fichiers
Récupération de fichiers
Started by tb, Aug., 17 2004 8:54 PM - 1 reply
#1
Posted on August, 17 2004 - 8:54 PM
Bonjour
J'ai des fichiers sur AS400 que je dois récupérer dans des fichiers de type
hyper-file. Je n'ai pas l'accés natif AS400. Je les transferts via FTP avec
l'extension DBF.
Voici comment j'intègre un de ses fichier par windev :

NomSource="c:\artfmm.dbf"
HSubstRep("c:\depart01","c:\depart08")
HChangeNom("ARTIFMM","JOARFMM")
HCréation("ARTIFMM")
NumConnexion=SQLConnecte(NomBase,"","",NomSource,"ODBC")

SQLExec("SELECT * from artfmm.dbf", "REQ1")

TANTQUE SQLFetch("REQ1") = 0
A0.REF = SQLLitCol("REQ1", 1)
A0.LIBEL = SQLLitCol("REQ1", 2)
A0.UVT = SQLLitCol("REQ1", 3)
A0.PVT = SQLLitCol("REQ1", 4)
A0.STK = SQLLitCol("REQ1", 5)
A0.EMB = SQLLitCol("REQ1", 6)
A0.NBSEM = SQLLitCol("REQ1", 7)
A0.DCONF = SQLLitCol("REQ1", 8)
A0.DNC = SQLLitCol("REQ1", 9)
A0.COLISA = SQLLitCol("REQ1", 10)
A0.DETAIL = SQLLitCol("REQ1", 11)
A0.MINIQU = SQLLitCol("REQ1", 12)
A0.FAMILLE = SQLLitCol("REQ1", 13)

HAjoute("ARTIFMM")
Sablier(Vrai)
FIN

SQLFerme("REQ1")
HFerme("ARTIFMM")
SQLDeconnecte()


Cela marche, mais trés long.Connaissez-vous un moyen plus rapide.
Merci
#2
Posted on August, 18 2004 - 8:27 PM
Bonjour,

Je ne sais pas ce que vous entendez par très long. S'agit-il de l'éxécution
de votre bout de code en lui même ou des manipulations préalables ?

Si vous disposez ( et je pense que c'est le cas ) d'un client windows pour
vous connecter à l'AS400 autrement que pas l'austère telnet, sachez que ces
outils ( RUMBA par exemple ) sont souvent accompagnés d'un driver ODBC pour
l'AS400.

Donc, une fois la connexion ODBC ajoutée sur le poste client il ne reste
pas grand chose a modifier dans votre code.

Cela devrait vous épargner les fastidieuses manipulations d'un fichier intermédiaire.

Sinon vous pouvez bien sûr automatiser tout le traîtement en lançant les
commandes d'export sur l'AS400 par telnet dans votre programme puis en rapatriant
par FTP ( toujours automatiquement ) le fichier DBF avant de lancer l'import.
Windev8 dispose de tout ce qu'il vous faut pour ça en standard.

J'espère ne pas avoir répondu à coté de la plaque.


"Thierry" <tb@jojafrance.com> wrote:


Bonjour
J'ai des fichiers sur AS400 que je dois récupérer dans des fichiers de type
hyper-file. Je n'ai pas l'accés natif AS400. Je les transferts via FTP avec
l'extension DBF.
Voici comment j'intègre un de ses fichier par windev :

NomSource="c:\artfmm.dbf"
HSubstRep("c:\depart01","c:\depart08")
HChangeNom("ARTIFMM","JOARFMM")
HCréation("ARTIFMM")
NumConnexion=SQLConnecte(NomBase,"","",NomSource,"ODBC")

SQLExec("SELECT * from artfmm.dbf", "REQ1")

TANTQUE SQLFetch("REQ1") = 0
A0.REF = SQLLitCol("REQ1", 1)
A0.LIBEL = SQLLitCol("REQ1", 2)
A0.UVT = SQLLitCol("REQ1", 3)
A0.PVT = SQLLitCol("REQ1", 4)
A0.STK = SQLLitCol("REQ1", 5)
A0.EMB = SQLLitCol("REQ1", 6)
A0.NBSEM = SQLLitCol("REQ1", 7)
A0.DCONF = SQLLitCol("REQ1", 8)
A0.DNC = SQLLitCol("REQ1", 9)
A0.COLISA = SQLLitCol("REQ1", 10)
A0.DETAIL = SQLLitCol("REQ1", 11)
A0.MINIQU = SQLLitCol("REQ1", 12)
A0.FAMILLE = SQLLitCol("REQ1", 13)

HAjoute("ARTIFMM")
Sablier(Vrai)
FIN

SQLFerme("REQ1")
HFerme("ARTIFMM")
SQLDeconnecte()


Cela marche, mais trés long.Connaissez-vous un moyen plus rapide.
Merci
→ Go back to WINDEV 2024