Cara Hitung Total Jumlah Pada Subitems Listview Vb6

12 views
Pada kesempatan kali ini admin akan menyebarkan wacana 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 perhiasan berupa LIstview Control, Label dan CommanButton. Langkah pertama ialah buat function koneksi database berikut variabel-variabel pendukungnya ibarat 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 ibarat 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 memakai 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 mekanisme klik CommandButton ibarat 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. ibarat gambar diawal artikel ini. Untuk sourcodenya sanggup didownload di LINK INI. Semoga artikel postingan ini sanggup bermanfaat bagi pembaca sekalian.
Author: 
    author
    No related post!