Indsæt dato i database

Fejlen skyldes at Access bruger US eller UK dato format som er yyyy-mm-dd eller mm-dd-yyyy via SQL. Når man så indsætter en dato i dansk dato format, hvor dagen er først så bytter den rundt på månede og dag i datoen.

Der er en løsning og der er at bruge dato funktionerne Year, Month og Day til at formatere din dato.

Et eksemple bemærk Access bruger # omkring datoen:

<%
dato = Request.Form("Date")
strDato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)
SQL = "Insert Into tblKegler ([Date]) values (#" & strDato & "#)"
%>

Det er access du bruger eller?

Sql = "Insert Into tblKegler ([Date]) values ("#" & Request.Form("Date")& "#)"

Nej det mssql

Ok men formatet yyyy-mm-dd skal være det samme, så skal der bare ' omkring og ikke #

SQL = "Insert Into tblKegler ([Date]) values ('" & strDato & "')"

Og jeg formatere datoen inden jeg indsætter den i db

Ja

og hvis jeg sætter '    ' omkring får jeg fejl så skriver den at jeg ikke kan indsætte char i datetime felt

Hvad hvis du prøver at sætte / ind i stedet for -?

strDato = Year(dato) & "/" & Month(dato) & "/" & Day(dato)

Så skriver den den 01-01-1900

Prøv evt.
Sql = "Insert Into tblKegler ([Date]) values ("
Sql = Sql & "" & CDate(Request.Form("Date")) & ")"

Ups glemte lige ', sådan
Sql = "Insert Into tblKegler ([Date]) values ("
Sql = Sql & "'" & CDate(Request.Form("Date")) & "')"

Så får jeg den samme :

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

Hmm lyder meget mærkeligt da som eagkeeye også siger så bruger mssql ' omkring men så prøv uden og se hvad den så siger
Sql = "Insert Into tblKegler ([Date]) values ("
Sql = Sql & "" & CDate(Request.Form("Date")) & ")"

ja det har jeg lige gjort og så får jeg 01-01-1900 så jeg forstår det heller ikke lige

Hvad får du på denne:
Sql = "Insert Into tblKegler ([Date]) values ("
Sql = Sql & "2003-12-14)"

Det vil jeg lige prøve senere har ikke mere tid lige nu men jeg har midlertidigt lavet feltet om til et nvarchar så kan jeg indsætte i db

Jeg bruger følgende funktion til at lave en dato der kan indsættes i et smalldatetime felt på en SQL Server 2000
Der skal ' omkring :  "'" + ConvertToSqlDate(now) + "',"

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
 
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
End Function

Ja der kan man bare se det enste jeg skulle fjerne var mine - i datoen så virker det tak for hjælpen "hugopedersen" og et svar giver Point :o)

Det lyder da godt at du fik det til at virke.