/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Korrekt datoformat
Fra : frame


Dato : 04-01-02 13:42

Har et messageboard som er skrevet i VB. Mit problem er at uanset
hvordan jer sætter dato formatet på serveren hvor appikationer kører så
bliver datoformatet forkert. VB skriver v.h.a af en SQL ned i en access
database hvor formatet er dansk.

sub doPut(sForum)
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
OpenDB con, "Bulletin"
SQL = "INSERT INTO tblBulletin (fldName, fldEmail, fldCate,
fldReply, fldTitle, fldBody, fldIP, fldDate, fldTime) VALUES ('" & _
Request.Form("Name") & "','" & _
Request.Form("Email") & "','" & _
sForum & "',0,'" & _
InsertAp(Request.Form("Title")) & "','" & _
InsertAp(Request.Form("Body")) & "','" & _
request.ServerVariables("REMOTE_ADDR") & "',#" & _
Date & "#,#" & _
Time & "#)"

con.Execute(SQL)

response.cookies("HuiYang").Expires = #01/01/2002#
response.cookies("HuiYang")("Name")= Request("Name")
response.cookies("HuiYang")("Email")= Request("Email")
%>

Frame

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


 
 
Harald Staff (04-01-2002)
Kommentar
Fra : Harald Staff


Dato : 04-01-02 14:22

Hei

Access lagrer dato i microsoft-format (dvs en dato er en dato, det er bare
visningen som er dansk).
Denne fungerer for meg i Access 2000:

"#" & Format(Now, "yyyy-mm-dd hh:mm:ss") & "#"

som resulterer i i SQL
#2002-01-04 14:21:00#

HTH. Beste hilsen Harald

frame <frame.news@kandu.dk> skrev i
news:4jhZ7.7798$aS.1275309@news010.worldonline.dk...
> Har et messageboard som er skrevet i VB. Mit problem er at uanset
> hvordan jer sætter dato formatet på serveren hvor appikationer kører så
> bliver datoformatet forkert. VB skriver v.h.a af en SQL ned i en access
> database hvor formatet er dansk.
>
> sub doPut(sForum)
> if Request.ServerVariables("REQUEST_METHOD") = "POST" then
> OpenDB con, "Bulletin"
> SQL = "INSERT INTO tblBulletin (fldName, fldEmail, fldCate,
> fldReply, fldTitle, fldBody, fldIP, fldDate, fldTime) VALUES ('" & _
> Request.Form("Name") & "','" & _
> Request.Form("Email") & "','" & _
> sForum & "',0,'" & _
> InsertAp(Request.Form("Title")) & "','" & _
> InsertAp(Request.Form("Body")) & "','" & _
> request.ServerVariables("REMOTE_ADDR") & "',#" & _
> Date & "#,#" & _
> Time & "#)"
>
> con.Execute(SQL)
>
> response.cookies("HuiYang").Expires = #01/01/2002#
> response.cookies("HuiYang")("Name")= Request("Name")
> response.cookies("HuiYang")("Email")= Request("Email")
> %>
>
> Frame
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408927
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste