CINSI alanında Benzesizleri listelemek distinct

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki sql cümleciğinde CINSI alanındaki verileri benzesiz olacak şekilde listelemek istiyorum.Bu yazdığım benzesiz değil mükerrer listeleme yapıyor.SQL cümleciğini nasıl yapmalıyım?
Teşekkür ederim.
Kod:
[B][COLOR="Red"]SQL = New OleDbCommand("select DISTINCT CINSI,SIRALAMA,TARIH,ACIKLAMA,GIDER,GELIR from BUTCE where TARIH >= cdate('" & ilk & "') AND TARIH <= cdate('" & son & "') AND CINSI LIKE '%" & cinsi & "%' order by TARIH", conn)[/COLOR][/B] 
       rs = SQL.ExecuteReader
        Do While rs.Read
            If rs.GetValue(1) = 1 Then
                glrsayac = glrsayac + 1
                'gelir = gelir + rs.GetValue(7)
                NesneEkle1 = ListView1.Items.Add(rs.GetValue(2)) 'TARIH
                NesneEkle1.SubItems.Add(rs.GetValue(0)) 'Cinsi
                NesneEkle1.SubItems.Add(rs.GetValue(3)) 'Açıklama
                'NesneEkle1.SubItems.Add(Format(rs.GetValue(6), "#,##0.00")) 'Gider
                NesneEkle1.SubItems.Add(Format(rs.GetValue(4), "#,##0.00")) 'Gelir
            End If
            If rs.GetValue(1) = 2 Then
                gdrsayac = gdrsayac + 1
                'gider = gider + +rs.GetValue(6)
                NesneEkle2 = ListView2.Items.Add(rs.GetValue(2)) 'ID
                NesneEkle2.SubItems.Add(rs.GetValue(0)) 'Cinsi
                NesneEkle2.SubItems.Add(rs.GetValue(3)) 'Açıklama
                NesneEkle2.SubItems.Add(Format(rs.GetValue(5), "#,##0.00")) 'Gider
                'NesneEkle1.SubItems.Add(Format(rs.GetValue(7), "#,##0.00")) 'Gelir
            End If
        Loop
        rs.Close()
        conn.Close()
 

beab05

Özel Üye
Katılım
19 Mart 2007
Mesajlar
1,418
Excel Vers. ve Dili
Office 2013
Distinct deyimini Where şartında uygulayabilirsiniz.. Ya da "from" dan sonra bir iç sorguyla distinct değerleri almalısnız..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Sayın beab05 aşağıdaki gibi yapınca istediğim oldu.
Teşekkür ederim. :D

Kod:
SQL = New OleDbCommand("select DISTINCT CINSI,SIRALAMA from BUTCE where TARIH >= cdate('" & ilk & "') AND TARIH <= cdate('" & son & "') AND CINSI LIKE '%" & cinsi & "%' order by CINSI", conn)
 
Üst