Avatar billede steen_hansen Forsker
14. april 2002 - 22:34 Der er 5 kommentarer og
2 løsninger

2 SQL-statements?

Følgende kode trækker debatemner i den rækkefølge de bliver postet:

<table border="0" width="100%" cellpadding="6" cellspacing="0">
    <tr>
        <td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT TOP 25 * FROM debat WHERE post_parent = 0 ORDER BY emneID DESC"
Set RS = Conn.Execute( SQL )

    response.write "<tr><td valign=""top"" width=""50%""><span class=""tekst11""><b>" & "Emne" & "</b></span></td>"
    response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><b><p align=""center"">" & "Bsv" & "</p></b></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><b>" & "Oprettet" & "</b></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><b>" & "Besvaret" & "</b></span></td></tr>"

%>
<tr>
<td colspan="4">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="1" bgcolor="AF0000"><img src="/images/1x1.gif"></td></tr>
</table>
</td>
</tr>
<%

while NOT RS.EOF
    tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

    response.write "<tr><td valign=""top"" width=""50%""><span class=""tekst11""><a href=""debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & "1" & "</p></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
   
    RS.MoveNext
    text=""
wend

%>
<tr>
<td colspan="4">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="1" bgcolor="AF0000"><img src="/images/1x1.gif"></td></tr>
</table>
</td>
</tr>
<%

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>
        </td>
    </tr>
</table>

Nu vil jeg gerne have vist antallet af de besvarelser der er på et givent debatemne, og jeg vil tro, at det skal gøres med noget i denne stil:

SQL = "SELECT COUNT(*) AS antal FROM debat WHERE post_parent = 'emneID' "

HJÆLP :o)
Avatar billede steen_hansen Forsker
14. april 2002 - 22:38 #1
Jeg vil lige tilføje, at tallet skal trækkes ud, hvor jeg har skrevet:

response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & "1" & "</p></span></td>"
Avatar billede eagleeye Praktikant
14. april 2002 - 22:59 #2
ja det ser rigtigt ud:

SQL = "SELECT COUNT(*) AS antal FROM debat WHERE post_parent = " & rs("emneID") & ";"
Set rsAntal = Conn.Execute(SQL)
response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & rsAntal("antal") & "</p></span></td>"
Avatar billede steen_hansen Forsker
14. april 2002 - 23:04 #3
Hej eagleeye!

Jeg har jo også denne:

QL = "SELECT TOP 25 * FROM debat WHERE post_parent = 0 ORDER BY emneID DESC"

- som trækker de sidste 25 indlæg ud. Kan jeg ikke også tælle antallet af besvarelser på indlæg sammen?
Avatar billede eagleeye Praktikant
14. april 2002 - 23:20 #4
Jeg prøver lige at kikke på..
Avatar billede eagleeye Praktikant
14. april 2002 - 23:52 #5
Det kan jeg ikke få den til. Jeg er faktisk heller ikke siker på at det kan lade sig gøre. Jeg kan få den til at hendte Count men så ingen andre felter eller de andre felter og så ingen Count. Det den tæller på er jo hvor post_parent = emneID men de felter man vil havde ud er hvor post_parent = 0 og emneID = emneID....
Avatar billede steen_hansen Forsker
14. april 2002 - 23:55 #6
Ok :o) Jeg lader spørgsmålet stå åbent i tilfælde af, at der skulle være andre, der kan komme med en løsning. Jeg vil sætte lidt point af som tak for din tid, eagleeye :o)
Avatar billede steen_hansen Forsker
13. juni 2002 - 12:50 #7
SQL = "SELECT debat.emneID, debat.post_parent, debat.nick, debat.emne, debat.brodtekst, debat.kommentar, debat.tid, debat.hits, debat.url, Count(debat_1.emneID) AS CountOfemneID, Max(debat_1.tid) AS MaxOftid FROM debat AS debat_1 RIGHT JOIN debat ON debat_1.post_parent=debat.emneID GROUP BY debat.emneID, debat.post_parent, debat.nick, debat.emne, debat.brodtekst, debat.kommentar, debat.tid, debat.hits, debat.url HAVING (((debat.post_parent)=0));"

rs("MaxOfTid")

Vi deler i porten, eagleeye, er det ok?
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
Kurser inden for grundlæggende programmering

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