[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 217
  • Last Modified:

SQL counting problem

I have an Access database with one table and one column.  The column has duplicate entries.  I want to have a count of each duplicate as well as the name of the duplicate.

Database name Products
Table name Items
Column name Stuff
Column Information:

Sample Data:
Cat
Cat
Dog
Dog
Mouse

Output:
Cat, 2
Dog, 2
Mouse, 1    


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim dr As OleDb.OleDbDataReader
        Dim sql As String
        Dim sw As IO.StreamWriter

        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Products.mdb"
        sql = "SELECT (Items.Stuff count(*)) FROM Items"
        With cmd
            .Connection = con
            .CommandText = sql
        End With

        sw = New System.io.StreamWriter("C:\results.txt")

        con.Open()
        dr = cmd.ExecuteReader()
        Do While dr.Read()
            sw.WriteLine(dr(0).ToString & "," & dr(1).ToString)
        Loop

        dr.Close()
        sw.Flush()
        con.Close()
        MsgBox("File complete")
    End Sub
0
gr8life
Asked:
gr8life
  • 2
2 Solutions
 
Bob LearnedCommented:
Select stuff, Count(*) As cnt
  From Items
  Group By stuff
  Having Count(*) > 1

Bob
0
 
PockyMasterCommented:
SELECT Stuff , COUNT(Stuff ) FROM Items GROUP BY Stuff

That will give you the name, and the amount of times it is defined
0
 
gr8lifeAuthor Commented:
I was able to make both solutions work.

Thank you very much for expertise,
Gr8life
0
 
PockyMasterCommented:
I think we answered simultaneously :D
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now