Vraag & Antwoord

Programmeren

totaal maken van veld in recordset in vb

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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