Avatar billede axkris Nybegynder
17. august 2004 - 12:25 Der er 2 kommentarer og
1 løsning

Simpel: Kan ikke joine

Hej

Er der en, som gider at joine recordset'ene rsBrevkasse1 og rsBrevkasse2, så de bliver til et recordset, altså henter oplysningerne i et hug.

strSQL = "SELECT FORUM_ID FROM FORUM_MODERATOR WHERE MEMBER_ID = " & RS("Member_ID")
Set rsBrevkasse1=dataConn.Execute(strSQL)
                       
if not (rsBrevkasse1.bof or rsBrevkasse1.eof) then
  strSQL = "SELECT COUNT(FORUM_ID) AS COUNTRECORDS FROM FORUM_FORUM WHERE FORUM_ID = " & rsBrevkasse1("FORUM_ID") & " AND F_STATUS = 1 AND F_PRIVATEFORUMS = 6"
  set rsBrevkasse2=dataConn.Execute(strSQL)
  if rsBrevkasse2("CountRecords") > 0 then
    strPlusprofil = strPlusprofil & " <a href=""/plusprofil/gotoSite.asp?PlusprofilId=" & rs("ANNONCE_ID") & "&ClickType=links"">Brevkasse</a>"
  end if
end if

PS. rsBrevkasse1("FORUM_ID") bruges kun til at finde counteren med og skal ikke udskrives. Det er kun counteren som skal anvendes.
Avatar billede ldanielsen Nybegynder
17. august 2004 - 13:00 #1
Med forbehold for at jeg ikke kender MySql så godt:

"SELECT COUNT(*) AS COUNTRECORDS FROM FORUM_FORUM INNER JOIN FORUM_MODERATOR ON
FORUM_FORUM.FORUM_ID = FORUM_MODERATOR.FORUM_ID WHERE FORUM_MODERATOR.MEMBER_ID = " & RS("Member_ID") & " AND FORUM_FORUM.F_STATUS = 1 AND FORUM_FORUM.F_PRIVATEFORUMS = 6"
Avatar billede axkris Nybegynder
17. august 2004 - 19:16 #2
Hej igen

Takker for hjælpen... men jeg fandt ud af, at jeg blev nødt til at gøre den endnu mere avanceret ;)

Så her er den igen (har lige puttet 15 points oveni) - gidder du atter smide den sammen i et recordset:

            strSQL = "SELECT CAT_ID FROM FORUM_CATEGORY INNER JOIN FORUM_GROUPS ON FORUM_CATEGORY.CAT_ID = FORUM_GROUPS.GROUP_CATID WHERE FORUM_GROUPS.GROUP_ID = 6"
            set rsLetterbox1 = dataConn.execute(strSQL)
   
            do while not (rsLetterbox1.bof or rsLetterbox1.eof)
                strSQL = "SELECT FORUM_FORUM.FORUM_ID FROM FORUM_FORUM INNER JOIN FORUM_MODERATOR ON FORUM_FORUM.FORUM_ID = FORUM_MODERATOR.FORUM_ID WHERE FORUM_MODERATOR.MEMBER_ID = " & RS("Member_ID") & " AND FORUM_FORUM.F_STATUS = 1 AND FORUM_FORUM.CAT_ID = " & rsLetterbox1("CAT_ID")
                set rsLetterbox2 = dataConn.execute(strSQL)
                if not (rsLetterbox2.bof or rsLetterbox2.eof) then
                    strGoto = "http://www.selvet.dk/forum/forum.asp?FORUM_ID=" & rsLetterbox2("FORUM_ID")
                    rsLetterbox1.close
                    rsLetterbox2.close
                    exit do
                end if
               
                rsLetterbox1.movenext
            loop
Avatar billede axkris Nybegynder
17. august 2004 - 20:05 #3
Nå, skal bruge et hurtigt svar - lukker og slukker :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Computerworld tilbyder specialiserede kurser i database-management

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester