Ändra status!

4 svar · 174 visningar · startad av asp 28 maj 2003

aspMedlem sedan aug. 2002733 inlägg

Trådstart28 maj 2003 18:22#1

Tjenare!

Detta är nog ingen match för er killar. Läget är såhär att jag har några ligor i tabellen tblLiga där ligan har statusen on eller off.

Nu vill jag att om sista datumet har paserat dagens datum så skall statusen vara off, om dagens datum är större än sista datumet så skall statusen vara on.

Här kommer en kod, dessvärre fungerar den inte.

strSQL = "SELECT TOP 1 datum FROM tblSpel ORDER BY datum DESC"
Set objDate = Conn.Execute(strSQL)
If Date() > CDate(objDate("datum")) Then
   strSQL = "UPDATE tblLiga, tblSpel SET tblLiga.status = 'off' WHERE tblSpel.datum = (SELECT TOP 1 datum FROM tblSpel ORDER BY datum DESC) AND tblSpel.ligaid = tblLiga.ligaid"
  Conn.Execute(strSQL)
End If
Set objDate = Nothing

Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing

LarsGMedlem sedan dec. 200012 464 inlägg

28 maj 2003 18:59#2

Vad finns det för relation mellan tblliga och tblspel?

aspMedlem sedan aug. 2002733 inlägg

28 maj 2003 19:38#3

I tblLiga finns status medan i tblSpel står alla datum.

LarsGMedlem sedan dec. 200012 464 inlägg

28 maj 2003 20:09#4

För att sätta off

strSQL = "UPDATE tblLiga SET status = 'off' " & _
" WHERE not exists (SELECT 1 FROM tblSpel " & _
" where tblSpel.ligaid = tblLiga.ligaid " & _
"  and date() < Datum )"
  Conn.Execute strSQL

För att sätta on

strSQL = "UPDATE tblLiga SET status = 'off' " & _
" WHERE exists (SELECT 1 FROM tblSpel " & _
" where tblSpel.ligaid = tblLiga.ligaid " & _
"  and date() > Datum )"
  Conn.Execute strSQL

aspMedlem sedan aug. 2002733 inlägg

28 maj 2003 21:45#5

fungerar galant..