SQL Count関数を使ってみる

＜SQL Count関数を使ってみる＞

こんにちは。
今回は、読者からの質問への回答です。
＊今後は、別のメルマガでＶＢＡ関係やっていきます。
　えっ、始めから期待して無いって？そんなこと言わないで、、、

まず、質問内容（対応が遅かったから、解決していると思うが、、）
In message "Fwd: 質問（ＳＥＬＥＣＴ文について）",
 >ＳＥＬＥＣＴ文で重複行を表示しないのは
 >ＤＩＳＴＩＮＣＴで できなすが
 >逆に重複している行だけをＳＱＬだけで
 >表示できますか？
 >全部のデータを読んでコントロールブレイクを
 >取りながら重複行を検索するしかないんですか？
'----------------------------------------------

SQLのCount関数を使用して、やってみたいと思います。

まず、下記のようなデータがあるとします
テーブル名 : DATA
ID	CODE
1	A
2	A
3	A
4	BB
5	CCC
6	CCC
7	DDDD
8	DDDD
9	EEEEE
10	FFFFFF
11	FFFFFF
12	FFFFFF
13	GGGGGG
14	HHHHHHH

A,CCC,DDDD,FFFFFFを抜き出して、処理したいんだけど、、、
さて、どうしましょう？
グループ分けをして、レコード数を数えるＳＱＬを
普通にクエリーのデザイン画面で作ります。
＊ポイントは、表示メニューの集計をチェックしておくことです。

次に、ＳＱＬビューに切替え、作成したＳＱＬをみます。
SELECT DATA.CODE, Count(DATA.CODE) AS GCNT
>FROM DATA
GROUP BY DATA.CODE;
なんて、ＳＱＬを自動的に書いてくれます。
これを元に、下記のモジュールで確認しました。

Sub test01()

    Dim DB   As Database
    Dim TB   As Recordset
    Dim nCNT As Integer

    Dim strSQL As String
    
    'カレントデータベースを参照
    Set DB = CurrentDb
    
    'ＳＱＬ文作成、、レコードセットを開く
    strSQL = "SELECT DATA.CODE, Count(DATA.CODE) AS GCNT FROM DATA GROUP BY DATA.CODE;"
    Set TB = DB.OpenRecordset(strSQL)
    
    If TB.RecordCount = 0 Then
        MsgBox "データ無し"
    Else
        TB.MoveFirst
        'データが無くなるまで
        While TB.EOF = False
            MsgBox TB![code] & " = " & TB![GCNT] & "件"
            TB.MoveNext
        Wend
    End If

    TB.Close
    DB.Close

End Sub

おいおい、、、これだと、1件のデータも表示するぞ？
できてないじゃん、、、
まぁまぁ、ハヤマラナイデね。。。

アレンジでif TB![GCNT] <> 1 then みたいにするとか、
入れてくださいよ。。。
なんて書くと、クレームきますね。

クエリーのデザイン画面で、Ｎｏｔ 1
を入れると、下記のＳＱＬ文が自動作成されます。

SELECT DATA.CODE, Count(DATA.CODE) AS GCNT
>FROM DATA
GROUP BY DATA.CODE
HAVING ((Not (Count(DATA.CODE))=1));

このＳＱＬ文をレコードセットのソースにすれば、
1件以上重複のあるデータ（レコード数が1以上）を取り出せます。
*Count(DATA.CODE)>1 のほうがいいかな？

GROUP BYは知ってたけど、
HAVINGは知らなかった、、、
いつのまにか、ＳＱＬを書けないプログラマーになってた、、、
と自分でも気がついたとこで、
今回のまとめ・ポイントは、
ＳＱＬでCount関数を使用するのと、
HAVING 句を使用して、グループ化されたデータをしぼる？です。

ヘルプを見ながら、ＳＱＬの奥深さを味わってください。
＊無知なＫｅｎ３への辛口ご意見・助言募集です。

辛口ご意見の例
・なっちゃいないなぁ、、、Where句とHAVING句の違いを書かなきゃ
・集合関数Sum(項目)やMax(項目)なども合わせて説明したら？
・オマエ三流たからコントロールブレークって意味知らないだろ？
などなど、、

では。。。また。。。
頼りにならないなぁもう、、三流プログラマーのＫｅｎ３でした。。

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を