Tal fra 3 felter i loop og vis derefter total

Hvordan ser din kode ud nu?

/theSurfer

Her koden:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mydb3.surf-town.net;DATABASE=xxx_xxxx;UID=xxxx_xxxxx;PWD=xxxxx;"

strSQL = "Select * From Regnskab"
Set rs = Conn.Execute(strSQL)

If RS.EOF Then
    Response.Write "Under opbygning..."
Else
    Do While NOT RS.EOF

Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & RS("Indskud") & RS("Debit") & RS("Kredit")
%>
<br><hr>
<%
    RS.MoveNext
  Loop
End If

Response.Write "<br><br><h4>Saldo: " & RS("Indskud") + RS("Debit") + RS("Kredit") & "</h4>"

Conn.Close
Set Conn = Nothing
%>

Hvad står der i felterne Indskud, Debit og Kredit, siden du kan lave sådan en opsætning?:

": " & RS("Indskud") & RS("Debit") & RS("Kredit")

/theSurfer

det er bare tal - datatypen er: decimal(6,2)

"1) Kunne tænke mig at hvis værdien er 0 skal den bare springes over."
Hvilken værdi? (Indskud, Debit, Kredit, eller samlet)

/theSurfer

Følgende: Indskud, Debit, Kredit

ind = rs("indskud") ' smid indholdet af "indskud"-feltet over i variablen ind
deb = rs("debit") ' smid indholdet af "debit"-feltet over i variablen deb
kre = "rs("kredit") ' smid indholdet af "kredit"-feltet over i variablen kre

if ind > 0 and deb > 0 and kre > 0 then
' ind, deb og kre er alle større end 0, så den udskriver informationerne:

Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & RS("Indskud") & RS("Debit") & RS("Kredit")

end if

Var det noget i den stil, til nr 1?

/theSurfer

Rettelse:

ind = rs("indskud") ' smid indholdet af "indskud"-feltet over i variablen ind
deb = rs("debit") ' smid indholdet af "debit"-feltet over i variablen deb
kre = "rs("kredit") ' smid indholdet af "kredit"-feltet over i variablen kre

if ind > 0 and deb > 0 and kre > 0 then
' ind, deb og kre er alle større end 0, så den udskriver informationerne:

Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & ind & deb & kre

end if

/theSurfer

ind = rs("indskud") ' smid indholdet af "indskud"-feltet over i variablen ind
deb = rs("debit") ' smid indholdet af "debit"-feltet over i variablen deb
kre = "rs("kredit") ' smid indholdet af "kredit"-feltet over i variablen kre

if ind > 0 and deb > 0 and kre > 0 then
' ind, deb og kre er alle større end 0, så den udskriver informationerne:

Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & ind & deb & kre

sum_ind = sum_ind + ind
sum_deb = sum_deb + deb
sum_kre = sum_kre + kre
end if

Og uden for loop'en:

Response.write "Saldo: " & sum_ind + sum_deb + sum_kre

Jeg forstår ikke helt: RS("Indskud") & RS("Debit") & RS("Kredit")

Eksempel:
hvis Indskud indeholder "1", "Debit" indeholder "2" og "Kredit" indeholder "3", kommer der til at stå: 123


/theSurfer

Altså så koden er:

strSQL = "Select * From Regnskab"
Set rs = Conn.Execute(strSQL)

If RS.EOF Then
    Response.Write "Under opbygning..."
Else
    Do While NOT RS.EOF

ind = rs("indskud") ' smid indholdet af "indskud"-feltet over i variablen ind
deb = rs("debit") ' smid indholdet af "debit"-feltet over i variablen deb
kre = "rs("kredit") ' smid indholdet af "kredit"-feltet over i variablen kre

if ind > 0 and deb > 0 and kre > 0 then
' ind, deb og kre er alle større end 0, så den udskriver informationerne:

Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & RS("Indskud") & RS("Debit") & RS("Kredit")

%>
<br><hr>
<%
    RS.MoveNext
  Loop
End If

Conn.Close
Set Conn = Nothing
%>

Eksempel:

Set rs = Conn.Execute(strSQL)

dim ind, deb, kre
dim sum_ind, sum_deb, sum_kre

ind = 0
deb = 0
kre = 0
sum_ind = 0
sum_deb = 0
sum_kre = 0

If RS.EOF Then
    Response.Write "Under opbygning..."
Else
    Do While NOT RS.EOF

        ind = rs("indskud") ' smid indholdet af "indskud"-feltet over i variablen ind
        deb = rs("debit") ' smid indholdet af "debit"-feltet over i variablen deb
        kre = "rs("kredit") ' smid indholdet af "kredit"-feltet over i variablen kre

        if ind > 0 and deb > 0 and kre > 0 then
            ' ind, deb og kre er alle større end 0, så den udskriver informationerne:

            Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
            Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & ind & deb & kre

            sum_ind = sum_ind + ind
            sum_deb = sum_deb + deb
            sum_kre = sum_kre + kre
        end if


%>
<br><hr>
<%
    RS.MoveNext
  Loop
End If

Response.write "Saldo: " & sum_ind + sum_deb + sum_kre

/theSurfer

Okay, havde ikke lige set det andet svar...

Har nu denne kode, men den skriver bare:

saldo: 0

Vedr. RS("Indskud") & RS("Debit") & RS("Kredit"), så tilføjer jeg lige mellemrum eller - eller der nu ser okay ud, men først skal jeg lige have vist mine tal...

Hehe... du er hurtig..

Der var en lille fejl i: kre = "rs("kredit") '

Skulle have været: kre = rs("kredit") '

Men der kommer ingen tal fra Indskud, Debit og Kredit...

Hvor "kommer ingen tal fra Indskud, Debit og Kredit" ?

Hvis det er ved: Response.write "Saldo: " & sum_ind + sum_deb + sum_kre

Prøv med: Response.write "Saldo: " & (CLng(sum_ind) + CLng(sum_deb) + CLng(sum_kre))

/theSurfer

Der ved disse linier (har indsæt et tegn for at adskille..)

Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & ind & " | " & deb & " | " & kre

Få det til at se sådan ud:

    Do While NOT RS.EOF

        response.write "DEBUG! indskud: *" & rs("indskud") & "*, debit: *" & rs("debit") & "*, kredit: *" & rs("kredit") & "*<br><br>"

' resten af koden her...

Hvad skriver den så ved "DEBUG!"-linierne?

/theSurfer

DEBUG! indskud: *0*, debit: *0*, kredit: *0*

DEBUG! indskud: *500*, debit: *0*, kredit: *0*


Er lidt i tvivl om jeg har forklaret mig godt nok, slutresultatet skulle gerne være:

Eks.
                  Indskud: Debit:  Kredit:

01/1-2006 - Start:        |      |
19/1-2006 - Kim:  500,00 |      |
23/1-2006 - Kim:          |150,00 |
01/2-2006 - Jens:  500,00 |      |

o.s.v

Giver der mening?

okay, det så pænere ud da jeg skrev det...

Ahh.. så er jeg med..
Så det nok bedste at bruge tabeller..

/theSurfer

Okay, kan du give et eks.?

Yeps.. laver lige et eksempel til dig..

/theSurfer

Super, tak ;O)

Eksempel på layout:

<table width="400">
<tr>
    <td >Dato:</td>
    <td>Overskrift:</td>
    <td>Indskud</td>
    <td>Debit</td>
    <td>Kredit</td>
</tr>
<tr>
    <td>01/1-2006</td>
    <td>Start</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
</tr>
    <td>19/1-2006</td>
    <td>Kim</td>
    <td>500,00</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
</tr>
    <td>23/1-2006</td>
    <td>Kim</td>
    <td>&nbsp;</td>
    <td>150,00</td>
    <td>&nbsp;</td>
</tr>
    <td>01/1-2006</td>
    <td>Jens</td>
    <td>500,00</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
</tr>
</table>

/theSurfer

Jeg har nu lavet det på følgende måde og det virker fint, men jeg mangler bare at kunne lægge talene samme i et "saldo-felt", ved du hvordan jeg gør det?

Koden:

strSQL = "SELECT * FROM Regnskab ORDER BY Dag, Maaned, Aar"
Set rs = Conn.Execute(strSQL)

    Response.Write "<table><tr><td style='font-weight:bold;' width='100px'>Dato:</td><td style='font-weight:bold;' width='300px'>Overskrift:</td><td style='font-weight:bold;' width='150px'>Navn:</td><td width='90px' style='font-weight:bold;'>Indskud:</td><td width='70px' style='font-weight:bold;'>Debit:</td><td width='70px' style='font-weight:bold;'>Kredit:</td></tr><tr><td height='10px'></td></tr><tr>"

If RS.EOF Then
    Response.Write "Under opbygning..."
Else
    Do While NOT RS.EOF

    Response.Write "<td>" & RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar") & "</td>"
        Response.Write "<td>" & RS("Overskrift") & "</td><td>" & RS("Navn") & "</td><td>" & RS("Indskud") & "</td><td>" & RS("Debit") & "</td><td>" & RS("Kredit") & "</td></tr>"

    RS.MoveNext
  Loop
End If

    Response.Write "</table>"

Conn.Close
Set Conn = Nothing
%>

Hmm.. nogen grund til at du har fjernet mine koder?

/theSurfer

Hvis du mener dem fra 22:20:36, så brugte jeg dem da jeg lavede min nye tabel, men disse data skal nemlig rettes af bestyrelsen som ved INTET om HTML og ASP og derfor var jeg jo nød til at bruge databasen...

Hvis du mener de første:

dim ind, deb, kre
dim sum_ind, sum_deb, sum_kre

ind = 0
deb = 0
kre = 0
sum_ind = 0
sum_deb = 0
sum_kre = 0

If RS.EOF Then
    Response.Write "Under opbygning..."
Else
    Do While NOT RS.EOF

        ind = rs("indskud") ' smid indholdet af "indskud"-feltet over i variablen ind
        deb = rs("debit") ' smid indholdet af "debit"-feltet over i variablen deb
        kre = "rs("kredit") ' smid indholdet af "kredit"-feltet over i variablen kre

        if ind > 0 and deb > 0 and kre > 0 then
            ' ind, deb og kre er alle større end 0, så den udskriver informationerne:

            Response.Write RS("Dag") & "/" & RS("Maaned") & "-" & RS("Aar")
            Response.Write " - " & RS("Overskrift") & " - " & RS("Navn") & ": " & ind & deb & kre

            sum_ind = sum_ind + ind
            sum_deb = sum_deb + deb
            sum_kre = sum_kre + kre
        end if


O.s.v. - så kunne jeg jo ikke få dem til at vise nogle tal. Jeg har imellemtiden fået fjernet mine 0'er (sat som nulværdi i db'en). Så det eneste jeg mangler er at få tallene lagt sammen, har prøvet med:

rs.open "select sum(Indskud) as sum from Regnskab"
if not rs.eof then
    Response.write "<tr><td height='10px'></td></tr><tr><td><b>I alt:</b></td><td></td><td></td><td><u>" & rs("sum") & "</u></td>"
End If

rs.close

rs.open "select sum(Debit) as sum from Regnskab"
if not rs.eof then
    Response.write "<td><u>" & rs("sum") & "</u></td>"
End If

rs.close

rs.open "select sum(Kredit) as sum from Regnskab"
if not rs.eof then
    Response.write "<td><u>" & rs("sum") & "</u></td></tr>"
    Response.Write "<tr><td height='10px'></td></tr><tr><td><b>Saldo:</b></td></tr></table>"
End If


Og det virker fint nok, men mangler stadig at få lagt 3 summe sammen i "saldo".
Smider du iøvrigt ikke et svar, så du kan få nogle point?

Hvis du vil bruge sum i sql'en, kan du bruge:

select sum(Indskud) as sum_ind, sum(Debit) as sum_debit, sum(Kredit) as sum_kredit from Regnskab"

Summen af alle tre til sammen:
s = CLng(rs("sum_ind")) + CLng(rs("sum_deb")) + CLng(rs("sum_kre"))
response.write "Saldo: " & s

/theSurfer

Hvis det ikke virker, må jeg sq lige lave en database, og selv teste det..

/theSurfer

select sum(Indskud) as sum_ind, sum(Debit) as sum_debit, sum(Kredit) as sum_kredit from Regnskab"

Skulle være:

select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab"

Men nu virker det, dog ville det være rart, hvis saldo havde 2 decimaler, kan det lad sig gøre??

Husk lige at smide et svar..

Har du husket at sætte AntalDecimaler til 2, i MS Access?
I "Feltstørrelse", prøv at eksperimentere med "Dobbelt reelt tal" og "Decimal".. men jeg tror at det bare er længden af det..
Helttal er normalt "ikke kommatal".

- Svar

/theSurfer

Jeg bruger Mysql og datatypen er "decimal(6,2)" og det står rigtigt nok i db'en, men udtrækket er kun med en decimal og i saldo er der ingen decimal...

"decimal(6,2)" siger mig ikke noget.. Jeg gætter på, at værdien er 6 tegn lang, og med 2 decimaler..

Men jeg kan ikke lige se, hvorfor det ikke virker..

/theSurfer

..normalt bruger man typen "double" til decimaltal..

/theSurfer

Hvis jeg bruger typen double, kan jeg ikke få den til at vise mere end 1 decimal.

Har ændret linjen.

s = CLng(rs("sum_ind")) + CLng(rs("sum_deb")) + CLng(rs("sum_kre"))

til:

s = FormatNumber(rs("sum_ind") + rs("sum_deb") - rs("sum_kre"),2)

Og nu får jeg det med 2 decimaler, men formatet er eks: 1,597.50 og det skulle jo være: 1.597,50

Nogler ideér?

Ja:

s = replace(s, ",", "k")
s = replace(s, ".", ",")
s = replace(s, "k", ".")

og så udskriver du s: response.write s

:-)

/theSurfer

perfekt, tak.

Det var så lidt :-)
Takker for points :-)

/theSurfer

Velbekomme, de er velfortjent.

Lukker og slukker...