Skip to main content

AccessTr.neT


Veritabanından Charta Gelen İstatistik Sorunu

Veritabanından Charta Gelen İstatistik Sorunu

#1
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]
Cevapla
#2
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.
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task