- Katılım
- 1 Mart 2005
- Mesajlar
- 22,248
- 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.
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()