|
| Acces à une base de donnée AS/400 à partir d'un Pocket PC |
| Iniciado por mhamouda, 17,ago. 2005 18:21 - 3 respuestas |
| |
| | | |
|
| |
| Publicado el 17,agosto 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 |
| |
| |
| | | |
|
| | |
| |
| Publicado el 17,agosto 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 |
| |
| |
| | | |
|
| | |
| |
| Publicado el 17,agosto 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. |
| |
| |
| | | |
|
| | |
| |
| Publicado el 17,agosto 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. |
| |
| |
| | | |
|
| | | | |
| | |
|