Om veckan finns med?

4 svar · 301 visningar · startad av Bosse168 25 okt. 2004

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan25 okt. 2004 15:44#1

Jag vill att om inte veckan finns med så ska övrig kod köras någon som vet vad är det för fel på denna kod?

Dim week,roster
week = DatePart("ww", Now()-1, vbMonday) '-------- Sätter veckans nummer

Set Rs = Connect.Execute("SELECT * FROM top_tattoo WHERE vecka='" & week & "' AND year(datum) = year(current_date)")

If Rs.EOF Then '----- Om veckan INTE redan fanns med

'---- Koden som ska köras

End If

Använder MySQL 4.0.21-nt sparar in veckan i en kolumn (vecka) och datumet (datum) i en annan. Finns säkert något smidigt sätt att kolla det redan i SQL satsen men jag får det inte att funka.

joel_joel88Medlem sedan nov. 20021 222 inlägg

25 okt. 2004 18:01#2

hmm...jag tycker att koden verkar stämma

@ndersMedlem sedan juni 200032 967 inlägg

25 okt. 2004 18:11#3

Standardfråga nummer ett: På vilket sätt fungerar det inte? Felmeddelande?

Fråga två: lagrar du veckonummer i ett varchar-fält?

Bosse168Medlem sedan nov. 20031 018 inlägg

25 okt. 2004 20:34#4

Den kör koden fast veckan finns med och jag har typen varchar på fältet vecka.

//red gjorde om fältet vecka tilll INT(3)

DenkanMedlem sedan juni 2002256 inlägg

25 okt. 2004 23:44#5

Vad har du för kolumner i databasen egentligen?

week, datum, current_date ... ?

Förstår inte vilken funktion year(datum) = year(current_date) har.

Skulle själv vilja ha det till

Dim week,roster
week = DatePart("ww", Now()-1, vbMonday) '-------- Sätter veckans nummer

Set Rs = Connect.Execute("SELECT * FROM top_tattoo WHERE vecka=" & week & " AND year(datum)=" &Year(Date()))

If Rs.EOF Then '----- Om veckan INTE redan fanns med

'---- Koden som ska köras

End If