Kod:
Try
Dim Oku As OleDbDataReader = Veritaban_Islemleri.Tablodan_Oku("select * from Bakiye_Sorgu where Tarih between cdate('" & DDateTimePicker1.Text & "') and cdate('" & DDateTimePicker1.Text & "') order by Tarih", Nothing)
If Oku.Read() Then
If Oku.IsDBNull(0) Then
Return
Else
DSayisalTextBox6.Text = Oku("Devir")
DSayisalTextBox6.Text = Islem(New DSayisalTextBox() {DSayisalTextBox6}).ToString("N2")
End If
End If
Oku.Close()
Catch ex As Exception
End Try
Örnek
01,01,2015 = bakiye 100
10,01,2015 = bakiye 80
11,01,2015 = bakiye 40
15,01,2015 = bakiye 30
Sorgulamada 08,01,2015 tarihi istenirse 01,01,2015 tarihli bakiyeyi vermeli
Sorgulamada 13,01,2015 tarihi istenirse 11,01,2015 tarihli bakiyeyi vermeli
Bunu nasıl yapabilirim ?
Teşekkürler