Discussion :

[cdruais]

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]

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]

Bonjour.

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

Merci beaucoup

[frenchsting]

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]

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]

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]

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.