Cara Hitung Total Jumlah Pada Subitems Listview VB6

Pada kesempatan kali ini admin akan berbagi tentang cara menghitung (sum) data pada subitems dilistview control dengan judul artikel Cara Hitung Total Jumlah Pada Subitems Listview VB6.

Pada kesempatan kali ini database yang admin gunakan Ms. Access dan komponen tambahan berupa LIstview Control, Label dan CommanButton. Langkah pertama yaitu buat function koneksi database berikut variabel-variabel pendukungnya seperti dibawah ini

Public CN As New ADODB.Connection
Public RsADM As New ADODB.Recordset
Sub Koneksi()
If CN.State Then
CN.Close
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\JumlahSubitems.mdb;Persist Security Info=False"
CN.CursorLocation = adUseClient
Else
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\JumlahSubitems.mdb;Persist Security Info=False"
CN.CursorLocation = adUseClient
End If
End Sub

Pada Form_Load panggil Function Sub koneksi database dan tambahkan juga syntak untuk pembuatan Column Header pada Listview seperti dibawah ini

Call Koneksi
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Nama Anggota", 2200
ListView1.ColumnHeaders.Add , , "ADM Rp.", 2500
Call Books_TampilkanData
Label1.Caption = "0.00" 

Kemudian buat juga Sub Function untuk menampilkan data record ke Listview dan menghitung (sum) data pada subitems listview menggunakan syntak dibawah ini

Sub Books_TampilkanData()
Dim LI As ListItem
Dim sqlCommand As String
ListView1.ListItems.Clear

Set RsADM = New ADODB.Recordset
sqlCommand = "SELECT * FROM ANGGOTA"
RsADM.Open sqlCommand, CN, 1, 3
If RsADM.RecordCount = 0 Then
   ListView1.ListItems.Clear
Else
   RsADM.MoveFirst
   While Not RsADM.EOF
   Set LI = ListView1.ListItems.Add(, , RsADM.Fields!NAMA)
       LI.SubItems(1) = RsADM.Fields!ADM
       RsADM.MoveNext
   Wend
End If
End Sub

Sub TOTALHARGA()
If ListView1.ListItems.Count > 0 Then
   Dim Total As Double
   For i = 1 To ListView1.ListItems.Count
   Total = Total + Int(ListView1.ListItems(i).ListSubItems(1).Text)
   Next i
   Label1.Caption = Format(Total, "#,##0")
Else
   Label1.Caption = "0.00"
End If
End Sub

Panggil sub function hitung (sum) data pada listview pada prosedur klik CommandButton seperti dibawah ini

Private Sub Command1_Click()
Call TOTALHARGA
End Sub 

Kemudian simpan dan RUN/F5 klik tombol CommanButton maka akan menjumlahkan total data pada column header ADM Rp. seperti gambar diawal artikel ini. Untuk sourcodenya bisa didownload di LINK INI. Semoga artikel postingan ini dapat bermanfaat bagi pembaca sekalian.