Bonjour,
Plutot spécialiste AS400 (et pas du tout un spécialiste des ODBC et OLEDB)
je voulais profiter à la fois de l'efficacité de Windev (développement
rapide, interface utilisateur.) et de la fiabilité de l'AS400 (sécurité
pour les fichiers) SANS UTILISER EASYCOM. Depuis quelques jours j'ai glané
des informations sur le forum PCSOFT et fait de nombreux tests. Je vous
fais donc partager mes premières conclusions.

Bien entendu, si vous avez des commentaires ou compléments d'information,
n'hésitez pas à nous les faire partager.

Il existe au moins 2 méthodes pour travailler avec des fichiers AS400 :
1) les interroger par SQL (SQLCONNECTE et ordres SQL)
2) en décrivant la connexion à l'AS400 puis en utilisant les ordres
classiques Hxxxxx

1) Par SQLCONNECTE, il est possible d'utiliser soit 1 driver ODBC soit 1
provider OLEDB (livrés avec Client Access).

Exemple :
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")
// User et Pwd : Utlisateur et mot de passe AS400
// OU
// Connexion avec OLEDB
NumConnexion = SQLConnecte("MonAS400", "User", "Pwd","", "OLEDB",
"IBMDASQL")
// MonAS400 : Nom de l'AS400 sur le réseau
// IBMDASQL : nom d'1 des provider OLEDB en V5R3
// Quelque soit la connexion.
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
// Donnée1 et Donnée2 sont des zones du fichier NOMFIC dans la
bibliotheque BIBLIO
ResExec = SQLExec("SELECT Donnée1, Donnée2 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'exister dans
l'analyse.
La connexion ODBC est plus rapide mais a des temps de réponses plus
variables que la connexion OLEDB.

2) Par la description de la connexion, seul l'accés OLEDB est permis :

Exemple :
HDécritConnexion("connectAS"," User "," Pwd ","
MonAS400","","IBMDASQL",hOLectureEcriture)
HOuvreConnexion("connectAS")

HLitRecherche(NOMFIC,Clef_de_nomfic,Valeur_recherchee)
SI HTrouve(NOMFIC) ALORS
Saisie1 = NOMFIC. Donnée1
Saisie2 = NOMFIC. Donnée2
SINON
Saisie1 = 0
Saisie2 = 0
FIN

Avec ce type de connexion, les ordres Windev Hxxxxx sont utilisables.
Cette connexion ce fait avec OLEDB donc moins rapide.

INFOS SUPPLEMENTAIRES (mais peut être à compléter.):
1) Si vous voulez utiliser les ordres Hxxxxx, importez vos fichiers dans
l'analyse en passant par un lien OLEDB. Si vous passés par un lien ODBC,
le nom de fichier n'est pas reconnu et génére des erreurs de compilation.
2) Les importations de fichiers AS400 ne ramènent pas les clefs
éventuelles. AUCUNE IMPORTANCE ! Dans le fichier importé vous pouvez
rajouter toutes les clef que vous souhaitez et les utilisées même si elles
n'existent pas dans le fichier AS400 ! . Par contre, je n'ai pas trouvé le
moyen d'utiliser des clefs composées.
3) On ne peut importer que les fichiers physiques en passant par un lient
ODBC. On peut importer les physiques et les logiques avec OLEDB (mais sans
la clef).
4) Je n'ai pas trouvé comment créer un fichier sur l'AS400
(HCréationSiInexistant ne fonctionne pas).
Pour info, ma config : 2 AS400 (modèle 520 en V5R3), 6 serveurs intel,
réseau LAN et WAN en IP, 150 utilisateurs (passifs et PC avec Client
Access V5R3M0 niveau de maintenance SI16496). Développements en Windev 8.

Voila, en espérant que ces quelques lignes pourront satisfaire du monde.
Merci à tous ceux qui avaient déjà abordé ces sujets sur des posts
précédents et qui m'ont ainsi permis de faire ce premier résumé.

PCSofteurs, PCSofteuses, bon développement