Notifikationer

Markér alle som læst Log ud

kbirk Nybegynder

22. april 2004 - 22:39 Der er 10 kommentarer og
2 løsninger

Access Dato og klokkeslæt: Fra ASP til Access

Hejsa..
Jeg har problemer med en access database, hvor jeg skal inputte en dato i formatet dd.mm.yy, fra en formular på min asp side..
Men hvis jeg f.eks. inputter 00.00.00, og vil hente den dato ud igen, ser den således ud: 12:00:00 AM, altså et klokkeslæt..
Nogen som ved hvad jeg gør galt.. Har virkeligt knoklte længe med den her DB..
Hilsen Kasper

Synes godt om

eagleeye Praktikant

22. april 2004 - 22:45 #1

Det kunne lyde som om din server ikke køre DK dato format. Prøv at tilføje denne linje i toppen af din kode:

<% Session.LCID = 1030 %>

Synes godt om

steen_hansen Forsker

22. april 2004 - 22:47 #2

<% Session.LCID = 1030 %>

<html>

<head>
<title></title>
</head>

<body>

<%
Dim Dato
Dato = Day(Date) & "/" & Month(Date) & "/" & Year(Date) & " " & Time

Conn.Execute("INSERT INTO MinTabel (alle, dine, variabler) VALUES (" & _
"'" & Dato & "', "
osv.
%>

</body>

</html>

Kan det bruges?

Synes godt om

steen_hansen Forsker

22. april 2004 - 22:50 #3

Noget kode, som jeg selv bruger:

Conn.Execute("INSERT INTO profiles (username, pass, email, homepage, description, created, lastIP) VALUES (" & _
"'" & LTrim(RTrim(SQLEncode(Request.Form("username")))) & "', " & _
"'" & SQLEncode(vPassword) & "', " & _
"'" & Trim(SQLEncode(Request.Form("email"))) & "', " & _
"'" & Trim(SQLEncode(Request.Form("homepage"))) & "', " & _
"'" & Trim(SQLEncode(Request.Form("description"))) & "', " & _
"'" & Dato & "', " & _
"'" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "')")

Conn.Close

Synes godt om

steen_hansen Forsker

22. april 2004 - 22:55 #4

Og når du skal trække dato/tidspunkt ud (fra en anden sammenhæng, men princippet er det samme):

<%
Function AddZ(ByVal vNumber)

AddZ = CStr(vNumber)

If len(AddZ) < 2 Then _
AddZ = "0" & AddZ

End Function
%>

<%
Dim vCreated
vCreated = RS("created")
vCreated = addZ(day(vCreated)) & "-" & addZ(month(vCreated)) & "-" & year(vCreated) & " " & addZ(hour(vCreated)) & ":" & addZ(minute(vCreated)) & ":" & AddZ(Second(vCreated))
%>

<%=Server.HTMLEncode(vCreated)%>

Jeg fik store problemer, da min host ind imellem skiftede fra engelsk til dansk datoformat og omvendt. Det klarer det ovenstående fint.

Synes godt om

steen_hansen Forsker

22. april 2004 - 22:58 #5

... skiftede fra engelsk til dansk datoformat og omvendt - på serveren.

Synes godt om

kbirk Nybegynder

22. april 2004 - 23:01 #6

Det ser ud til at virke fint med <% Session.LCID = 1030 %>..
Hvad gør den egentligt..
Der er bare et problem.. Når jeg skriver 10.10.10 så laver den det om til 10:10:10, nogen som ved om der er en næm måde at ændre det på..? Eller kan jeg jo bare splitte den op og skifte : ud med .

Synes godt om

eagleeye Praktikant

22. april 2004 - 23:05 #7

Session.LCID = 1030 sættter den til DK dato format.

Du kan bare replace : med .

tid = "10:10:10"
tid = Replace(tid, ":", ".")

Synes godt om

steen_hansen Forsker

22. april 2004 - 23:06 #8

Med Session.LCID = 1030 angives der, at det er det danske datoformat, der skal anvendes.

Mht. : og . - så kan du anvende dette:

<%
Function AddZ(ByVal vNumber)

AddZ = CStr(vNumber)

If len(AddZ) < 2 Then _
AddZ = "0" & AddZ

End Function
%>

<%
Dim vCreated
vCreated = RS("created")
vCreated = addZ(day(vCreated)) & "." & addZ(month(vCreated)) & "." & year(vCreated) & " " & addZ(hour(vCreated)) & "." & addZ(minute(vCreated)) & "." & AddZ(Second(vCreated))
%>

AddZ sætter bare et 0 (nul) foran, hvis tidspunktet, der angives, er mindre end 10. Det ser mere ordentligt ud, men det kan du bare udelade.

Synes godt om

steen_hansen Forsker

22. april 2004 - 23:06 #9

Undskyld eagle, jeg konflikter vist med dig i dag :o)

Synes godt om

eagleeye Praktikant

22. april 2004 - 23:10 #10

Det går nok. Det jo altid godt der nogle som hjælper og vi siger det samme :)
Må men jeg må smutte for i aften.

Synes godt om

kbirk Nybegynder

22. april 2004 - 23:12 #11

Tak for hjælpen begge 2.. Har delt point 50/50..

Synes godt om

steen_hansen Forsker

22. april 2004 - 23:12 #12

Ups, takker mange gange for point, men du har da vist lagt en hel del oven i?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS