Utiliser la clause WHERE

4D v16

Nous souhaitons à présent savoir combien de films réalisés à partir de 1960 sont présents dans la base. Voici le code 4D correspondant à cette requête :

 C_ENTIER LONG($NoMovies)

 $NoMovies:=0

 REDUIRE SELECTION([MOVIES];0)

 CHERCHER([MOVIES];[MOVIES]Year_of_Movie>=1960)

 $NoMovies:=Enregistrements trouves([MOVIES])

 ALERTE("La videothèque contient "+Chaine($NoMovies)+" films réalisés depuis 1960")

En utilisant du code SQL :

C_ENTIER LONG($NoMovies) $NoMovies:=0 REDUIRE SELECTION([MOVIES];0) Debut SQL SELECT COUNT(*) FROM MOVIES WHERE Year_of_Movie >= 1960 INTO :$NoMovies; Fin SQL ALERTE("La videothèque contient "+Chaine($NoMovies)+" films réalisés depuis 1960")

En utilisant les commandes SQL génériques :

C_ENTIER LONG($NoMovies) $NoMovies:=0 REDUIRE SELECTION([MOVIES];0) SQL LOGIN(SQL_INTERNAL;"";"") SQL EXECUTER("SELECT COUNT(*) FROM MOVIES WHERE Year_of_Movie >= 1960";$NoMovies) SQL CHARGER ENREGISTREMENT(SQL tous les enregistrements) SQL LOGOUT ALERTE("La videothèque contient "+Chaine($NoMovies)+" films réalisés depuis 1960")

En utilisant la commande 4D CHERCHER PAR SQL :

C_ENTIER LONG($NoMovies) $NoMovies:=0 REDUIRE SELECTION([MOVIES];0) CHERCHER PAR SQL([MOVIES];"Year_of_Movie >= 1960") $NoMovies:=Enregistrements trouves([MOVIES]) ALERTE("La videothèque contient "+Chaine($NoMovies)+" films réalisés depuis 1960")

En utilisant la commande SQL dynamique EXECUTE IMMEDIATE :

C_ENTIER LONG($NoMovies) C_TEXTE($tQueryTxt) $NoMovies:=0 REDUIRE SELECTION([MOVIES];0) $tQueryTxt:="SELECT COUNT(*) FROM MOVIES WHERE Year_of_Movie >= 1960 INTO :$NoMovies;" Debut SQL EXECUTE IMMEDIATE :$tQueryTxt; Fin SQL ALERTE("La videothèque contient "+Chaine($NoMovies)+" films réalisés depuis 1960")

Comme dans la section précédente, pour tester tous ces exemples, lancez la base "4D SQL Code Samples" et affichez la boîte de dialogue principale. Choisissez le mode d'interrogation du moteur de 4D et cliquez sur le bouton Clause WHERE.