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