Jag vill i en sats göra så att när man passerar ett visst datum och klockslag så ska ett utropstecken skrivas ut på sidan. Det gäller både när man går in på sidan på nytt eller bara uppdaterar. Har kommit till koden nedan, men sen står det still. Hoppas någon har en bra idé. Tack på förhand.

<codevb.net>
Function getAlert() As System.Data.IDataReader
Dim session As String = lblSession.Text
Dim dat As DateTime = Now
Dim strSQL As String

Dim connectionString As String = "server='(local)'; trusted_connection=true; database='data'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)

Dim queryString As String = "SELECT [data].[Alert] FROM [data] WHERE (([data].[Datum] <= @Datum) AND ([data].[Ansvarig] = @Session) AND ([data].[Svar] <> 'Svarar') AND ([data].[Samtalsforsok] < '5')) Order by [data].[foregavldatum]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_datum As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_datum.ParameterName = "@Datum"
dbParam_datum.Value = dat
dbParam_datum.DbType = System.Data.DbType.DateTime
dbCommand.Parameters.Add(dbParam_datum)
Dim dbParam_session As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_session.ParameterName = "@Session"
dbParam_session.Value = session
dbParam_session.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_session)

dbConnection.Open
Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
Dim cmd As New dbConnection(strSQL, dbConnection)
Dim rdr As OleDbDataReader = cmd.ExecuteReader()

Dim Datum As DateTime
Datum = rdr("Datum")

If Datum <= Now Then
lblDat.Text = "!"
Else
lblDat.Text = ""

Return dataReader
End Function
</code>

Hej Hasse,

Du kan använda en metod som heter "Compare" för att jämföra 2 datum och/eller klockslag.

Exempel:

<code>
Dim date1 As New Date(2004, 4, 22, 7, 38, 0)

Debug.WriteLine(Date.Now)

If Date.Compare(date1, Date.Now) < 0 Then
Debug.WriteLine("Date < Nu")
End If
If Date.Compare(date1, Date.Now) = 0 Then
Debug.WriteLine("Date = Nu")
End If
If Date.Compare(date1, Date.Now) > 0 Then
Debug.WriteLine("Date > Nu")
End If

Debug.WriteLine(Date.Now.ToShortDateString.CompareTo(date1.ToShortDateString))
</code>

Vad använder du DataReadern till?