PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV Mobile 2024 → Acces à une base de donnée AS/400 à partir d'un Pocket PC
Acces à une base de donnée AS/400 à partir d'un Pocket PC
Débuté par mhamouda, 17 aoû. 2005 18:21 - 3 réponses
#1
Posté le 17 août 2005 - 18:21
Environnement:
AS/400 iSeries
Symbol pocket pc modele PPT2800, 32MB, 802.11b
S/O: microsoft Pocke PC 3.0
Easycom pour WD mobile 9

Problème:
L'application se connecte à l'AS/400 mais ne retourne pas l'enregistrement lu.

Code:
//Connexion
bReponse est un booléen=HOuvreConnexion("LC","EASYCOM","EASYCOM","192.168.1.254",hAccèsNatifAS400)

si breponse=faux ALORS
Info("Erreur de description de la connexion :"+HErreurInfo())
finprogramme
FIN

==> semble se connecter correctement, pas de message d'erreur
//Traitement
Trace("Avant lecture") //===> OK
HLitRecherchePremier(Invupc,Iupc,txtUPC)
Trace("Apres lecture") //===> Ne se fait pas
==> il semble que la lecture se fait mais le resultat n'est pas retourné à l'apllication.

J'ai essayé ce code:
EACRet est un booléen
LigneCmd est une chaîne
LigneCmd = "sndmsg msg('Bonjour mmmmmmmmmmm') tousr(MOHSEN)"

SI PAS ASExec(LigneCmd) ALORS
Info(ErreurInfo(errRésumé))
SINON
Info("Commande envoyée avec succès.")
FIN
==> il fonctionne sans problème.

Est-ce qq'un peut aider?
Merci
#2
Posté le 17 août 2005 - 18:42
Salut,
Tu n'aurais pas oublié de mettre en ligne les bibliothèques où se
trouvent tes fichiers ? tu sais ADDLIBLE ....

A+



Après mure réflexion, Mohsen a écrit :

Environnement:
AS/400 iSeries
Symbol pocket pc modele PPT2800, 32MB, 802.11b
S/O: microsoft Pocke PC 3.0
Easycom pour WD mobile 9

Problème:
L'application se connecte à l'AS/400 mais ne retourne pas l'enregistrement
lu.

Code:
//Connexion
bReponse est un
booléen=HOuvreConnexion("LC","EASYCOM","EASYCOM","192.168.1.254",hAccèsNatifAS400)

si breponse=faux ALORS
Info("Erreur de description de la connexion :"+HErreurInfo())
finprogramme
FIN

==> semble se connecter correctement, pas de message d'erreur
//Traitement
Trace("Avant lecture") //===> OK
HLitRecherchePremier(Invupc,Iupc,txtUPC)
Trace("Apres lecture") //===> Ne se
fait pas ==> il semble que la lecture se fait mais le resultat n'est pas
retourné à l'apllication.

J'ai essayé ce code:
EACRet est un booléen
LigneCmd est une chaîne
LigneCmd = "sndmsg msg('Bonjour mmmmmmmmmmm') tousr(MOHSEN)"

SI PAS ASExec(LigneCmd) ALORS
Info(ErreurInfo(errRésumé))
SINON
Info("Commande envoyée avec succès.")
FIN
==> il fonctionne sans problème.

Est-ce qq'un peut aider?
Merci



--
Bon développement à tous
Christian

cciochir@ _ at _ cmii.fr
#3
Posté le 17 août 2005 - 20:51
Le test en mode emulation fonctionne son probleme.
mais ca ne fonctionne pas du pocket PC.
Le profil utilisateur utilisé lors de la connexion au AS/400 qui definit les library à utiliser.
Merci.
#4
Posté le 17 août 2005 - 20:52
Le test en mode emulation fonctionne son probleme.
mais ca ne fonctionne pas du pocket PC.
Le profil utilisateur utilisé lors de la connexion au AS/400 qui definit les library à utiliser.
Merci.
→ Revenir à WINDEV Mobile 2024