Join og loop

Jeg lavede dette

Set rs = Connect.Execute("SELECT sporgsmal.*, deltager.* FROM sporgsmal, deltager WHERE sporgsmal.spid=deltager.spid ")


if not rs.EOF then
do until rs.EOF


response.write rs("sporgsmol") &"<br>"
response.write rs("fornavn") &"<br>"

rs.movenext
Loop
else
response.write "<span class='Font2'>Tom</span><br><br>"
end if         


men den skriver Spørgsmål for hver gang der er en vinder

Så kan du lave en SQL som denne der JOIN'er de to tabeller, den medtager kun hvis der er nogle som er ens i begge tabellern så "tomme" spørgsmål ikke kommer med. Den uidskriver også kun rs("sporgsmol") en gang som jeg har vist loopet..:

SQL = "SELECT sporgsmal.*, deltager.* "
SQL = SQL & " FROM deltager INNER JOIN sporgsmal ON deltager.spid = sporgsmal.spid;"

Set rs = Connect.Execute(SQL)

if not rs.EOF then
overskrift = ""
do until rs.EOF
  if overskrift <> rs("sporgsmol") then
    response.write rs("sporgsmol") &"<br>"
    sporgsmol = rs("sporgsmol")
  end if

  response.write " " & rs("fornavn") &"<br>"

  rs.movenext
Loop
else
response.write "<span class='Font2'>Tom</span><br><br>"
end if

Hey eagleeye Godt at hører fra dig igen

Den skriver ikke sporgsmol ud

Spørgsmålet bliver ikke vist ???


SQL = "SELECT sporgsmal.*, deltager.* "
SQL = SQL & " FROM deltager INNER JOIN sporgsmal ON deltager.spid = sporgsmal.spid Where deltager.vinder = 'vinder';"

Set rs = Connect.Execute(SQL)

if not rs.EOF then

overskrift = ""

do until rs.EOF

  if overskrift <> rs("sporgsmol") then
    response.write rs("sporgsmol") &"<br>"
    sporgsmol = rs("sporgsmol")
   
  end if

  response.write " " & rs("fornavn") &"<br>"

  rs.movenext
Loop
else
response.write "<span class='Font2'>Tom</span><br><br>"
end if

Bare du nu ikke sover :ø)

Jeg var lige optaget af noget andet ... Ups jeg har brugt to for skellige variable navne i loopet for det samme ;(
Prøv at lave loopet sådan her:

overskrift = ""

do until rs.EOF

  if overskrift <> rs("sporgsmol") then
    response.write rs("sporgsmol") &"<br>"
    overskrift = rs("sporgsmol")
   
  end if

  response.write " " & rs("fornavn") &"<br>"

  rs.movenext
Loop

Hvis det ikke helt virker så kan det måske være fordi rs("sporgsmol") bliver tom efter den er brugt første gang. Det har jeg set er sket hvis man har nogle kolonner som er defienret som notal og man bruger "SELECT * .." så kan den fejl komme, man skal skrive kolonnenavne som man vi have ud, men det kan laves sådan her så man kopier data fra rs("sporgsmol") ind i en variable....:


overskrift = ""

do until rs.EOF
  sporgsmol = rs("sporgsmol")
  if overskrift <> sporgsmol then
    response.write sporgsmol &"<br>"
    overskrift = sporgsmol   
  end if

  response.write " " & rs("fornavn") &"<br>"

  rs.movenext
Loop

Oki så kom overskriften med, men den skriver stadig overskriften med ud for hver deltager der er.

Det skulle den eller ikke da dette styk kode skulle tjekke på om den næste overskrift er en ny overskrift..:


  sporgsmol = rs("sporgsmol")
  if overskrift <> sporgsmol then
    response.write sporgsmol &"<br>"
    overskrift = sporgsmol   
  end if

Jeg tror den gør det fordi at når den looper gennem deltager så ser det sådan ud:

spid = 36
spid = 30
spid = 36
spid = 36
spid = 25

kan det ikke være det, måske skulle der en order by på ?

yep så virker det tak for hjælpen eagleeye og glædelig jul.

ARh ja det har jeg ikke lige tænkt på prøv at sætte ORDER BY ind sådan her:


SQL = "SELECT sporgsmal.*, deltager.* "
SQL = SQL & " FROM deltager INNER JOIN sporgsmal ON deltager.spid = sporgsmal.spid Where deltager.vinder = 'vinder' ORDER BY sporgsmal.spid;"

Så med eller uden DESC om du vil havde dem med højst spID først.

det virker bare 100%