Dato format og SQL sætning med BETWEEN

Det format du ser er IKKE det databasen bruger til at kommunikere med.

Access:
#mm-dd-yyyy#

Alle andre:
'yyyy-mm-dd'

Din sql skal altså komme til at se sådan ud (Access):
sql = "Select * from Db where DATO1 Between #07-11-2007# AND #12-31-2007#"

Er der en smart måde at bytte rundt på det i koden uden at skal ændre alle rocord i databasen?

Du skal ikke ændre noget i databasen. kolonnen skal bare være af en dato datatype. Den må ikke være et tekstfelt...

Du kan med fordel bruge en funktion til at konvertere dine datoer til SQL format:

Function DBDate(byVal fDato)
dim SQLYear,SQLMonth,SQLDay
  fDato = cDate(fDato)
  SQLYear = Year(fDato)
  SQLMonth = Month(fDato)
  SQLDay = Day(fDato)
  if SQLDay<10 then
    SQLDay = "0"&SQLDay
  end if
  if SQLMonth<10 then
    SQLMonth = "0"&SQLMonth
  end if
  DBDate = "#"& SQLMonth&"-"&SQLDay&"-"&SQLYear &"#"
End Function

Så kalder du bare den når du skal bruge datoer. Gør det også nemmere hvis du skifter database, da du så bare ændre funktionen. Læg mærke til at den indsætter #, så man ikke skal alle sine sql i gennem og ændre # til ' hvis man skifter DB.

Koden bliver så noget ala:
sql = "Select * from Db where DATO1 Between "& DBDate(request.form("start")) &" AND "& DBDate(request.form("slut"))

Får fejlen:
Select * from RFC Where DATO1 BETWEEN '#07-11-2007#' AND '#07-12-2007#'
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/CHANGE.asp, line 142

Har sat typen af DATO1 til "Dato og klokkes"

Du skal ikke have ' omkring. Access bruger kun #.

Select * from RFC Where DATO1 BETWEEN '#07-11-2007#' AND '#07-12-2007#'
Skal altså blive til:
Select * from RFC Where DATO1 BETWEEN #07-11-2007# AND #07-12-2007#

Perfekt.

Stærkt..... det virker....

.o) <-- One Eyed Jack