iterera för att skriva ut en checkbox

strSQL = "SELECT t1.usr_KATID AS t1KatId, t1.usr_KATEGORI AS t1Kat, t2.usr_KATEGORI AS t2KatId" & _
  " FROM med_kategorier t1" & _
  " LEFT JOIN med_origin t2 ON t1.usr_KATID = t2.usr_KATEGORI" & _
  " WHERE t2.usr_ORIGINID = " & thisUserId & _
  " ORDER BY t1.usr_KATEGORI"

 set rs1 = conndb1.execute( strSQL )

while ( not rs1.eof )

  response.write "<input name=""usr_kategori"" type=""checkbox"" value=""" & rs1( "t1KatId" ) & """"

  if ( rs1( "t1KatId" ) = rs1( "t2KatId" ) ) then
    response.write " checked>" & rs1( "t1Kat" ) & "<br />"
  else
    response.write ">" & rs1( "t1Kat" ) & "<br />"
  end if

  call rs1.movenext()

wend

Nu lovar jag inte att den här koden fungerar speciellt bra, men såhär skulle jag förmodligen försökt lösa det hela.

Vet inte om det stämmer precis men det borde ge dig en idé om hur man kan gå till väga. Har absolut inte testat koden men om du knåpar lite får du nog ihop det :)

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 i = 1 to 6
		response.write "<input name=""usr_KATEGORI"" type=""checkbox"" value=""" & i & """ "
			If i = intUsrCat Then 
				response.write " selected" 
			end if
		response.write "/>" & funcTitel & "<br />"
	i = i + 1
	next
rs1.movenext
loop

Engine^ skrev:

Nu lovar jag inte att den här koden fungerar speciellt bra, men såhär skulle jag förmodligen försökt lösa det hela.

Den skriver inte ut någonting... Inget felmeddelande.

CatZ skrev:

Vet inte om det stämmer precis men det borde ge dig en idé om hur man kan gå till väga. Har absolut inte testat koden men om du knåpar lite får du nog ihop det :)

Det fungerar ju så långt att den skriver ut alla checkboxarna, men att sedan få in rätt värde från med_kategorier.usr_KATEGORI till funcTitel är en annan femma... Jag har provat att sätta ihop några olika JOIN baserade frågor men ofta får jag undantag inträffade fel

peppar skrev:

Den skriver inte ut någonting... Inget felmeddelande.

Det kan bero på två saker.

Antingen matchar inte sql-uttrycket något - vilket är väldigt enkelt att testa.
Eller så jämförs inte rätt saker i if-satsen - vilket också är enkelt för dig att kolla, eftersom det är din databas kan du ju se vad som ska testas.

Det blir inget felmeddelande, eftersom inga fel orsakas. :OO

om jag innan whileloppen försöker skriva ut t.ex rs1( "t1Kat" ) så för jag bof eller eof är satt till True ... osv.
Då matchas inget, eller hur?!

Dang! Ett fel hittade jag i frågan

strSQL = "SELECT t1.usr_KATID AS t1KatId, t1.usr_KATEGORI AS t1Kat, t2.usr_KATEGORI AS t2KatId" & _
  " FROM med_kategorier t1" & _
  " LEFT JOIN med_origin t2 ON t1.usr_KATID = t2.usr_KATEGORI" & _
  " WHERE t2.[b]usr_USRORIGIN[/b] = " & thisUserId & _
  " ORDER BY t1.usr_KATEGORI"

Den var tidigare usr_ORIGINID. Som du sade lite att jämföra fel saker...

Nu skriver den endast ut dom kategorier man redan tillhör.... inte dom som skall lämnas tomma...

Ok. Testa kör frågan direkt i ditt DBMS. Jag chansade lite på dina kolumner när jag skrev ihop det och du kanske kan se om det är någon missmatch på join-villkoret eller om möjligen användarid:t är galet.

Om jag skickar in 39 i thisUsrId så får jag ut två poster, i både Access och Visual Studios QUERYhanterare. Det är ju det jag skall ha ut också. Men jag vill också få ut dom som inte matchar för att kunna skriva ut dom också... Går det att åstadkomma med samma fråga?

Jag skickar med en liten bild av hur tabellerna ser ut...

Tja... det är ju typiskt det du använder left join till.

Left join innebär lite löst: ta med allt från vänstra tabellen och det som matchar från den högra tabellen. Det som matchar är vad du anger i ON-villkoret.

Men här verkar ju något gå snett av någon anledning och just nu kommer jag inte på varför... följande ska fungera helt enkelt

SELECT med_kategorier.usr_KATEGORI, med_origin.usr_USRORIGIN
FROM med_kategorier
LEFT JOIN med_origin ON med_kategorier.usr_KATID = med_origin.usr_KATEGORI
WHERE med_origin.usr_USRORIGIN = 39
ORDER BY med_kategorier.usr_KATID

Här bör det komma följande resultat

odlare      null
uppfödare   null
förädlare   null
matlagare   39
butik       null
resurs      39

Efter detta ska det räcka att ändra i if-satsen i min kod till

if ( not isnull( rs1( "usr_USRORIGIN" ) ) ) then

Tycker jag...

Ja, jag har stirrat på det här ett tag nu, jag skall ta en promenad och försöka få lite luft... såhär ser koden ut nu

strSQL = "SELECT med_kategorier.*, med_origin.*"&_
	  " FROM med_kategorier"&_
	  " LEFT JOIN med_origin ON med_kategorier.usr_KATID = med_origin.usr_KATEGORI"&_
	  " WHERE med_origin.usr_USRORIGIN = " & thisUsrId & _ [b] värdet är 39[/b]
	  " ORDER BY med_kategorier.usr_KATID"

 set rs1 = conndb1.execute( strSQL )

while ( not rs1.eof )

  response.write "<input name=""usr_kategori"" type=""checkbox"" value=""" & rs1("usr_KATID") & """"

  if ( not isnull( rs1( "usr_USRORIGIN" ) ) ) then
    response.write " checked>" & rs1("usr_KATID") & "<br />"
  else
    response.write ">" & rs1("usr_KATID") & "<br />"
  end if

  call rs1.movenext()

och den genererar:

matlagare 39
resurs 39

Hoppsan Kerstin! :r

Det är ju inget fel i det resultatet... det är jag som är helt ute och cyklar i mina sql-kunskaper :D

Frågan bör nog se lite annorlunda ut

SELECT usr_KATEGORI, (SELECT 1 FROM med_origin
WHERE usr_usrorigin=39 AND usr_kategori = t2.usr_katid)
FROM med_kategorier t2
ORDER BY usr_katid

Flytta villkoret från WHERE till JOIN-instruktionen, annars blir det en INNER JOIN av det hela.

"LEFT JOIN med_origin ON med_kategorier.usr_KATID = med_origin.usr_KATEGORI"&_
	  " AND med_origin.usr_USRORIGIN = 39"

@nders skrev:

Flytta villkoret från WHERE till JOIN-instruktionen, annars blir det en INNER JOIN av det hela.

"LEFT JOIN med_origin ON med_kategorier.usr_KATID = med_origin.usr_KATEGORI"&_
	  " AND med_origin.usr_USRORIGIN = 39"

Då stöds inte kopllingsuttrycket längre...

Jävla Access. :(

Mvh

Spana på min förra post så ska du se att det fungerar bättre... :)

Dang! ;) Nu fungerar det i Access...

Glom inte markera traden som lost! djavla engelska tangentbord!! Mwhahahah

CatZ skrev:

Glom inte markera traden som lost! djavla engelska tangentbord!! Mwhahahah

Nejdå! Jag brukar vara duktigt på det, men jag tänkte att när jag fått hela utskriften att fungera så kan jag posta läsningen här och då när jag fått det att fungera markera tråden... :)