Visual Basic : Membuat Form Searching Data

Hal yang sangat penting lainnya selain tambah, edit dan hapus data adalah cari data. begitu data sudah banyak maka sangat menyulitkan apabila kita mencari manual menggunakan datagrid. Maka membuat cari data adalah hal yang sangat urgent.Pencarian data bisa menggunakan NPM ataupun Nama. Pada contoh ini akan dibuat berdasarkan NPM kalau nanti mau menggunakan berdasarkan nama prosesnya hampir sama. Pada contoh ini saya tidak akan menggunakan form atau textbox baru tapi menggunakan textbox yang sudah ada.

Langkah-langkahnya adalah sebagai berikut :

1. Klik 2 kali pada textbox npm

2. Ubah procedurenya menjadi Keypress, normalnya adalah change

3. Tambahkan script yang ditulis miring dibawah ini :

Private Sub txtkodeanggota_KeyPress(KeyAscii As Integer)   If KeyAscii = 13 Then
   Adodc1.Recordset.MoveFirst
   Do While Not Adodc1.Recordset.EOF
        If Adodc1.Recordset!npm = txtnpm.Text Then
           MsgBox "Data ditemukan"
           txtnama = Adodc1.Recordset!nama
           txtnilai = Adodc1.Recordset!nilai
           Exit Do
         Else
          Adodc1.Recordset.MoveNext
         End If
Loop
End If
End Sub

Kalau sudah selesai dsilahkan dicoba, ketikkan salah satu npm, kalau ketemu maka data nama dan nilainya akan muncul. kalau ada script yang tidak dimengerti silahkan tulis saja di form komentar dibawah ini.