グループ化し件数を求める  次の文書


SQL抽出結果.Text = "<p>"

Dim DataCnt As Integer = 0
Dim 文書FST As New SqlCommand("SELECT 文書種別, count(タイトル) FROM 文書TBL GROUP BY 文書種別", cn)
Dim dr文書FST As SqlDataReader = 文書FST.ExecuteReader()

While dr文書FST.Read()
 DataCnt = DataCnt + 1
 SQL抽出結果.Text = SQL抽出結果.Text & dr文書FST("文書種別") & " cnt=" & dr文書FST.Item(1) & "<br>"
End While

SQL抽出結果.Text = SQL抽出結果.Text & "文書種別 件数=" & DataCnt & "<br>"

dr文書FST.Close()

 




← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)