Menjumlahkan Data Secara Otomatis Menggunakan Listview VB6

Menjumlahkan Data Secara Otomatis Menggunakan Listview VB6 - Kali ini Saya akan  membahas tentang cara menjumlahkan angka yang ada pada listview. Langsung Kita mulai saja. Berikut langkah-langkahnya.

1. Buat database dari Microsoft access dan simpan dengan nama database.mdb. Buat table dan beri nama dengan Barang dengan field seperti gambar dibawah ini:

Isi data seperti dibawah ini atau bisa dengan data anda inginkan

2. Kita buat form dengan component Microsoft Adodata Control 6 dan Microsoft Windows Common Control SP6 yaitu dengan menekan tombo CTRL  + T atau ke menu Projek à Components

Type	Name	Caption
ListView	ListBarang	-
Label	Label1	Total
Textbox	TxtTotal	-
Command	CmdRemove CmdTotal	Remove Total

3. Kita isi dengan coding berikut 

Public Db As New ADODB.Connection
Public Rs As New ADODB.Recordset

Private Sub Koneksi()If Db.State = 1 Then Db.Close
Db.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\database.mdb;persist security info=false"
Db.CursorLocation = adUseClient
End Sub 

Private Sub AturLv()
With ListBarang
.View = lvwReport
.GridLines = True.FullRowSelect = True
With .ColumnHeaders
        .Add , , "Kode Barang", 1500        .Add , , "Nama", 3500
        .Add , , "Harga", 1750    End With
End With
End Sub  

Private Sub TplData()If Rs.State = adStateOpen Then Rs.Close
Rs.Open "select * from Barang order by kodebarang", Db, adOpenKeyset
Dim Listvw As ListItem
Do Until Rs.EOF
Set Listvw = ListBarang.ListItems.Add(, , Rs!kodebarang)
With Listvw
.SubItems(1) = Rs!Nama
.SubItems(2) = Rs!harga
End With
Rs.MoveNext
Loop
End Sub 

Private Sub Total()
Dim LvJumlah As Double \
Dim i As Integer
LvJumlah = 0 For i = 1 To ListBarang.ListItems.Count
Set Listvw = ListBarang.ListItems.Item(i)
LvJumlah = LvJumlah + Val(Listvw.SubItems(2)) 'listV.subitems(2)--> ke 2 artinya pada index ke 2 Next
txtTotal.Text = LvJumlah
End Sub 

Private Sub cmdRemove_Click()
If ListBarang.ListItems.Count <> 0 Then
ListBarang.ListItems.Remove (ListBarang.SelectedItem.Index)
End If
End Sub

Private Sub cmdTotal_Click()
Total
End Sub 

Private Sub Form_Load()
Koneksi
AturLv
TplData
End Sub

4. Jalankan atau dengan menekan tombol F5 Maka akan tampil seperti dibawah ini

5.  Setelah itu tekan tombol Total maka Seluruh harga akan dijumlahkan dan ditampilkan pada TxtTotal
Seperti gambar dibawah ini:

6. Kita Remove Komputer maka akan berkurang sejumlah harga computer yaitu 1juta

Demikian artikel Menjumlahkan Data Secara Otomatis Menggunakan Listview VB6. Terima kasih atas kunjungannya.. Semoga bermanfaat...