Bertel skrev:
>Hvorfor? Kan du ikke vente med det til tallene skal præsenteres?
Nej for vægten(udtrækket) bruges til at opdatere et felt [visStorfanger] til
ja/nej.
http://www.smaabaadsklub.dk/sjaelland/klubmester/top10ssk.asp
Denne liste bruges til at vise de 10 største fisk af hver art, men fra næste
år må hvert medlem kun optræde på listen een gang indenfor hver art.
Alle data kommer fra en formular, og der er mulighed for både at redigere og
indsætte data fra samme formular og samme asp-side som nedenstående data
stammer fra.
Jeg laver derfor et udtræk:
"SELECT T_Fangst.Fiskeart, T_Fangst.Vægt, T_Fangst.PersonID, " &_
"T_Fangst.FangstId, T_Fangst.visStorfanger FROM T_Fangst " &_
"WHERE T_Fangst.PersonID = " & PersID & " AND T_Fangst.Fiskeart = " &
Fiskeart &_
" AND T_Fangst.visStorfanger = 'Ja'"
Hvorefter jeg sammenligner
If (rs("Vægt")* 10) < vgt Then
visStorfanger = "Ja"
Else
visStorfanger = "Nej"
End If
For til sidst at ændre visStorfanger for den post, jeg lige har hentet.
If (rs("Vægt")*10) < vgt Then
SQLr = "UPDATE T_Fangst SET visStorfanger = 'Nej' WHERE FangstId = " &
rs("FangstId")
myConn.Execute(SQLr)
End If
Til sidst tilføjer jeg så den nye post til databasen, eller redigerer en i
forvejen indtastet rapport.
--
Med Venlig Hilsen
Jørgen Müller