Födels..

Hej!
jag undrar hur man gör för att få de här:
Att visa vilka av mina medlemmar som har födelsedag idag.
Födelsedatumet sparas i databsen. Tabell : reg Kolumm:age. Och själva datumet sparas om ex: 1994 01 01. Hur gör jag för att visa vilka av medlemmarna som fyller år idag?

[Redigerat av JonasT den 06 feb 2002]

SQL = "SELECT * FROM medlemmar WHERE fodelseDatum = " & date()

Exemplet förutsätter att du har

session.lcid = 1053

och att datumet i databasen ser ut som t.ex. "02-03-10".

------------------
Jag gillar chokladblå himmel.

så ser det inte ut.
Det är ex 1994 01 01.
Finns det inget annat sätt?

Vilken typ har kolumnen? Datetime eller text?

Om det är datetime (och Access databas) så

sql = "select * from medlemmar where month(fodelseDatum) = month(now()) and day(fodelseDatum) = day(now())

Om det är text

sql = "select * from medlemmar where cint(mid(fodelseDatum,6,2)) = month(now()) and cint(mid(fodelseDatum,9,2)) = day(now())

------------------
essentitia preter non sans multiplicandum

Någon som är villig att visa mig hela oden till detta. typen på kolummen är text.
Jag är rätt 0:ad på asp...
Tacksam för svar

Om det inte finns en bra anledning till att fälttypen är text så skulle jag ändra den till kort datum om jag vore du.

------------------
// Skarre

Men ere ingen somv et hur ja kan lösa detta?

Behöver verkligen den här funktionen..
Tacksam för hjälp.

haru testat larsG´s kod?
det hela skulle kunna se ut enligt följande(om det nu var det du ville ha)

strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/databasmapp/databas.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn

strsql = "select * from medlemmar where cint(mid(fodelseDatum,6,2)) = month(now()) and cint(mid(fodelseDatum,9,2)) = day(now()) "

Set rs = conn.Execute(strsql)
while not rs.eof
response.write rs("namn_kolumn") & "<br>"
rs.movenext
wend
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing

------------------
Motto: Flest If-taggar vinner!

[Redigerat av doggelito den 07 feb 2002]

<%
  dim connect,rs
  set connect = server.createobject("ADODB.connection")
  connect.open "din connect-sträng"

  set rs = connect.execute("select reg,age from medlem where cint(mid(age,6,2)) = month(now()) and cint(mid(age,9,2)) = day(now())
"

  if  rs.eof then
      response.write "Nähä, det är ingen som fyller år i dag heller <br>"
  else
      response.write "Idag fyller <br>"
      while not rs.eof
          response.write rs("reg") & " " & year(date) - cint(left(rs("age"),4)) & "år <br>"
          rs.movenext
      wend
  end if
  rs.close
  set rs = nothing
  connect.close
  set connect = nothing

Du får ändra i connect.open och på tabellnamnet.

red: Detta fungerar bara om du använder en Accessdatabas.
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 07 feb 2002]

Alltså, man skriver in hur när man föddes..det sparas i tabellen: reg och kolummen : age . Och värdet sparas så här: ex 1994 01 01 . Och är text.
Funkar din kod till det?

Vad ska jag skriva på "min connect sträng"?

Ingen som vet?

"driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("community.mdb")

Kanske kan fungera, var det inte den du använde några poster längre ner?

------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II

När jag lagt in det för jag felet:
Programsats förväntas.
/24u.nu/db/frameset.asp, line 134

vet någon vad som är fel?

Nej, det är ingen som vet det.
Möjligen om du visar din kod och pekar ut rad 134 så.

------------------
essentitia preter non sans multiplicandum

På rad 134 står det bara:

<%

Du måste visa mer kod.

------------------
essentitia preter non sans multiplicandum

Då har du räknat dåligt!
Skaffa en editor som skriver ut radnummerna, så blir det lättare att ha koll på det. Det kommer att behövas i framtiden också, det försäkrar jag dig!

/Jesper :birp

------------------
If ASPackad date-1 then ASPerin Now