---
title: "Datum \"Typ kalender\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69932-datum-typ-kalender"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SannyW"
published: "2003-03-03T16:20:20.000Z"
updated: "2003-03-04T16:18:44.000Z"
replies: 33
views: 475
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/69932-datum-typ-kalender"
---

# Datum "Typ kalender"

_Sida 1 av 2._

## #1 — SannyW, 2003-03-03T16:20Z

Ny på if-satser därför behov av lite hjälp.

Databas med kolumnerna DATUM, TID, AKTIVITET

Är ute efter att hämta aktiviteten baserad på datum och tiden.

2003-03-06, 18:00, SIMMA
2003-03-07, 19:00, GÅ

Vill visa nästkommande aktivitet fram tills att den har passerat. Typ klockan är 17:00 6/3 vilket visar informationen SIMMA, men klockan 18:01 så skall informationen visa GÅ framtills nästa aktivitet eller tills att det inte finns någon akivitet och visa informationen typ "Har inga planer."

Någon som har lust att ge en hjälpande hand.

Tack på förhand.

Permalänk: https://www.webforum.nu/p/69932

## #2 — Eitraz, 2003-03-03T23:20Z

Ja, så här skulle det väll kunna bli eller nåt ;)

```
[1]
SQL = "SELECT * FROM databasen WHERE (DATUM='" & Date() & "' AND TID>'" & Time() & "') OR DATUM>'" & Date() & "' ORDER BY DATUM, TID"
Set RS = Connect.Execute(SQL)
	If NOT RS.EOF Then
		Do Until RS.EOF
			Response.Write RS("datum") & ", " & RS("TID") & ", " & RS("AKTIVITET") & "<br>"
		RS.MoveNext
		Loop
	Else
		Response.Write "Har inga planer."
	End If
Set RS = Nothing
[/1]
```

Här är alltså DATUM och TID strängar.

Har säkert precis som vanlig när jag skriver nåt här krånglat till det ovanligt mycket :birp 

\-Eitraz

Permalänk: https://www.webforum.nu/p/967342

## #3 — SannyW, 2003-03-04T00:01Z

Tack för svaret - Eitraz

Hmmm, får inte rätt på det. 

Vore tacksam om du kunde förklara vad jag satt fel. 

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/test.mdb")&";" 

Set RS = Server.CreateObject("ADODB.Recordset") 

SQL = "SELECT * FROM TEST WHERE (DATUM='" & Date() & "' AND TID>'" & Time() & "') OR DATUM>'" & Date() & "' ORDER BY DATUM, TID"

Set RS = Connect.Execute(SQL)
	If NOT RS.EOF Then
		Do Until RS.EOF
			Response.Write RS("datum") & ", " & RS("TID") & ", " & RS("AKTIVITET") & "<br>"
		RS.MoveNext
		Loop
	Else
		Response.Write "Har inga planer."
	End If
Set RS = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/967369

## #4 — Cannabis_Tomten, 2003-03-04T00:04Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/test.mdb")&";" 

Set RS = Server.CreateObject("ADODB.Recordset") 

SQL = "SELECT * FROM TEST WHERE [b]([/b]DATUM='" & Date() & "' AND TID>'" & Time() & "') OR DATUM>'" & Date() & "' ORDER BY DATUM, TID"

Set RS = Connect.Execute(SQL)
	If NOT RS.EOF Then
		Do Until RS.EOF
			Response.Write RS("datum") & ", " & RS("TID") & ", " & RS("AKTIVITET") & "<br>"
		RS.MoveNext
		Loop
	Else
		Response.Write "Har inga planer."
	End If
Set RS = Nothing
%>
```

hör den tjockmarkerade prantesen verkligen hemma där??? den ligger i select satsen, efter where o innan datum

får du inget felmedelande? har du stavat rätt på tabellnamn? stora och små bokstäver?

Permalänk: https://www.webforum.nu/p/967372

## #5 — Cannabis_Tomten, 2003-03-04T00:09Z

```
SQL = "SELECT * FROM TEST WHERE (DATUM='" & Date() & "' AND TID>'" & Time() & "') OR DATUM>'" & Date() & "' ORDER BY DATUM, TID"
```

borde väl ändå vara

```
SQL = "SELECT * FROM TEST WHERE DATUM='" & Date() & "' AND TID>'" & Time() & "' OR DATUM>'" & Date() & "' ORDER BY DATUM, TID"
```

föresten har du tabellnamnen i stora bokstäver i databasen?

Permalänk: https://www.webforum.nu/p/967373

## #6 — SannyW, 2003-03-04T00:10Z

Jo, får följande fel:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Typblandningsfel i villkorsuttryck.
/ubk/test/tid.asp, line 10

Tabellnamnet är rätt, men osäker på stora och små bokstäver. Skall titta.

Permalänk: https://www.webforum.nu/p/967374

## #7 — SannyW, 2003-03-04T00:12Z

Hjälpte inte med stora och små bokstavsförändringar.

Permalänk: https://www.webforum.nu/p/967375

## #8 — Cannabis_Tomten, 2003-03-04T00:15Z

testa med:

```
SQL = "SELECT * FROM TEST WHERE (DATUM=" & Date() & " AND TID>" & Time() & ") OR DATUM>" & Date() & " ORDER BY DATUM, TID"
```

alternativt

```
SQL = "SELECT * FROM TEST WHERE DATUM=" & Date() & " AND TID>" & Time() & " OR DATUM>" & Date() & " ORDER BY DATUM, TID"
```

och berätta vad du får för medelande då

Permalänk: https://www.webforum.nu/p/967376

## #9 — SannyW, 2003-03-04T00:20Z

Nu händer följande:

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel (operator saknas) i frågeuttrycket 'DATUM=2003-03-04 AND TID\>01:16:44 OR DATUM\>2003-03-04'.

Permalänk: https://www.webforum.nu/p/967378

## #10 — Cannabis_Tomten, 2003-03-04T00:21Z

> **SannyW skrev:**
>
> Nu händer följande:
> 
> Feltyp:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
> \[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel (operator saknas) i frågeuttrycket 'DATUM=2003-03-04 AND TID\>01:16:44 OR DATUM\>2003-03-04'.

okej vilket andvände du? nummer 1 eller 2?

Permalänk: https://www.webforum.nu/p/967381

## #11 — SannyW, 2003-03-04T00:23Z

Samma svar på båda.

När jag testar följande så fungerar sidan:
SQL = "SELECT \* FROM test ORDER BY Datum, Tid"

Frågan som jag ställer mig eller anledningen måste väl vara Date () och Time () uttrycken?

Permalänk: https://www.webforum.nu/p/967383

## #12 — solbulle, 2003-03-04T00:24Z

Är det inte så att DATUM är ett reserverat ord i svensk access? Och därmed måste klamras?

Permalänk: https://www.webforum.nu/p/967384

## #13 — Cannabis_Tomten, 2003-03-04T00:27Z

jag ska det en en sista försök inna det e dags o sova

```
datum = date
tid = time

SQL = "SELECT * FROM TEST WHERE (DATUM="&datum&" AND TID > ="&tid&") OR DATUM > ="&datum&" ORDER BY datum, tid"
```

Permalänk: https://www.webforum.nu/p/967385

## #14 — SannyW, 2003-03-04T00:27Z

Vilket betyder? Utgå från att du pratar med en 5 åring så kommer jag nog att förstå.  :q

Permalänk: https://www.webforum.nu/p/967386

## #15 — Cannabis_Tomten, 2003-03-04T00:29Z

velket betyder följande..

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/test.mdb")&";" 

Set RS = Server.CreateObject("ADODB.Recordset")

datum = date
tid = time

SQL = "SELECT * FROM TEST WHERE (DATUM="&datum&" AND TID > ="&tid&") OR DATUM > ="&datum&" ORDER BY datum, tid"

Set RS = Connect.Execute(SQL)
	If NOT RS.EOF Then
		Do Until RS.EOF
			Response.Write RS("datum") & ", " & RS("TID") & ", " & RS("AKTIVITET") & "<br>"
		RS.MoveNext
		Loop
	Else
		Response.Write "Har inga planer."
	End If
Set RS = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/967389

## #16 — Cannabis_Tomten, 2003-03-04T00:30Z

kan fungera, jag e svintrött just nu, har skolaimorn också o skulle vart i sängs för länge sen :P

Permalänk: https://www.webforum.nu/p/967390

## #17 — SannyW, 2003-03-04T00:32Z

Okey, skall testa det sista du skickade. Tack för hjälpen och sov gott!

Permalänk: https://www.webforum.nu/p/967391

## #18 — Cannabis_Tomten, 2003-03-04T00:33Z

om inte den fungerar så kan det hända aatt denna fungerar.. annars får du vänta tills dem riktiga guruna vaknar imorn o kan hjälpa dej!

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/test.mdb")&";" 

Set RS = Server.CreateObject("ADODB.Recordset")

datum = date
tid = time

SQL = "SELECT * FROM TEST WHERE (DATUM='"&datum&"' AND TID > ='"&tid&"') OR DATUM > ='"&datum&"' ORDER BY datum, tid"

Set RS = Connect.Execute(SQL)
	If NOT RS.EOF Then
		Do Until RS.EOF
			Response.Write RS("datum") & ", " & RS("TID") & ", " & RS("AKTIVITET") & "<br>"
		RS.MoveNext
		Loop
	Else
		Response.Write "Har inga planer."
	End If
Set RS = Nothing
%>
```

jag väntar på ett besked om inget av dem fungerar sover jag, om det fungerar sover jag iaf.. vill bara veta om det gick eller inte :P

Permalänk: https://www.webforum.nu/p/967392

## #19 — SannyW, 2003-03-04T00:36Z

Nope, det funkar inte. 

Jag får vända och vrida på det lite till. Sen lägger jag det åtsidan för idag. 

Tack än en gång för alla hjälp.

Permalänk: https://www.webforum.nu/p/967394

## #20 — Cannabis_Tomten, 2003-03-04T00:38Z

okej... strange.. men men, kolla igenom denna sida om du ska fnula lite..

<http://www.ultimateasp.com/tutorial/sql.asp>

och här har du reserverade ord i SQL

<http://www.jsoftware.com/books/help/user/sql_reserved_words.htm>

Permalänk: https://www.webforum.nu/p/967395

---

Tråden på webben: https://www.webforum.nu/amne/asp/69932-datum-typ-kalender  
Nästa sida: https://www.webforum.nu/amne/asp/69932-datum-typ-kalender/page2.md