Hejsan! Detta kanske kan vara till hjälp:Vill hämta info mellan två olika datum
Jag vill hämta info mellan två olika datum och jag får dt inte att fungera. Jag får upp att det är syntaxfel (operator saknas) i frågeuttrycket 'fldDatum >= #2006-01-01# AND fldDatum =< #2006-01-31#'. Tar jag bort AND fldDatum =< #2006-01-31# så visas alla poster och det vill jag inte.
Här är min kod:
set rs1 = conn.Execute("select datum, count(*) as unika, sum(antal) as besokare from (select left(fldDatum,10) as datum, fldIpnummer, count(*) as antal from tblstat where fldDatum >= #" & DateAdd("d",0,#2006-01-01#) & "# AND fldDatum =< #" & DateAdd("d",0,#2006-01-31#) & "# group by left(fldDatum,10), fldIpnummer) group by datum order by datum desc") Sv: Vill hämta info mellan två olika datum
Function SQLDate(Value)
If IsDate(Value) Then
SQLDate = "#" & Value & "#"
Else
SQLDate = "Null"
End If
End Function
Dim StartDate
Dim EndDate
Dim strSQL
StartDate = CDate("2006-01-01")
EndDate = CDate("2006-01-31")
strSQL = "SELECT CDate(datum) AS datum, count(*) AS unika, sum(antal) AS besokare" & vbCrLf & _
"FROM (SELECT CLng(fldDatum) AS datum, fldIpnummer, count(*) AS antal" & vbCrLf & _
" FROM tblstat" & vbCrLf & _
" WHERE fldDatum >= " & StartDate(StartDate) & " AND fldDatum =< " & SQLDate(EndDate) & vbCrLf & _
" GROUP BY CLng(fldDatum), fldIpnummer) & vbCrLf & _
"GROUP BY datum & vbCrLf & _
"ORDER BY datum desc"
Set rs1 = conn.Execute(strSQL)