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)
