AccessTr.neT

"Bakiye_Sorgu" isimli sorgumda tarih aralığı ile sorgulama yapıyorum

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

İlgili tarihte bakiye yoksa bir önceki tarihin bakiyesini getirmesini istiyorum

Ö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

İstediğiniz aralıkta kayıt yok ise yeni bir SELECT sorgusu çalıştırın. ORDER BY ile sıralamayı tarihe göre yaptırın. En erken tarihten önceki ilk tarihi elde etmek için TOP 1 ile sadece bir kayıt çekin.

SELECT TOP 1 cart,curt FROM filanyer WHERE tarihalanı < erkentarih ORDER BY DESC

gibi bir Sql cümlesi işinizi görüyor olması lazım.

drummers

alpeki99