AccessTr.neT

Tam Versiyon: Veritabanından Charta Gelen İstatistik Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Hocalar veritabanından chart grafigine istatistik çekiyorum. kullanıdıgım kod aşagıda :

Kod:
baglanti.Close()
        Dim komut As New OleDbCommand("select * from gelirler", baglanti)
        Dim dr As OleDb.OleDbDataReader
        baglanti.Open()
        dr = komut.ExecuteReader

        If dr.Read = True Then
            Dim komut5 As New OleDb.OleDbCommand("SELECT * FROM gelirler where tarih ='" & dr("tarih") & "' order by id; ", baglanti)
            Dim oku5 As OleDb.OleDbDataReader
            oku5 = komut5.ExecuteReader()
            Do While oku5.Read = True
                gelirtoplam += oku5("miktar")
                Label1.Text = "Gelir : " + FormatCurrency(gelirtoplam)
            Loop
            oku5.Close()
        End If

        While dr.Read
            Chart1.Series("Gelirler").Points.AddXY(dr("tarih"), gelirtoplam)
        End While


        dr.Close()
        baglanti.Close()

şimdi sorun şudur :
2 gelir kaydını 02.10.2018 tarihine ekledigimde 2 sinin miktarını toplayıp grafik oluşturuyor.
ama 3 kayıt girdigimde bir tane daha grafik oluşturuyor

iki kayıt ekledigimde :

[Resim: mon0v2.png]

üç kayıt eklediğimde :

[Resim: lZVAnp.png]
Sayın Mehmet Paçal;

Daha önce chart üzerinde bir çalışmam olmadı ancak sorununuzu "group by" ifadesi ile çözebileceğinizi düşünüyorum.

Dim komut5 As New OleDb.OleDbCommand("SELECT * FROM gelirler where tarih ='" & dr("tarih") & "' GROUP BY tarih; ", baglanti)

Kodunuz da GROUP BY ifadesini kullanarak denemenizi ve olumlu/olumsuz dönüş yapmanızı rica ederim.

Saygılarımla,
İyi çalışmalar.