Access og dato formatering
Jeg har et lidt mærkeligt tilfælde.Jeg kan ikke få dato formatet til at blive gæmt rigtig i Access databasen når den ligger på serveren. Det virker fint når jeg tester det på min lokale web server.
Koden er som følger:
function mitDatoFormat
dim d, m, y, h, mm, s
d=right("0" & day(now),2)
m=right("0" & month(now),2)
y=year(now)
h=hour(now)
mm=minute(now)
s=second(now)
mitDatoFormat=d & "-" & m & "-" & y & " " & h & ":" & mm & ":" &s
end function
Set myConn = Server.CreateObject("ADODB.Connection")
strDNS ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data\DBG_Ordre.mdb")
ReqOrdreKundeID = Request.form("OrdreKundeID")
ReqOrdreGuideID = Request.form("OrdreGuideID")
ReqOrdreBrugerID = Request.form("OrdreBrugerID")
ReqOrdreAnnonceStr = Request.form("OrdreAnnonceStr")
ReqOrdreAnnonceStrTekst = Request.form("OrdreAnnonceStrTekst")
ReqOrdreGrundPris = Request.form("OrdreGrundPris")
ReqOrdreGenindrygning = Request.form("OrdreGenindrygning")
ReqOrdreGenindrygningAar = Request.form("OrdreGenindrygningAar")
ReqOrdreAntalFarver = Request.form("OrdreAntalFarver")
ReqOrdreFrave = Request.form("OrdreFrave")
ReqOrdreDato = (mitDatoFormat)
strSQL = "INSERT INTO T_Ordre (OrdreKundeID,OrdreGuideID,OrdreBrugerID,OrdreAnnonceStr,OrdreAnnonceStrTekst,OrdreGrundpris,OrdreGenindrygning,OrdreGenindrygningAar,OrdreAntalFarver,OrdreDato)
strSQL = strSQL & "VALUES ('"&(ReqOrdreKundeID)&"','"&(ReqOrdreGuideID)&"','"&(ReqOrdreBrugerID)&"','"&(ReqOrdreAnnonceStr)&"','"&(ReqOrdreAnnonceStrTekst)&"','"&(ReqOrdreGrundpris)&"','"&(ReqOrdreGenindrygning)&"','"&(ReqOrdreGenindrygningAar)&"','"&(ReqOrdreAntalFarver)&"','"&(ReqOrdreDato)&"')"
myConn.Execute(strSQL)
OrdreDato er et felt af typen "Dato og klokkeslæt" i access databasen formateret med "Standarddatoformat"
Hvis jeg forsøger at indsætte værdien af OrdreDato i et andet felt af typen "tekst" så er det formateret rigtig!
Så er det jeg spørger kan Access indstille "Standarddatoformat" efter server indstillingerne ?
