PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Appel de procédure stockée AS400
Appel de procédure stockée AS400
Débuté par jerome.athias, 22 nov. 2005 15:19 - 1 réponse
#1
Posté le 22 novembre 2005 - 15:19
Comment faire un appel à une procédure stockée AS400/DB2 dans WinDEV9 (sans accès natif AS400) via ODBC?


SQLExec( ??? )

CALL???


MERCI
#2
Posté le 24 novembre 2005 - 15:51
Pour infos; la soluce:

NumConnexion is int=SQLConnecte("MON_DSN","MON_LOGIN","MON_PASS",0,"ODBC")
SI NumConnexion=0 ALORS
// La connexion a échoué : affichage d'un message explicatif
Erreur(HErreurInfo())
RETOUR
FIN

SI SQLExec("CALL MABIB/MAPROCSTOCK('PARAM1', 'PARAM2')","REQ1") ALORS

//ATTENTION: paramètres entre simples quotes
// Traitement du résultat
SQLPremier("REQ1")

SI SQL.EnDehors ALORS
Erreur("Pas de retour")
SINON
Info(SQLCol("REQ1",1))
Info(SQLCol("REQ1",2))
//...
FIN
SINON
// Échec de la requête : affichage d'un message explicatif
SQLInfoGene("REQ1")
Erreur("Erreur" + SQL.Erreur + "dans la requête : ", SQL.MesErreur)
FIN

SQLDéconnecte()
→ Revenir à WINDEV 2024