Dato søgning ?

du kan gøre noget i denne stil

SELECT * FROM Tabel WHERE DATEPART(dd,Dato)= DATEPART(dd,@InputDato) AND ATEPART(mm,Dato)= DATEPART(mm,@InputDato)

hvis du bruger ms sql

Eller kortere

SELECT * FROM Tabel DAY(Dato)= DAY(@InputDato) AND MONTH(Dato)= MONTH(@InputDato)

det er mssql men fra en class fil i min application, gør det nogen forskel ?

det bør det ikke bortset fra at @InputDato skal formodentlig være en datetime.ToString()
eller en int som sættes lig med DAY(Dato)

DAY(Dato) returnere en int.

Ok det leger jeg lige med så vender jeg tilbage

ok :)

Ok jeg har følgende metode :

Public Function GetDay(ByVal TheDate As DateTime) As Boolean Implements iStatistikData.GetDay
    Dim objConn As SqlConnection = objDb.SqlConnect
    Dim objComm As New SqlCommand("Select TheDate From tbl_count_day1 Where Day(TheDate) = Day(@TheDate) And Month(TheDate) = Month(@TheDate)", objConn)
    objComm.Parameters.Add("@TheDate", SqlDbType.NVarChar)
    objComm.Parameters("@TheDate").Value = TheDate
    Dim Rs As SqlDataReader = objComm.ExecuteReader
    Dim boolReturn As Boolean
    Do While Rs.Read
        If Not (Rs("TheDate") Is DBNull.Value) Then
            boolReturn = True
        Else
            boolReturn = False
        End If
    Loop
    Rs.Close()
    objDb.SqlClose()
    Return boolReturn
End Function

den er så grundlag for hvorvidt jeg tilføjer en nu record eller opdatere en eksisterende men uanset hvad så laver den en ny record, misser jeg noget her ?

prøv at udskrive Rs("TheDate") og se hvad du får
evt. med
System.Dianogstics.Debug.WriteLine.
I hvilket tilfælde opretter den en record ? Er det når boolReturn er false ?

Der havde jeg lige skrevet forkert den skal selvfølgelig oprette en record når return = true :

If (Rs("TheDate") Is DBNull.Value) Then
    boolReturn = True
Else
    boolReturn = False
End If

i min buisness del laver jeg så følgende :

Dim boolReturn As Boolean
boolReturn = objData.GetDay(_Date)

If boolReturn Then
    objData.AddDay(_Date)
Else
    Dim arrHits As ArrayList
    arrHits = objData.GetDayHits(_Date)
    Dim intId As Integer = arrHits.Item(0)
    Dim intHits As Integer = arrHits.Item(1)
    intHits = intHits + 1
    Dim strError As Boolean
    strError = objData.EditDay(intId, intHits)
End If

men jeg får denne med fejl :

Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

i denne linie :

Dim intId As Integer = arrHits.Item(0)

og det virker sq underligt for den skal jo ikke gå i opdatering når jeg f.eks ikke har nogle records i databasen

SqlDbType.NVarChar ??

SqlDbType.NVarChar skal nok være SqlDbType.datetime

Ja det er jo nogle af de små smuttere der er ;o)

Den anden fejl var en if sætning jeg havde fået sat forkert den søgte på false istedet for true DOOOHHHH.

Men smid et svar så er der point på vej.

/Websam

svar :)