+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Veritabanından Charta Gelen İstatistik Sorunu (/konu-veritabanindan-charta-gelen-istatistik-sorunu.html)
Veritabanından Charta Gelen İstatistik Sorunu - Mehmet Paçal - 02/10/2018
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()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]](http://i.hizliresim.com/mon0v2.png)
üç kayıt eklediğimde :
![[Resim: lZVAnp.png]](http://i.hizliresim.com/lZVAnp.png)
Cvp: Veritabanından Charta Gelen İstatistik Sorunu - emir ustaoğlu - 09/10/2018
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.