26 svar · 1 212 visningar · startad av peppar · sida 2 av 2
Jag har två tabeller i relation. medkategorier(här finns bara sex poster med usrKATID 1-6) \--------------- usrKATID usrKATEGORI medorigin \---------- usrORIGINID usrUSRORIGIN usrKATEGORI Säg att jag har en användare som tillhör kategorierna 1 och 3 t.ex. Nu vill jag kunna uppdatera denna informationen genom att kolla igenom hela tabellen medorigin och skriva ut en chockbox för varje
Läs frågan i sin helhet →jag behöver ha ut värdet från fältet usr_USRORIGIN.... den returneras inte nu i recordsetet som det är ...?!
strSQL = "SELECT usr_KATEGORI AS usrKategori, t2.usr_katid AS t2katid,(SELECT 1"&_
" FROM med_origin"&_
" WHERE usr_usrorigin ="& thisUsrId& _
" AND usr_kategori = t2.usr_katid)"&_
" FROM med_kategorier t2 ORDER BY usr_katid"
Uhm, lägg med det i SELECT-listan då?
"SELECT usr_KATEGORI AS usrKategori, t2.usr_katid AS t2katid, usr_usrorigin(SELECT 1"&_
? Då returneras ingenting?
Kanske ett kommatecken efter fältnamnet du lade till?
min miss, men då får jag:
Det har inte angetts något värde för en eller flera nödvändiga parametrar.
Men borde inte det vara korrekt då? Eftersom att den faktiskt inte innehåller något på varje post... men det vill jag ju också veta, för att jämföra med fältet t2.usr_katid
Jag hittar inte npgon bra lösning på det här problemet och nu har jag fastnat i någon slags limbo kring detta problemet och kommer inte loss. Vad är det jag gör som är så helt galet?
Hur kan jag göra för att "hårdkoda" kategorierna men ändå checka rätt box. Jag har provat lite med CatZ kod men där stöter jag på patrul så här ser koden ut nu:
sql1 = "SELECT * from med_origin where usr_USRORIGIN = "& thisUsrId
set rs1 = conndb1.execute(sql1)
dim intUsrCat, funcTitel
do while not rs1.eof
intUsrCat = CInt(rs1("usr_KATEGORI"))
for a = 1 to 6
response.write "<input name=""usr_KATEGORI"" type=""checkbox"" value=""" & a & """ "
If a = intUsrCat Then
response.write " checked"
end if
select case a
case 1
funcTitel = "odlare"
case 2
funcTitel = "uppfödare"
case 3
funcTitel = "förädlare"
case 4
funcTitel = "matklagare"
case 5
funcTitel = "butik"
case 6
funcTitel = "resurs"
end select
response.write "/>" & funcTitel & "<br />"& vbcrlf
a = a + 1
next
rs1.movenext
loop
om någon har bockat för att tillhöra alla kategorierna så blir utskriften såhär:
<input name="usr_KATEGORI" type="checkbox" value="1" checked/>odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="1" checked/>odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" />förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" />butik<br />
<input name="usr_KATEGORI" type="checkbox" value="1" />odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" />förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" />butik<br />
<input name="usr_KATEGORI" type="checkbox" value="1" />odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" checked/>förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" />butik<br />
<input name="usr_KATEGORI" type="checkbox" value="1" />odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" />förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" />butik<br />
<input name="usr_KATEGORI" type="checkbox" value="1" />odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" />förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" checked/>butik<br />
<input name="usr_KATEGORI" type="checkbox" value="1" />odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" />förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" />butik<br />
Har man bar bockat i t.ex kategori 6 så blir utskriften såhär:
<input name="usr_KATEGORI" type="checkbox" value="1" />odlare<br />
<input name="usr_KATEGORI" type="checkbox" value="3" />förädlare<br />
<input name="usr_KATEGORI" type="checkbox" value="5" />butik<br />
strSQL = "SELECT usr_KATID, usr_KATEGORI, (SELECT COUNT(0) FROM med_origin WHERE usr_USRORIGIN = " & thisUsrID & " AND usr_KATEGORI = med_kategorier.usr_KATID) AS checked FROM med_kategorier ORDER BY usr_KATID"
set rsKAT = conndb1.execute(strSQL)
Do Until rsKAT.EOF
Response.Write "<input name=""usr_KATEGORI"" type=""checkbox"" value=""" & rsKAT(0) & """"
If CInt(rsKAT(2)) = 1 Then
Response.Write " checked"
End If
Response.Write " /> "& rsKAT(1) &"<br/>" & vbCrlf
rsKAT.MoveNext
Loop