Menjumlahkan Nilai dalam Satu Field

      Kali ini saya akan share sebuah program sederhana yang mungkin anda sendiri sudah pernah menjumpainya ataupun baru kali ini mempelajarinya. Ok kali ini saya membuat aplikasi sederhana ini terinspirasi dari sebuah pertanyaan di group  facebook yang entah ini menyelesaikan masalahnya ataupun tidak sesuai harapannya. 

         Pernahkah anda saat membuat aplikasi dengan database mengalami kesulitan dalam menjumlahkan nilai yang terdapat dalam satu field database. Pada dasarnya penjumlahan nilai dalam satu field yaitu menambahkan nilai dari field paling atas atau BOF sampai field paling bawah/terakhir atau EOF. Untuk menerapkan konsep tersebut kita menggunakan perulangan do until...... Loop. Ok langsung kita praktekkan:

• Buat database dengan nama dbLatihan
• Tambahkan tabel dengan nama Table1
• Setelah itu tambahkan 2 field, field NO dan field NILAI
• Buka program Microsoft Visual Basic 6.0
• Tambahkan komponen DataGrid,Adodc,label
• kemudian ketikkan script di bawah ini pada jendela kode

Dim jumlah As Long

Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbLatihan.mdb"
    Adodc1.RecordSource = "Table1"
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh
    Adodc1.Recordset.MoveFirst
    Do Until Adodc1.Recordset.EOF
        jumlah = jumlah + Adodc1.Recordset.Fields(1)
        Adodc1.Recordset.MoveNext
    Loop
    Label1.Caption = "Jumlah seluruh Nilai = " & jumlah
   
End Sub

• Kemudian simpan program ini dalam satu folder dengan database yang tadi telah kita buat.
• Program telah selesai, tinggal di jalankan.

Keterangan : untuk menjumlahkan nilai dalam satu field, kuncinya pada script yang saya beri warna merah.

Download Source code Disini
Password file .rar : www.logikakode.com