totaal maken van veld in recordset in vb

[anoniem]

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

[anoniem]

:o Da kannie... Kijk eens bij sql. SOM of SUM

[anoniem]

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

[anoniem]

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

[anoniem]

Neem eens een kijkje op: [url=http://www.planet-source-code.com/]Planet-source-code.com[url][/url]