Exécution d'un requête SQL et lecture SQLfetch

**cdruais** · 10/09/2019, 18h15

Bonjour

Je reprends du code d'un vieux programme alors ne m'en voulez pas, ce n'est pas moi qui ai mis de GOTO (j'ai bien l'intention de les remplacer)
mon soucis décrit étape par étape:
- je teste ma connexion SQl via ODBC qui fonctionne bien

Code :

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

1
2
3
4
5
6
7
cnxfast = SQLConnecte("Mabase","","","","ODBC")
SI cnxFast = 0 ALORS
	fEcritLigne(numlog,"ERROR: Connexion ODBC Impossible")	
	GOTO C_fini
SINON
	fEcritLigne(numlog," Connexion ODBC  OK")
FIN

- J'exécute une simple requête

Code :

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

1
2
3
4
5
6
7
8
9
10
11
	SQLChangeConnexion(cnxFast)	
		req1 = "SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"' "
		SI PAS SQLExec(req1,nomreq1) ALORS
			fEcritLigne(numlog,"Warning: Impossible d'exécuter la  requête: " + req1)
			SQLErreur(nomreq1,req1)
			GOTO C_fait
		FIN
 
		SI SQLFetch(nomreq1) <> 0 ALORS
			GOTO C_fait
		FIN

Si j'exécute ma requête SQL sur un éditeur comme DBeaver, il me retourne bien une ligne de résultat.
Lorsque je lance mon programme, le SQLExec est bon mais le SQLfetch me retourne toujours 1 alors qu'il devrait retourner 0 pour me dire qu'il a bien trouvé la ligne existante.
Je ne comprends pas ce qui ne va pas.

Merci par avance pour votre aide

**kunnskap** · 10/09/2019, 22h25

Uu, voilà un truc que j'ai jamais vu. J'ai jamais utilisé les ordres SQL ainsi.
C'est quoi la base utilisée par l'ODBC, son nom?
Ta version de Windev?
Je pourrais tester de mon côté déjà pour voir si j'obtiens un truc cohérent.

**cdruais** · 11/09/2019, 09h00

Bonjour.

Ma base est une base MySql version 8.
version de Windev: 15

Merci beaucoup

**frenchsting** · 11/09/2019, 13h58

Question à 2 balles : tu dis que tu as exécuté la requête sur un autre soft, mais tu n'aurais pas un code_cli qui aurait une casse différente/des espaces qui s'inséreraient ?

Un test à faire est de remplacer ton sqlexec par un

Code :

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

1
2
3
4
5
6
MaRequête est uen source de données
si HExécuteRequêteSQL(MaRequête,cnxFast,hRequêteSansCorrection,SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"') alors
Hlitpremier(MaRequête)
info(MaRequete.EDIENSEIGNE)
HannuleDeclaration(MaRequête)
FIN

Attention, c'est du brut de fonderie sans test, ni vérification syntaxique. A vérifier donc !

Une piste est de passer par un accès natif (je ne sais pas si celui de MySQL existent encore en V15). Par contre, il faudrait revoir tous les accès à la BDD

**cdruais** · 11/09/2019, 14h21

Merci pour la réponse
Quand j'exécute le code suivant

Code :

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

1
2
3
4
5
MaRequête est une Source de Données
		HExécuteRequêteSQL(MaRequête,cnxFastmag,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'")
		HLitPremier(MaRequête)
		Info(MaRequête.EDIENSEIGNE)
		HAnnuleDéclaration(MaRequête)

J'ai un plantage à l'exécution de la commande HLitPremier

Erreur à la ligne 402 du traitement Procédure globale LivraisonsFM_new.
Vous avez appelé la fonction HLitPremier.
Aucune analyse n'est ouverte et le fichier <MaRequête> n'a pas été décrit.

J'ai cherché sur l'aide et le web mais je ne vois pas ce qui ne va pas

**frenchsting** · 11/09/2019, 16h32

Code :

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

si HExécuteRequêteSQL(MaRequête,cnxFast,hRequêteDéfaut,SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"') alors ...

hRequêteDéfaut à la place de hRequêteSansCorrection

Sans conviction car comme tu n'as pas d'analyse, je ne sais pas comment ça va réagir.

Ton code_cli vaut quoi ?

**tbc92** · 11/09/2019, 23h03

Code :

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

1
2
3
4
5
MaRequête est une Source de Données
		HExécuteRequêteSQL(MaRequête,cnxFastmag,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'")
		HLitPremier(MaRequête)
		Info(MaRequête.EDIENSEIGNE)
		HAnnuleDéclaration(MaRequête)

Ce code là peut marcher, pas de problème.
Mais si tu es en galère, si tu as besoin de comprendre pourquoi ça bugge, ce code est 'inacceptable'.
La commande hLitPremier plante parce que le hExecuteRequeteSQL qui est juste avant n'a pas fait son job. Demandons à Windev ce qui a empéché hExecuteRequeteSQL de fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
MaRequête est une Source de Données
brc est un booleen 
		brc =HExécuteRequêteSQL(MaRequête,cnxFastmag,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'")
                si pas brc alors 
                     Erreur ( " plantage ", herreurinfo() )
                     Retour
                fin 
		HLitPremier(MaRequête)
		Info(MaRequête.EDIENSEIGNE)
		HAnnuleDéclaration(MaRequête)

Il faut tester le code retour de hExecuteRequeteSQL, la fonction hErreurInfo peut te donner plein d'infos très utiles.

**frenchsting** · 12/09/2019, 11h01

+1 tbc92.

Je n'avais pas vu l'absence de test d'exécution du HExécuteRequêteSQL.

**cdruais** · 13/09/2019, 11h30

Merci pour vos retours.
Je ne sais pas quel est le bon paramétrage pour la commande HExécuteRequêteSQL (j'ai quand même jeté un œil sur l'aide)
J'ai essayé

Code :

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

1
2
3
brc =HExécuteRequêteSQL(hRequêteDéfaut,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = 'BT0031'")
brc =HExécuteRequêteSQL(MaRequête,cnxFastmag,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = 'BT0031'")
brc =HExécuteRequêteSQL(MaRequête,hRequêteDéfaut,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = 'BT0031'")

Dans tous les cas, cela plante (brc=faux). mais on ne connaît pas la raison de ce plantage

alors que lorsque j'utilisais la commande SQLExec (dont je teste le retour dans mon code, cf premier post), ça fonctionnait mais c'est le fetch qui plantait.
Je désespère

**Voroltinquo** · 13/09/2019, 12h17

Bonjour,

Envoyé par cdruais

Dans tous les cas, cela plante (brc=faux). mais on ne connaît pas la raison de ce plantage

(

La raison du plantage est indiquée dans le message d'erreur qui s'affiche si brc=faux cf post 7

Code :

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

1
2
3
4
5
6
7
MaRequête est une Source de Données
brc est un booleen 
		brc =HExécuteRequêteSQL(MaRequête,cnxFastmag,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'")
                si pas brc alors 
                     Erreur ( " plantage ", herreurinfo() )
                     Retour
                fin

**tbc92** · 13/09/2019, 13h54

hErreurInfo() dit forcément quelque chose.
Peut-être que le message renvoyé par hErreurInfo n'est pas suffisamment clair, et dans ce cas, donne nous ce message.

**cdruais** · 13/09/2019, 15h17

Je vous confirme que HErreurInfo() retourne une chaîne vide

Nom : erreur.jpg
Affichages : 970
Taille : 92,4 Ko

**tbc92** · 13/09/2019, 16h52

Ici, tu fais Valeur est une chaine = hErreurInfo()Puis ensuite tu fais info( hErreurInfo() )Donc tu lances la fonction hErreurInfo() 2 fois de suite, et tu regardes le résultat du 2ème appel de hErreurInfo().

Je ne suis pas certain à 100%, mais c'est tout à fait possible que le 1er appel de hErreurInfo() donne quelque chose, alors que le 2ème donne une chaine vide. C'est un comportement pas très intuitif, mais tout à fait cohérent avec toute la gestion des erreurs.

Modifie ton code :

Code :

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

1
2
 Valeur est une chaine = hErreurInfo() 
Warning ( "plantage", valeur )

Ou bien, dans le debugger, regarde le contenu de ta chaine de caractères 'Valeur'. Tu devrais avoir ta réponse comme ça.

**Voroltinquo** · 13/09/2019, 19h31

Envoyé par tbc92

c'est tout à fait possible que le 1er appel de hErreurInfo() donne quelque chose, alors que le 2ème donne une chaine vide.

C'est tout à fait ça. HErreurInfo renvoie les infos concernant la HErreur en cours et se comporte comme HErreur(), bien souvent, le 2° appel annule le 1°.
Il suffit d'ailleurs de regarder la doc :

Remarques :
Cette fonction doit être appelée immédiatement après l'appel de la fonction qui échoue. En effet, l'appel à une fonction (différente d'une fonction d'erreur) peut ré-initialiser et modifier le compte-rendu de la fonction HErreurInfo.

L'affectation de HErreurInfo renvoie bien, l'erreur, mais l'appel de HErreurInfo dans Erreur fait référence à la dernière erreur sur une opération HF i.e l'appel de HErreurInfo() dans l'affectation. Comme dans ce cas, il n'y a pas de raison qu'il y ait une erreur, HErreurInfo prend la valeur ""

**cdruais** · 18/09/2019, 15h43

Bonjour à toutes et à tous
J'ai finalement résolu le problème de manière très étrange.
Je me suis rendu compte que la requête fonctionnait sans Clause WHERE.
Ensuite j'ai testé cette même requête avec une clause where X IS NOT NULL: cela fonctionnait ..
Finalement j'ai retiré les espaces entre ma variable et sa valeur ...

Code :

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

"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN='"+code_cli+"'"

c'est vraiment bizarre mais ça fonctionne.

**tbc92** · 18/09/2019, 18h21

Ce n'est pas bizarre, c'est totalement logique.

Il y a un conseil que je donne souvent sur ce forum.

Il ne faut pas faire HExécuteRequêteSQL(MaRequête,cnxFastmag,"SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'"), il faut fajre :

Code :

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

1
2
3
sreq est une chaine 
sreq = "SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'" 
HExécuteRequêteSQL(MaRequête,cnxFastmag, sreq )

Comme ça, entre la ligne 2 et la ligne 3, tu peux insérer plein de trucs qui vont t'aider pendant le debug (il faudra les retirer à la fin...) :

Code :

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

1
2
3
4
5
sreq est une chaine 
sreq = "SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = '"+code_cli+"'" 
Verspressepapier(sreq)
info(sreq)
HExécuteRequêteSQL(MaRequête,cnxFastmag, sreq )

Avec le versPressePapier, tu peux récupérer la requête via un CTRL-V, et donc l'exécuter dans un autre environnement. Et tu verras que dans un autre environnement, la requête renvoie 0 lignes.

SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = ' BT0031 ' ou SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = 'BT0031', ce n'est pas du tout la même chose !

**cdruais** · 19/09/2019, 09h01

ha je suis désolé mais pour ce cas c'était
SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN = 'BT0031' qui plantait et SELECT CODE,EDIENSEIGNE,TARIFPV FROM MAG WHERE ILN='BT0031' qui fonctionnait, et pour moi c'est la même chose

Bonne journée

**frenchsting** · 19/09/2019, 17h09

+1 pour le retour.
C'est vraiment très bizarre ton histoire. Cela me laisse dubitatif...
+1 à tbc92 également, pour ses petites astuces débug

Exécution d'un requête SQL et lecture SQLfetch [WD15]

WinDev

Discussions similaires

Partager

Partager