Discussion :

[kabish]

Bonjour à tous,

Cela fait juste un mois que je commence à "bricoler" un peu AS400 en attendant la formation promise par l'entreprise, je me tourne donc vers vous pour me guider sur les possibilités pour résoudre un soucis.


Je viens de mettre en place une interface à partir de WEBDEV qui permet de lire des fichiers échangés avec nos partenaires (fichier texte, Excel et csv), d'afficher le contenu afin de permettre à l'utilisateur de le vérifier et éventuellement apporter des corrections avant la mise à jour sur l'AS400.
Pour accéder à l'interface, l'utilisateur doit s'identifier (Login et Mot de passe). J'aimerais si cela est possible permettre aux utilisateurs d'utiliser leur Login et Mot de passe sur l'AS400.

Le but s'est d'utiliser si possible la procédure d'authentification de l'AS400. Je passe le Login et le Mot de passe saisie par l'utilisateur à L'AS400 qui se charge de les valider et je récupère le résultat de l'authentification avant de continuer mon traitement.

Voilà j'espère avoir été assez claire et j'attends avec impatience vos idées et coups de pouce.

[m4k-Hurrican]

Bonjour,
Même si je connais de nom, je n'ai jamais développé avec Windev/Webdev.
Toutefois, il me semble que pour se connecter aux serveurs i, il utilise EasyCom. Et il faut donc simplement démarrer la connexion, c'est le système lui même qui demandera et validera l'authentification. En PhP par exemple, on utilisera la commande i5_Connect.
De toute manière, sur ce genre de serveur l'identification, pour des raisons de sécurité est toujours gérée par le serveur lui-même.

[larry57]

Bonjour,

Je peux te proposer ces 2 méthodes de connexion pour winev :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
-> easycom
SI HOuvreConnexion("MaConnexion","user,password,"AS400",hAccèsNatifAS400,hOLectureEcriture,"")=Faux
	Info("Erreur connexion à l'AS400")
FIN

->OLEDB
SI SQLConnecte("AS400",user,password,"","OLEDB","IBMDASQL") = 0 ALORS
	Info("erreur connexion à l'AS400")
FIN


ou encore
strParamApplication est une Structure
	cnxCnx est une Connexion	
FIN

stParamApplication:cnxCnx..Serveur 			= INILit("AS400","SERVEUR","",ip de l'as/400)
stParamApplication:cnxCnx..Utilisateur		        = user
stParamApplication:cnxCnx..MotDePasse		= mot de passe
stParamApplication:cnxCnx..BaseDeDonnées	= bibliotèque des données
stParamApplication:cnxCnx..Provider			= hAccèsNatifAS400 ou autre ici easycom
stParamApplication:cnxCnx..Accès			= hOLectureEcriture

//
SI PAS HOuvreConnexion(stParamApplication:cnxCnx) ALORS
	Erreur("Impossible d'ouvrir la cnx de la BDD",HErreurInfo(hErrComplet))
	RETOUR 
FIN

HChangeConnexion("*",stParamApplication:cnxCnx)

Bon courage


Larry57

[kabish]

Merci à tous pour vos réponses.

J'ai opté pour la solution OLEDB :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
vSource 	  = "DBAS400"
vConnected = SQLConnecte(vSource,"KABISH","KABISH","MSDASQL")	

SI vConnected <> 0 ALORS
	RENVOYER Vrai	
SINON
	// La connexion a échoué : affichage d'un message explicatif
	SQLInfoGene()
	Erreur("La connexion à la source de données " + vSource + " a échoué." + RC + ...
	"Code erreur : " + SQL.Erreur + RC + SQL.MesErreur)
	RENVOYER Faux
FIN

Je vais essayer tout de même les autres propositions de Larry57.
Merci beaucoup pour votre aide