TRANSFERT D'UN FICHIER AS400(BASE DE DONNÉES) VERS PC (TXT, CSV, XLS)

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 24 avril 2004 à 16:56
AS400BD Messages postés 2 Date d'inscription mardi 3 janvier 2012 Statut Membre Dernière intervention 3 janvier 2012 - 5 janv. 2012 à 13:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/22213-transfert-d-un-fichier-as400-base-de-donnees-vers-pc-txt-csv-xls

AS400BD Messages postés 2 Date d'inscription mardi 3 janvier 2012 Statut Membre Dernière intervention 3 janvier 2012
5 janv. 2012 à 13:58
bonjour nick123,

je viens d'installer ton logiciel de transfert de fichier as400 sur le pc ,mais j'ai une petite question.

je voudrai recupperer le fichier client ,mais pour ca il me faut le nom de la bibliotheque et la table .

helas je ne les trouvent pas !!!

ou puis je trouver ces elements dans l'as400 ?

merci d'avance.
bouake405 Messages postés 1 Date d'inscription mardi 17 mars 2009 Statut Membre Dernière intervention 17 mars 2009
17 mars 2009 à 16:51
Salut !

Après dézipe, j'ai lancé l'exé. "Transfert AS400" J'ai ce message qui empêche donc la poursuite : << Erreur d'execution '429'. Le composant ActiveX ne peut créer l'objet >>

Que faire ?
jmxlinux Messages postés 8 Date d'inscription samedi 12 juillet 2008 Statut Membre Dernière intervention 13 février 2009
26 nov. 2008 à 10:41
bonjour et merci pour vous efforts.
je suis nouveau sur le forum et je suis très intéressé pour votre application .après la lancement de programme voici le message qi s'affiche .je ne sais pas le problème est ou??
http://img201.imageshack.us/my.php?image=pcas400vv0.jpg
cdt
merzouk59 Messages postés 1 Date d'inscription mercredi 3 septembre 2008 Statut Membre Dernière intervention 5 septembre 2008
5 sept. 2008 à 09:03
bjr et bravo pour votre outil que je viens de découvrir, mais par contre il y a un petit souci sur resultat lorsque je lance le query il n'y a pas d'entete des colonnes. merci de m'éclairer sur ce petit pb. et encore bravo
dabelgian Messages postés 1 Date d'inscription lundi 2 juin 2008 Statut Membre Dernière intervention 2 juin 2008
2 juin 2008 à 17:14
Bonjour,

J'aimerai utiliser ce programme mais il plante au moment ou je selectionne un fichier.
J'ai une petite fenetre qui s'ouvre avec ce message :
AppName: transfert as400 pc.exe AppVer: 1.0.0.1 ModName: cwbdc.dll
ModVer: 10.0.3.3 Offset: 000016a5

Merci d'avance de votre aide.

dabelgian
DOZ69 Messages postés 1 Date d'inscription jeudi 17 février 2005 Statut Membre Dernière intervention 5 juillet 2007
5 juil. 2007 à 01:17
Bonjour, je dois monter un PC avec une supervision(win CC) qui communique avec un AS400. via ethernet en FTP.
J'ai le choix sur le language de programmation soit VisualBasicScript soit C. Pourriez vous m'indiquer quel langage utilisr pour effectuer du transfert de fichiers txt et quelles instructions faut il utiliser (se logger, récuperer un fichier etc)
Merci beaucoup
Dorian
cs_NICK123 Messages postés 29 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 22 juin 2009
16 avril 2007 à 11:23
RetrieveObjects
cette function donne le resultat

bonne chance
cs_yves29 Messages postés 34 Date d'inscription dimanche 11 mai 2003 Statut Membre Dernière intervention 20 juin 2011 1
10 avril 2007 à 16:23
Super ce prog. Mais mon problème est beaucoup plus simple cad savoir si un fichier est présent dans une bib.
cs_NICK123 Messages postés 29 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 22 juin 2009
15 févr. 2007 à 18:46
changer dans la procedure suivante :

Private Sub List1_DblClick() ( Form AS400 )

les deux lines suivantes :

listRetrieved = RetrieveObjects(x & "*", UCase List1.Text), "*FILE", "*ALL")
----- et -------
listRetrieved RetrieveObjects(UCase(Selct.Text), UCase(List1.Text), "*FILE", "*ALL")
> changer *FILE par *ALL
N.B. : certain fichiers ne peux être transferés.
A+
ol1v1erman Messages postés 1 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 13 février 2007
13 févr. 2007 à 15:49
Super et merci c est un programme fort sympathique et utile !j ai une question cependant la liste des tables est limitée car pour une bibliothèque donnée je ne retrouve pas tou ?il y a t il un parametre pour augmenter le nombre?merci de votre réponse !
ol1v1erman
cs_NICK123 Messages postés 29 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 22 juin 2009
25 févr. 2005 à 16:15
merci de m'envoyer le message d'erreur
( Impr Ecran de debogage )sur cette adresse

thaki@rma.co.ma
erickjt Messages postés 1 Date d'inscription jeudi 4 novembre 2004 Statut Membre Dernière intervention 25 février 2005
25 févr. 2005 à 16:05
Bonjour,
Je viens d'essayer ce petit pg qui me parait tres interressant puisqu'il trouve une partie des bibliotheques de l'AS400. Mais j'ai un message d'erreur avant la fin :
erreur d'execution '13' : type incompatible.
Lorsque je clique sur ok : fin du programme.
Dommage ca commencait bien.
Aurais tu la solution stp ?
cs_NICK123 Messages postés 29 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 22 juin 2009
7 févr. 2005 à 15:34
Pour résoudre le problème :

* installer MDAC 2.x ( Recommader pour installer le provider IBMDA400 )
* installer IBM Client Access Express

Dans le module entrer votre profil et mot de passe par defaut :
Public Const UserSec = "USER ID"
Public Const PwdSec = "PASSWORD"
himpe Messages postés 1 Date d'inscription samedi 4 janvier 2003 Statut Membre Dernière intervention 7 février 2005
7 févr. 2005 à 15:20
Bonjour ,

J'ai repris le code et lancer en debuf mais
j'ai le message suivant

"Run time error '3706' Provider cannot be found.It
may not be properly installed '

Ligne ou cela bloque
MyCn.Open "provider=IBMDA400;data source=" & as400.SystemName & "", "" & UserSec & "", "" & PwdSec & ""

Thanks
Fabrice
francky207 Messages postés 1 Date d'inscription mercredi 26 mars 2003 Statut Membre Dernière intervention 21 septembre 2004
21 sept. 2004 à 18:03
Top de chez top !
Ce petit programme m'a vraiment sorti une épine du pied.

Je n'ai as eu le temps encore de regarder le code mais c'est exactement ce dont j'avais besoin.

Merci beaucoup Nick
cs_NICK123 Messages postés 29 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 22 juin 2009
4 août 2004 à 10:50
Les pré-requis pour exécuter ce programme :

* IBM Client Access (Version As400 et Windows).
* MDAC 2.5 et plus.

if faut installer MDAC avant Client Access.
issam_rami Messages postés 2 Date d'inscription lundi 2 août 2004 Statut Membre Dernière intervention 4 août 2004
4 août 2004 à 10:02
urgent = j' arrive pas à executer ton programme
aide moi STP
erreur
projet ou bibliothèque introuvable!
cs_NICK123 Messages postés 29 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 22 juin 2009
26 avril 2004 à 13:45
Pas du tout, IBM as400 CA est configuré sur la langue de votre système As400, et pour votre transfert si seulement vous pouvez ajouter la source sur vbfrance ou me l'envoyer pour analyser le problème.
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
24 avril 2004 à 16:56
Je fait aussi des transferts d'un AS400 vers Access et j'ai des problèmes avec les accents en français (ils sont convertis en caractères illisibles) : je crois que le pilote IBM As400 Client Access Express est configuré par défaut en anglais, tu n'aurais pas une idée pour changer cela ? (le problème se situe sur le poste d'un client, je ne peux pas le résoudre sur ma machine)
Rejoignez-nous