PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Manipulation fichiers AS400
Manipulation fichiers AS400
Débuté par DDassonville, 18 oct. 2005 15:01 - 1 réponse
#1
Posté le 18 octobre 2005 - 15:01
Bonjour

Je souhaiterai me connecter à un as400 sans passer par une analyse, je voudrai tout faire en code.

j'arrive a me connecter à l'as sans probleme avec :
Res est un entier
USR est une chaîne = "david02"
PWD est une chaîne = "jade200521"

Res = HOuvreConnexion("Test",USR,PWD,"192.168.1.1",hAccèsNatifAS400)

Aucun souci, je vois cette connexion dans les travaux actifs de l'as.

Maintenant, j'aimerai acceder au bibliothèques et au fichiers pour manipuler mes données. mais c'est la que j'ai un soucis, j'ai essayer plusieurs choses sans succés. si quelqu'un à un exemple à me donner, j'en suis preneur.

Cordialement

Dada
#2
Posté le 25 octobre 2005 - 18:17
Bonsoir,

En utilisant ce type de connexion, vous ne pouvez utiliser que les commandes de type Hxxxxx. Il y aura donc erreur de compilation si le fichier dans Hxxxxx(Nomfichier) n'existe pas dans l'analyse.
Le seul moyen que j'ai tester c'est de déclarer une connexion SQL et de développer en SQL. Exemple de code qui fonctionne :

NumConnexion est un entier
ResExec est un booléen
NomSource est une chaîne

// Connexion avec ODBC
NomSource = "ODBC_CAccess32" // Nom de la source définie dans source ODBC
NumConnexion = SQLConnecte(NomSource, "USER", "PWD", "", "ODBC")
OU
// Connexion avec OLEDB
NumConnexion = SQLConnecte("MonAS400", "USER", "PWD","", "OLEDB", "IBMDASQL")
SI PAS NumConnexion<>0 ALORS
// La connexion a échoué : affichage d'un message explicatif
SQLInfoGene()
Erreur("La connexion à la source de données" + NomSource + ...
"a échoué."+RC+...
"Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur)
SQLDeconnecte()
FIN
// DONNEE1 et DONNEE2 sont des zones du fichier NOMFIC dans la bibliotheque BIBLIO
ResExec = SQLExec("SELECT DONNEE1, DONNEE2 FROM BIBLIO.NOMFIC", "REQ1")
SI ResExec ALORS
// Saisie1 et Saisie2 sont 2 rubriques d'une fenetre
SQLAssocie("REQ1", Saisie1, Saisie2)
SQLPremier("REQ1")
SINON
SQLInfoGene("REQ1")
Info("Erreur exécution de la requête : " + SQL.MesErreur)
FIN

Avec ce code le fichier BIBLIO.NOMFIC n'a pas besoin d'etre dans l'analyse.
Mais c'est mieux pour avoir les noms de zones sous les yeux ;-).

Bon développement
→ Revenir à WINDEV 2024