Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

totaal maken van veld in recordset in vb

metre
4 antwoorden
  • Heb een recordset gemaakt in vb van een access-tabel. Maar nu zou ik van een bepaalde kolom het totaal willen maken van alle waardes in die kolom. Hoe doe ik dit
  • :o

    Da kannie…

    Kijk eens bij sql. SOM of SUM
  • Je kunt een sum opnemen in je SQL recordset maar je kunt VB ook het totaal laten berekenen. :P


    Dim Conn1 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SQL_string As String
    Dim i As Integer
    Dim totaal As Double

    ' maak SQL string aan
    SQL_string = "SELECT * From tabelnaam;"

    ' open de connectie
    Conn1.Open accessconnect

    ' voer query uit
    Set rs = Conn1.Execute(SQL_zoekstring)

    ' loop door de recordset
    While Not rs.EOF
    i = i + 1

    ' voer telling uit
    totaal = totaal + rs("attribuuttype")

    ' volgend record
    rs.MoveNext
    Wend

    ' recordset sluiten
    rs.Close
    Conn1.Close
  • Totaal van een kolom? Simpel:

    [code:1:48d569ca62]
    Dim dblTotaal As Double
    Dim i As Integer

    'Reset totaal var
    dblTotaal = 0

    For i = 1 To rs.RecordCount
    dblTotaal = dblTotaal + CDbl(rs("kolomnaam"))
    Next i

    'Preseteer totaal van kolom
    MsgBox dblTotaal
    [/code:1:48d569ca62]

    Met een SQL statement gaat het natuurlijk sneller

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.