sammentæl count udtræk via løkke

Under antagelse af at rs indeholder dine optællinger fra udtrækket og feltet med optællingerne ligger i en kolonne ved navn antal:

sum = 0
do while not rs.eof
  sum = sum + rs("antal")
  rs.movenext
loop

Det er den jeg bruger lige nu, men den giver bare 0, også selvom den løkke der udskriver 1/12 = 10 osv. viser de korrekte udtræk :-(.

Jeg vil da formode at det er totalantal der skal benyttes.

sum = 0
do while not rs.eof
  sum = sum + rs("totalantal")
  rs.movenext
loop

Hej jarlen67. det virker heller ikke (samme resultat) forstår det sgu ikke.

Har du debugget og tjekket at der er en værdi i rs("antal") eller rs("totalantal") ...

Kan du ikke vise os den relevante del af din kode. Det ovenstående burde virke og hvis det ikke gør så er det fordi at vi mangler et eller andet.

<%
Dim rs
Dim rs_cmd
Dim rs_numRows

Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_connUglvig_STRING
rs_cmd.CommandText = "SELECT dato, sum(antal) as totalantal FROM tabel GROUP by dato"
rs_cmd.Prepared = true

Set Rs = rs_cmd.Execute
rs_numRows = 0
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <%do until rs.EOF%></p>
                          <tr>
                            <td width="44%" class="style1"><strong><%=rs("dato")%>:</strong></td>
                            <td width="56%"><span class="style1"><%=rs("totalantal")%> stk</span></td>
                          <%rs.MoveNext
loop
%></tr>
                        </table>
                        <p align="left" class="style1"><%if not rs.BOF then%>
                          Leveret ialt: <strong>
                          <%
                        sum = 0
                        do until rs.EOF
                        sum= sum+ rs("totalantal")
rs.MoveNext
loop

%>
i alt: <%=sum%><%%><%end if%></strong></p>





Kan det være fordi jeg har to løkker?

Kan det være fordi jeg har to løkker?>

Ja! Løkke nr. 2 løber nemlig aldrig nogen steder rs er nået til EOF når du starter løkken 2. gang.

Men hvorfor have 2 løkker, når det kan klares i et og samme gennemløb?

<%
Dim rs
Dim rs_cmd
Dim rs_numRows

Set rs_cmd = Server.CreateObject("ADODB.Command")
rs_cmd.ActiveConnection = MM_connUglvig_STRING
rs_cmd.CommandText = "SELECT dato, sum(antal) as totalantal FROM tabel GROUP BY dato"
rs_cmd.Prepared = True

Set Rs = rs_cmd.Execute
rs_numRows = 0
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sum = 0
Do Until rs.EOF
%>
    <tr>
    <td width="44%" class="style1"><strong><%=rs("dato")%>:</strong></td>
    <td width="56%"><span class="style1"><%=rs("totalantal")%> stk.</span></td>
    </tr>
<%
    sum = sum + rs("totalantal")
    rs.MoveNext
Loop
%>
</table>

<p align="left" class="style1">Leveret ialt: <strong>i alt: <%=sum%></strong></p>

Ja, hvorfor egentlig :-D
Det var det der var fejlen.
Så lærte jeg også det.
Smider du et svar nielle...

Hmm, nu var jeg jo ikke en om at give det rette svar. Det må da være en deler?

Så synes jeg at softspot også skal smide et svar, så får i alle tre.

softspot, lægger du ikke et svar?

Softspot, jeg går ud fra at du ikke vil have points. Derfor lukker jeg spm nu.
Hvis du føler dig snydt, så smid lige en melding, så finder vi ud af det :)

Tak for hjælpen!

Takker for point :^)

Takker.