ビデオライブラリから、1960年以降に公開された映画の数を調べる方法を見てみましょう。
4Dのコードは以下のようになります:
- SQLコードでは、同じクエリが以下のようになります:
C_LONGINT($NoMovies)
$NoMovies:=0
REDUCE SELECTION([MOVIES];0)
Begin SQL
SELECT COUNT(*)
FROM MOVIES
WHERE Year_of_Movie >= 1960
INTO :$NoMovies;
End SQL
ALERT("The Video Library contains "+String($NoMovies)+" movies more recent or equal to 1960")
- 汎用SQLコマンドを使用した場合、上のクエリは以下のようになります:
- SQLの EXECUTE IMMEDIATE コマンドを使用した場合、上のクエリは以下のようになります:
C_LONGINT($NoMovies)
C_TEXT($tQueryTxt)
$NoMovies:=0
REDUCE SELECTION([MOVIES];0)
$tQueryTxt:="SELECT COUNT(*) FROM MOVIES WHERE Year_of_Movie >= 1960 INTO :$NoMovies;"
Begin SQL
EXECUTE IMMEDIATE :$tQueryTxt;
End SQL
ALERT("The Video Libraontains "+String($NoMovies)+" movies more recent or equal to 1960")
前節のとおり、この例題をテストするには4D SQL Code Samplesデータベースを起動し、メインウィンドウを開きます。クエリモードを選択してWHERE clauseボタンをクリックします。