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
- J'exécute une simple requête
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
Si j'exécute ma requête SQL sur un éditeur comme DBeaver, il me retourne bien une ligne de résultat.
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
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
Partager