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

Menghitung Total Dengan Visual Basic 6.0 Tanpa Menggunakan Query(SUM) | Gho Blog's - 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. Untuk lebih jelasnya, bagaimana cara memunculkan data di Datagrid, silakan sobat lihat kembali posting sebelumnya yang berjudul Cara Menampilkan Isi Data Tabel Di Datagrid Dengan Visual Basic 6.0. Karena pada psoting ini kita hanya fokus pada koding penghitungan nya saja.

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 Mudah Mendapatkan Dollar Dari Inetrnet...!!!
• 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 penghitungan total dari field harga yang muncul di Datagrid. Untuk itu silakan sobat lihat lagi posting sebelumnya yang berjudul Cara Menampilkan Isi Data Tabel Di Datagrid Dengan Visual Basic 6.0. Berikut ini coding penjumlahan total harga tersebut, letakan script berikut di bagian general coding form sobat :

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 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 pada link berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

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.