如何在VB.net中比较和SQL日期

Question

I have a SQL Server database and what I want to do is compare a start date ( date ) and an end date ( date ) that I stored in my database on a row like this:

• Column1 - Row1 (start date) = 16-03-2016
• Column2 - Row1 (end date) = 16-03-2017

Both of these dates must be checked with the current date inside a sub in vb.net and I did this:

If RecieverData.HasRows Then
    While RecieverData.Read
        Label1Recieverinfo.Text = "Klant: " & RecieverData("Ontvanger").ToString
        Label2Recieverinfo.Text = "ID: " & RecieverData("OntvangerID").ToString
        Label3Recieverinfo.Text = "Event: " & RecieverData("event").ToString
        Label4Recieverinfo.Text = "Startdatum: " & RecieverData("Startdate").ToString
        Label5Recieverinfo.Text = "Einddatum: " & RecieverData("Enddate").ToString
    End While

    Dim StartDate As New Date
    Dim EndDate As New Date

    StartDate = RecieverData("StartDate")
    EndDate = RecieverData("EndDate")

    If StartDate <= Date.Now Then
        MessageBox.Show("startdate ok")
    ElseIf EndDate >= Date.Now Then
        MessageBox.Show("Enddate ok")
    Else
        MessageBox.Show("Use me")
    End If

Else
    MessageBox.Show("Deze Ontvanger ID bestaat niet.", "Fout", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If

But (you already knew this) it doesn't work.

Can someone help me out here?

Thanks

Edit:

Label results:

Error that I get:

Answer 1

Your while loop is reading past the end of the data. If you only expect one row, you should just read once:

If RecieverData.HasRows Then

    ' Read the first row
    RecieverData.Read()

    Label1Recieverinfo.Text = "Klant: " & RecieverData("Ontvanger").ToString
    Label2Recieverinfo.Text = "ID: " & RecieverData("OntvangerID").ToString
    Label3Recieverinfo.Text = "Event: " & RecieverData("event").ToString
    Label4Recieverinfo.Text = "Startdatum: " & RecieverData("Startdate").ToString
    Label5Recieverinfo.Text = "Einddatum: " & RecieverData("Enddate").ToString

    Dim StartDate As New Date
    Dim EndDate As New Date

    StartDate = RecieverData("StartDate")
    EndDate = RecieverData("EndDate")

    If StartDate <= Date.Now Then
        MessageBox.Show("startdate ok")
    ElseIf EndDate >= Date.Now Then
        MessageBox.Show("Enddate ok")
    Else
        MessageBox.Show("Use me")
    End If

Else
    MessageBox.Show("Deze Ontvanger ID bestaat niet.", "Fout", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If