diff --git a/COURS/ProC.tex b/COURS/ProC.tex
index 48f53d7..231aac9 100644
--- a/COURS/ProC.tex
+++ b/COURS/ProC.tex
@@ -416,11 +416,13 @@ après.
   déconnecte.
 
 \begin{SaveVerbatim}{countprod}
-int q1(void) {
-    int nbProd;
-    EXEC SQL SELECT COUNT(*) INTO :nbProd FROM TPRODUIT;
-    printf("Il y a %d produits en base.\n", nbProd);
-    return nbProd;
+int main(void) {
+  int nbProd;
+  EXEC SQL WHENEVER SQLERROR DO sql.error(``Oracle error \n'');
+  connexion();
+  EXEC SQL SELECT COUNT(*) INTO :nbProd FROM TPRODUIT;
+  printf("Il y a %d produits en base.\n", nbProd);
+  deconnexion();
 }
 \end{SaveVerbatim}
 \cache{\tiny \BUseVerbatim{countprod}}