Hej

Jag undrar vad som är fel med följande sträng...
strSQL = "SELECT Sum(tblPageStat_def.CounterVisits) AS Visits," & vbCrLf & _
"CounterDate AS Dates,CounterTime AS Times " & vbCrLf & _
"FROM tblPageStat_def WHERE VALUES CounterDate =" & SQLDate(Date())

rs.Open strSQL, Conn

Function SQLDate(Value)
If IsDate(Value) Then
SQLDate = "#" & Value & "#"
Else
SQLDate = "Null"
End If
End Function

Jag får meddelande...
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'VALUES CounterDate =#2004-03-31#'.
...från webbläsaren. Jag tror det är en fnutt som saknas i datumvärdet, men jag vet inte vad jag gör för fel?

Tacksam för svar
Michael

Jag vet inte, men jag tycker att din SQL ser lite lustig ut:

>strSQL = "SELECT Sum(tblPageStat_def.CounterVisits) AS Visits," & vbCrLf & _
>"CounterDate AS Dates,CounterTime AS Times " & vbCrLf & _
>"FROM tblPageStat_def WHERE VALUES CounterDate =" & SQLDate(Date())
Jag ville nog haft det till:
<code>
strSQL = "SELECT Sum(tblPageStat_def.CounterVisits) AS Visits," & _
"CounterDate AS Dates,CounterTime AS Times " & _
"FROM tblPageStat_def WHERE VALUES CounterDate =" & SQLDate(Date())
</code>
DVS att man gör radbrytning enbart med "& _" detta betyder att databasen uppfatar det som en sträng, annars
så uppfattars det nog som flera strängar.

hmm...provade men fick tyvärr samma felmeddelande av webläsaren. Men jag förstår inte riktig varför en fnutt finns före values och efter datumet...

'VALUES CounterDate =#2004-03-31#'

//Micke

Det är fel i din SQL. VALUES hör inte hemma i en SELECT sats. VALUES används bara i INSERT INTO satser.

Det bör se ut något mer som:

<code>
Function SQLDate(Value)
If IsDate(Value) Then
SQLDate = "#" & Value & "#"
Else
SQLDate = "Null"
End If
End Function

strSQL = "SELECT Sum(tblPageStat_def.CounterVisits) AS Visits, " & vbCrLf & _
" tblPageStat_def.CounterDate AS Dates, " & vbCrLf & _
" tblPageStat_def.CounterTime AS Times" & vbCrLf & _
"FROM tblPageStat_def" & vbCrLf & _
"WHERE CounterDate = " & SQLDate(Date())

rs.Open strSQL, Conn

</code>

tack så mycket...det hjälpte
//Micke