Expire question ?

5 svar · 158 visningar · startad av Steveking 30 okt. 2001

StevekingMedlem sedan aug. 2001150 inlägg

Trådstart30 okt. 2001 14:01#1

Tjiohoh.
Har ett litet vinsystem där man skriver in all info om vinet och laddar upp en bild etc.
Sen skriver man in lagringstid och ett slutdatum innan man bör dricka det.

Det jag vill göra är att om man tex skriver att vinet bör drickas innan
24 06 02 så ska det komma upp en påminnelse bild av nåt slag när det är den 24:e Juni år 2002...
Hur går man till väga?

Have a nice day!

erkaMedlem sedan dec. 19996 522 inlägg

30 okt. 2001 14:19#2

det är bara att plocka ut alla från vindatabasen som har slutdatum idag, '"& date &"' eller med # om du har access.

Sen loopar du igenom träffarna och gör vad du vill vid varje träff

StevekingMedlem sedan aug. 2001150 inlägg

30 okt. 2001 14:24#3

Låter superbra men ja har inte en knyst i dalen om hur ja kodar det 8)
E helt villse....

erkaMedlem sedan dec. 19996 522 inlägg

30 okt. 2001 14:27#4

vilka kolumner har du i databasen, vilket format är de i? är det bara de som har utgångsdatum idag som ska plockas fram ?

StevekingMedlem sedan aug. 2001150 inlägg

30 okt. 2001 14:29#5

Japp.
JA har typ vin,bild,land,druva etc..
sen utgongsdatum
och det är i utgongsdatum alla expire datum hamnar.
Så om man skrivit in nån som ska drickas innan
30 10 2001 så ska skyllten ploppa fram idag.

erkaMedlem sedan dec. 19996 522 inlägg

30 okt. 2001 14:38#6

strSQL = "SELECT VinNamn,VinExpireDate FROM blabla WHERE VinExpireDate = #"& date &"#"

Response.Write"Dessa viner måste du dricka upp idag annars smakar de apa"

Set Rs = Cn.Execute(strSQL)
If Rs.Eof Then
Rs.Close
Set Rs = Nothing
Else
ArrRS = Cn.Execute(strSQL).getrows()
For y = 0 to ubound(ArrRS,2)
Response.Write ArrRs(0,y) &"<br>"
Next
Erase ArrRs
End If

Cn.Close
Set Cn = Nothing

typ