Dato-problem: ASP og Access

Hjælper det at definere feltet i din Access tabel til kun at anvende "kort datoformat", du bruger jo ikke andet ?

Dit problem ligger sikkert i hvorledes du formater din SQL. Når du har et felt i Access som er sat til Dato og klokkeslet skal du i din SQL streng når du søger bruge følgende syntax: WHERE DATO = #05-11-2002# Dato er US notation.

Det er fordi at Access laver datoen om, så der står, Month/Day/Year <-tror nok det var i den rækkefølge...!

Så det er det du skal tage højde for..!

//>Rune

medions> Hmm.. sjovt nok det gør access ikke i min version !

hmm.. weird!
//>Rune

benson: Jeg har hermed prøvet at lave datofeltet om i db'en til en "Kort datoformat" - men nej. Det hjalp ikke :o(

dta: Hmm, måske er det mig der er dum; men jeg fik ikke hel fat i den måde som du skrev !?

Jeg står på bar bund

Prøv at lav det om til et tekst felt, og så der hvor du vil trække det ud af databasen, eller sammenligne det med noget, så skriv:

CDate(rs("dato"))

-det vil konvetere din variabel/recordset til datoformat...

//>Rune

-jakob-

Kunne du ikke lige vise os din SQL string med SELECT ?

Doh.. skulle ik' ha' været med det brugernavn..!

Eksperten> Beklager, men jeg har lånt en jeg arbejder for's user, da jeg skulle oprette et spm for ham omkring MySql! -I har lov til at kontakte ham hvis i er i tvivl om der er snyd i det her...!

MVH
Rune

SELECT * FROM DATABASE WHERE (Dato >= #"&Month(Date) & "-" & Day(Date) & "-" & Year(Date)&"#)

Siden som jeg tjekker om datoen er optaget eller ej, indeholder denne kode:


<%
If Request.Querystring("mode") = "dato" Then
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
  SQl = "SELECT * FROM Booking"
 
  Session("dato") = Request.Form("form_dato")
 
  SQL = "SELECT * FROM Booking"
  Set RS = conn.Execute(SQL)
  RS.MoveFirst
 
  Do While NOT RS.EOF
  If  RS("Dato") = Session("dato") Then Response.Redirect("godkendt.asp?dato=booket")
  If  Session("dato") = "" Then Response.Redirect("godkendt.asp?dato=mangler")
  RS.MoveNext
  Loop
End If
  Response.Redirect("booking1.asp")
%>

Opsumering: Feltet i databasen er stadig af typen; Dato og klokkeslæt

Mvh.
Jacob

Og med sortering!
SELECT * FROM DATABASE WHERE (Dato >= #"&Month(Date) & "-" & Day(Date) & "-" & Year(Date)&"#) ORDER BY Dato

dta: Og med sortering?? Jeg skal jo ikke sortere mine datoer på denne side, som jeg har vist koden til.
Ovenstående kode er som sagt kun til den side som tjekker om datoen findes i databasen...
Problemet er jo at når jeg skriver f.eks. 11-05-2002, og den findes i databasen, så kan den ikke finde den. Altså den mener at den ikke findes, og godkender derfor det hele, og sender mig videre til booking1.asp

Mvh.
Jacob

Du vælger alle dine records i databasen booking dvs. at du altid vil se den sidste nye record. Jeg går ud fra at du ud fra den form du får fra  Request.Form("form_dato") vil se om der er nogle bookinger?

Koden:
SQL = "SELECT * FROM Booking WHERE (Dato >= #"&Month(Session("dato") ) & "-" & Day(Session("dato") ) & "-" & Year(Session("dato") )&"#)"

if RS.EOF or RS.BOD then
  Response.Redirect("godkendt.asp?dato=booket")
else
  Response.Redirect("booking1.asp")
end if

dta: Det er korrekt forstået.
Jeg har også prøvet din kode, men den skriver at der er en Intern HTTP 500-serverfejl :-/

Mvh.
Jacob

if RS.EOF or RS.BOD then -> if RS.EOF then

Jeg er ikke sikker på hvorledes den vi reagere hvis dit formfelt er tomt så det skal du checke for.

dta: Det hjalp ikke.

Er du på icq??

Nop! Lad mig se din hele din kode og fortæl mig hvilken linie den fejler i?

Du skal bruge det der hedder et kortdato format

Kan læses om her :
http://activedeveloper.dk/aspdigital/kapitel1/formatdate.asp

------------------------------------------------------------------------------
Sådan ser det ud :
dtmDagenIdag = Request.Form("DitTekstFelt")
" & FormatDateTime(dtmDagenIdag, vbShortDate) & "

dta:

<%
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
  SQl = "SELECT * FROM Booking"
 
  Session("dato") = Request.Form("form_dato")
 
SQL = "SELECT * FROM Booking WHERE (Dato >= #"&Month(Session("dato") ) & "-" & Day(Session("dato") ) & "-" & Year(Session("dato") )&"#)"

if RS.EOF then
  Response.Redirect("godkendt.asp?dato=booket")
else
  Response.Redirect("booking1.asp")
end if
%>

Mvh.
Jacob

<%
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
  SQl = "SELECT * FROM Booking"
 
  Session("dato") = Request.Form("form_dato")
 
SQL = "SELECT * FROM Booking WHERE (Dato = #"&Month(Session("dato") )&_
      "-" & Day(Session("dato") ) & "-" & Year(Session("dato") )&"#)"

Set RS = conn.Execute(SQL)


if RS.EOF then
  Response.Redirect("godkendt.asp?dato=booket")
else
  Response.Redirect("booking1.asp")
end if
%>

Det tog sin tid. Der blev prøvet forskellige koder - men kun een virkede.

Dta kom med en koden. Koden der gjorte at det hele sparker numse igen ;-)

Vil hermed ønske alle god weekend samt en lige så god Pinse :-)

Mvh.
En møj glad Jacob