Exécution d'un requête SQL et lecture SQLfetch
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:
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:
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