Probleme execution Requete AS400

Version imprimable

Bonjour,

Je n'arrive pas à executer et encore moins à lire les résultat de ma requete via webdev alors que cette dernière fonctionne parfaitement sur l'as400 (via emulateur 5250)

bon déjà voici la requete en question en sql d2b
Code:

1 2 3 4 5 6 7 8 9 10 SELECT FLSNUMPK, CALDDEB, CALDFIN FROM pelancmnt0/FLS join pelancmnt0/CALMOY on FLS.JAO01AFK = CALMOY.AORESSFK Join pelancmnt0/CALFER on calmoy.idcalferfk = calfer.calfernpk WHERE EXISTS (SELECT * FROM pelancmnt0/CALFER JOIN pelancmnt0/CALMOY ON CALFER.CALFERPK = CALMOY.IDCALFERFK WHERE fls.FLSDTFIN BETWEEN calfer.CALDDEB AND calfer.CALDFIN AND CALMOY.AORESSFK = FLS.JAO01AFK)
J'utilise un Acces natif (easycom) mes tables sont donc présent dans l'analyse.
Jusqu’à présent j’exécutais mes requêtes via la fonction Hexecuterequete avec la requete dans le projet en ficher .WDR

Mais avec cette méthode la requete, qui du coup donne ca en sql classique,
Code:

1 2 3 4 5 6 7 8 9 10 SELECT FLS.FLSNUMPK, CALFER.CALDDEB, CALFER.CALDFIN FROM FLS JOIN CALMOY ON FLS.JAO01AFK = CALMOY.AORESSFK JOIN CALFER ON CALMOY.IDCALFERFK = CALFER.CALFERPK WHERE EXISTS (SELECT * FROM CALFER JOIN CALMOY ON CALFER.CALFERPK = CALMOY.IDCALFERFK WHERE FLS.FLSDTFIN BETWEEN CALFER.CALDDEB AND CALFER.CALDFIN AND CALMOY.AORESSFK = FLS.JAO01AFK)
renvoie ce problème :

Citation:

L'opérateur utilisé dans l'expression ( EXISTS ( SELECT CALFER.CALFERPK AS CALFERPK , CALFER.CALDDEB AS CALDDEB , CALFER.CALDFIN AS CALDFIN , CALMOY.AORESSFK AS AORESSFK , CALMOY.IDCALFERFK AS IDCALFERFK
FROM CALFER INNER JOIN CALMOY ON ( CALFER.CALFERPK = CALMOY.IDCALFERFK )
WHERE ( ( FLS.FLSDTFIN BETWEEN CALFER.CALDDEB AND CALFER.CALDFIN ) AND ( CALMOY.AORESSFK = FLS.JAO01AFK ) ) ) ) n'est pas supporté par l'éditeur de requêtes.

j'ai l'impression que le générateur de requete webdev a du mal avec les jointures, surtout quand celle ci sont dans un select imbriqué. Ou bien serait-ce mot clef EXISTS ?? pourtant d’après la doc pc soft elle est supporté.

Du coup je me suis dit que je vais utilisé la fonction hexecuterequetesql :
Code:

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 32 33 sReq est une chaîne nBjour est un entier dNouvelleDate, datetempo est une Date // req fonctionne sur l'AS 400 mais le sql made in pcsoft ne la comprend pas //sreq = "SELECT FLS.FLSNUMPK AS FLSID, CALFER.CALDDEB AS DATDEB, CALFER.CALDFIN AS DATFIN, FLS.FLSDTFIN AS FLSDFIN FROM FLS join CALMOY on FLS.JAO01AFK = CALMOY.AORESSFK Join CALFER on calmoy.idcalferfk = calfer.calferpk WHERE EXISTS (SELECT * FROM CALFER JOIN CALMOY ON CALFER.CALFERPK = CALMOY.IDCALFERFK WHERE FLS.FLSDTFIN BETWEEN CALFER.CALDDEB AND CALFER.CALDFIN AND CALMOY.AORESSFK = FLS.JAO01AFK)" sReq = [ SELECT FLSNUMPK, CALDDEB, CALDFIN FROM pelancmnt0/FLS join pelancmnt0/CALMOY on FLS.JAO01AFK = CALMOY.AORESSFK Join pelancmnt0/CALFER on CALMOY.IDCALFERFK = CALFER.CALFERPK WHERE EXISTS (SELECT * FROM pelancmnt0/CALFER JOIN pelancmnt0/CALMOY on CALFER.CALFERPK = CALMOY.IDCALFERFK WHERE FLS.FLSDTFIN BETWEEN CALFER.CALDDEB AND CALFER.CALDFIN AND CALMOY.AORESSFK = FLS.JAO01AFK) ] HDécritConnexion("PEL","login","mdpl","","",hAccèsNatifAS400,hOLectureEcriture) // ok HOuvreConnexion("PELt") // ok Req_result = "" SI HExécuteRequêteSQL(Req_result,"PEL",hRequêteSansCorrection,sReq) = Vrai // Pas ok //si HExécuteRequêteSQL(Req_result,sReq) = Vrai ALORS // pas ok POUR TOUTE Req_result // *** traitement *** FIN SINON Erreur(HErreurInfo()) FIN FIN
Voilà j'arrive à rien; que ce soit avec un l'un ou l'autre de ces différent essai. la requete ne s’exécute pas alors que la déclaration de connexion (d’ailleurs je pense pas que ce n'était pas vraiment nécessaire car dans l’analyse j'ai déjà une autre connexion qui prend les même paramètres que PEL. Mais bon avec ou sans ca ne marche pas)

ah et Erreur(HErreurInfo()) n'affiche rien => popup vide.

Du coup je me suis dit que je vais tenté avec ExeSQL; et là dès la connexion ça ne marche pas
Code:

1 2 3 4 5 6 SI SQLConnecte("PEL","nom","mdp") = Faux ALORS SQLInfoGene() Erreur("La connexion à la source de données PELancement a échoué." + RC + ... "Code erreur : " + SQL.Erreur + RC + SQL.MesErreur) SINON
Si vous avez idée de comment faire fonctionner cette requete celà me serait d'un grand aide.
en tous cas, merci de votre lecture :D

09/08/2013, 09h11
Cogito.11

J'ai , moi aussi, eut des pbs avec le programme de génération de requete de windev Webdev pour acces à des base AS400

Donc comme tu l'as bien decrit tu as 3 possibilités

1/ Utiliser le generateur de requete sans modif
2/ utiliser le générateur et coller le code SQL de l'as400 directement dans la fenetre Code SQL du générateur
3/ Dans le programme dans la fonction HexecuteRequete

Pour le 3/, as tu vérifié que tu utilises bien le parametre HRequeteSansCorrection
09/08/2013, 11h28
recfile
Hello Cogito

Citation:

Envoyé par Cogito.11

Donc comme tu l'as bien decrit tu as 3 possibilités

Enfait non, j'ai pas si bien décrit ça, moi je partait sur différentes fonction d'execution

Citation:

Envoyé par Cogito.11

J
1/ Utiliser le generateur de requete sans modif
2/ utiliser le générateur et coller le code SQL de l'as400 directement dans la fenetre Code SQL du générateur
3/ Dans le programme dans la fonction HexecuteRequete

Pour le 3/, as tu vérifié que tu utilises bien le parametre HRequeteSansCorrection

En tout cas je savait pas que le 2/ était possible!! pour ce qui est du /3 j'avai fait ca mais avec la fonction HexecuteRequeteSQL

Du coup grace à ton explication en 2/ j'ai peu réussir l’exécution et du coup la lecture de ma requete, merci cogito :ccool:

voila le code qui fonctionne
Code:

1 2 SI HExécuteRequête(REQ_SelectFLS_CALFER,PELancement,hRequêteSansCorrection) = Vrai // avec PELancement définit dans l'analyse
Par contre j'ai remarqué que quand on est sur webdev18 la "prédiction" de code (style intellisense de visual studio) demande pour HExécuteRequête comme 1er paramètre le nom de la requete, en 2éme le mode ( ici hRequêteSansCorrect), puis d'autre paramètre comme la connexion ( ici PELancement) or en procédant comme cela la connexion n'est pas reconnue elle doit en 2éme paramètre comme il est écrit dans la doc pcsoft :

Citation:

Exécuter une requête SQL via une connexion
<Résultat> = HExécuteRequêteSQL(<Nom de la requête> [, <Connexion> [, <Mode>]] , <Texte de la requête en SQL>)

Du coup l'intellisense webdev18 ma mis en erreur :roll:
09/08/2013, 11h39
Cogito.11

En faite je n'utilise jamais la solution 3 :mrgreen: , je prefere avoir toutes mes requetes facilement accessible dans la partie requete pour pouvoir les reutiliser dans d'autre partie du code.

Et j'utilise la solution 2/ qd la 1/ ne fonctionne pas. C'est souvent à cause de l'interpretation du code SQL fait par le driver.
09/08/2013, 13h32
recfile

pour l'aspect réutilisation de code, en /3 avec une variable globale ca marche aussi. Mais pour des raisons d'organisation et pratique je suis d'accord avec toi.
D’ailleurs c'est ce que j'ai fait(la /1 mais manuellement les requetes AS400 traduit en Sql webdev ) mais du coup je préfère la solution /2 car de toute façon je test toujours mes requêtes sur l'AS400 j'aurais du coup une étape en moins à faire ;)