Cara Menghitung Jumlah Record Di Database Dengan Visual Basic 6.0

Cara Menghitung Jumlah Record Di Database Dengan Visual Basic 6.0 | Posting kali ini saya akan menampilkan jumlah data/record dari suatu tabel di form visual basic 6.0.

Saya hanya akan membahas intinya saja dan tidak secara detail. Disini saya anggap sobat sudah bisa membuat koneksi database ke program, karena yang akan saya bahas hanyalah coding untuk menghitung dan menampilkan jumlah record dari suatu tabel saja.

Berikut ini coding yang bisa digunakan untuk menghitung jumlah data/record dari sebuah tabel dan menampilkannya di form program.

1. Letakkan coding berikut pada bagian general declaration atau di apling atas sekali :

Dim jmlh As Integer

2. Buat sebuah fungsi untuk menghitung jumlah record, masukkan coding berikut ditempat yang kosong :

Private Sub hitung() jmlh = jmlh + 1 Set rs = New ADODB.Recordset rs.Open "select * from nama_tabel", koneksi, adOpenDynamic, adLockOptimistic jmlh = rs.RecordCount Text1.Text = jmlh End Sub

NOTE : pada coding diatas, ganti tulisan "nama_tabel" dengan nama tabel/file yang sobat bikin dan ganti/sesuaikan "koneksi" dengan variabel koneksi yang sobat gunakan.

3. Sisipkan coding berikut pada Form Load agar pada saat form di running, fungsi "hitung" akan deksekusi oleh program :

hitung