Hej
Jag har en Access-databas med en datumkolumn "datumProgram" som har datatypen Kort datum. Från en .aspx-sida skall jag till en listbox hämta namn som är registrerade under de senaste 7 dagarna. Jag har följande kod i VB:

Dim kontrollDatum As DateTime
kontrollDatum=DateAdd("d",-7,Now.ToShortDateString())

Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath ("\kunderReg.mdb") & ";"
Dim sql as string = "SELECT * FROM laddatned WHERE datumProgram>'"&kontrollDatum&"' ORDER BY sifferkod"
Dim conn as New OleDbConnection(strConn)
Dim objDR as OleDbDataReader
Dim Cmd as New OleDbCommand(sql, conn)

conn.Open()
objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
list1.datasource=objDR
list1.DataValueField="ID"
list1.datatextfield="foretagsnamn"
list1.databind
conn.Close

Jag får dock felmeddelande på detta, "Ett satsslut förväntas" på raden Dim sql .......
Kan någon se vad jag har gjort för fel?

Testa att sätta blanksteg runt 'kontrollDatum' så att och-tecknen inte sitter ihop med variabelnamnet.

/johan/

Det fungerar inte nu heller. Någon som jobbar med aspx i vb-språk mot Accessdatabas bör kunna se rätt så snabbt var felet ligger. Eller?

Testa att byta ut dina 'enkelfnuttar' mot #
Ex
SQL= “Select * from Employee where StartDate >= #” & _

Format(StrtDate, “MM/DD/YY”) & “#”

/Janne