Kan ikke få det til at fungerer
Hvor er det det er galt?Private Sub checkDate()
Dim valgtDato As String = CStr(Session("valgtDato"))
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("bestilTidConn").ConnectionString)
Dim cmd As New SqlCommand("SELECT resdatotid FROM tbl_reservering where resdatotid=@dato", conn)
Dim rdr As SqlDataReader
cmd.Parameters.Add(New SqlParameter("@dato", valgtDato))
conn.Open()
cmd.Connection = conn
rdr = cmd.ExecuteReader
Do While rdr.Read
'DENNE SKAL TJEKKES!!!!!!!!!!!
If valgtDato = rdr.GetValue(0) Then
lbl_test.Text = "YEEHAW"
Else
lbl_test.Text = "DARN"
End If
Loop
conn.Close()
End Sub
Den tjekker fint nå valgtDato er sand, men der sker ingenting når valgtDato er falsk. Hvordan får jeg det til at fungerer?
'hellfishdk