Menghitung Total Dengan Visual Basic 6.0 Tanpa Menggunakan Query(SUM)

Menghitung Total Dengan Visual Basic 6.0 Tanpa Menggunakan Query(SUM) | Visual Basic Magazine - Pada posting kali ini saya akan membagikan cara bagaimana membuat hitung total harga secara otomatis ketika record bertambah di tabel.

Disini saya menggunakan Datagrid sebagai komponen untuk menampilkan list dari tabel.

Sebagai bahan latihan, buat dulu sebuah database dengan MS Access 2003 dan beri nama latihan.mdb. Sobat juga bisa menggunakan DBMS lainnya seperti MS Access 2007, tinggal disesuaikan saja nanti koding dari saya dengan database yang sobat gunakan. Untuk lebih jelasnya sobat bisa pelajari lagi melalui posting saya berikut ini :

• Cara Membuat Database Dengan Microsoft Office Access 2003
• Cara Membuat Database Dengan Microsoft Office Access 2007
• Script Visual Basic 6.0 Untuk Module Koneksi Database Access 2007

Selanjutnya buat sebuah tabel dengan nama barang, berikut ini field-field nya :

Jika sudah, coba sobat masukkan beberapa buah record ke dalam tabel tersebut, atau sobat bisa menambahkan proses Simpan/Save pada form di VB. Berikut ini contoh record yg di entrikan :

Buka sebuah project kemudian tambahkan satu buah Datagrid, satu buah TextBox ke form dan satu buah ADODC.

 Kemudian tambahkan sebuah Module untuk koneksi database dan masukkan script berikut ini :

Global conn As ADODB.Connection Global rsbrg As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\latihan.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

Setelah itu kita buat coding untuk menampilkan isi tabel kedalam Datagrid terlebih dahulu. Masukkan kode berikut pada bagian general coding form tersebut : 

Sub refreshDG() Set rsbrg = New ADODB.Recordset rsbrg.LockType = adLockOptimistic rsbrg.CursorType = adOpenDynamic rsbrg.Open "select * from barang", conn, , , adCmdText Set DataGrid1.DataSource = rsbrg End Sub

Jika sudah, selanjutnya kita buat fungsi untuk menghitung total harga dari list yang ada pada datagrid. Masukkan kode dibawah ini dan letakkan pada bagian general coding form :

Sub total() Set rsbrg = New ADODB.Recordset rsbrg.LockType = adLockOptimistic rsbrg.CursorType = adOpenDynamic rsbrg.Open "Select * from barang", conn, , , adCmdText totalnilai = 0 While Not rsbrg.EOF totalnilai = totalnilai + rsbrg!harga rsbrg.MoveNext Wend TxtTotal.Text = "Rp." & Format(totalnilai, "###,###,##0") End Sub

Terakhir, sobat tambahkan dulu pemanggilan koneksi dan sub totalnya di bagian Form_Load :

koneksi refreshDG total

Catatan :
Jika sobat menambahkan fungsi Simpan/Save pada Form, pastikan menyisipkan kode Call total pada koding Simpan yang ditempatkan setelah rs.Update seperti contoh berikut ini :

Private Sub Command1_Click() '<-- Tombol Simpan Set rsbrg = New ADODB.Recordset rsbrg.LockType = adLockOptimistic rsbrg.CursorType = adOpenDynamic rsbrg.Open "SELECT * FROM barang", conn, , , adCmdText rsbrg.AddNew rsbrg.Fields(0) = Text1.Text rsbrg.Fields(1) = Text2.Text rsbrg.Fields(2) = Text4.Text rsbrg.Update Call refreshDG '<-- Refresh Datagrid setelah data bertambah di tabel Call total '<-- Panggil fungsi Total setelah data bertambah di tabel Text1.Text = "" Text2.Text = "" Text4.Text = "" End Sub

Silakan download contoh programnya melalui link berikut ini :

Contoh program ini bisa sobat terapkan pada project penjualan. Sekian dulu pembahasan dari saya yang berjudul Menghitung Total Dengan Visual Basic 6.0 Tanpa Menggunakan Query(SUM). Selamat mencoba dan semoga bermanfaat.