Modul, Belajar Coding Cari (Search) dan Keluar Exit pada Microsoft Visual Basic 6.0

Setelah semua yang Anda ketahui tentang pembuatan Form Database serta penggabungan form dan database, kini tiba saatnya untuk membuat coding atau code editor. Untuk keperluan tersebut, Anda dapat menggunakan coding yang telah disediakan pada buku ini antara lain coding Search dan Exit sehingga anda lebih mudah memahami dan menjalankan program yang akan anda buat
.
Berikut ini coding – coding yang akan anda tuliskan
Memasukkan coding Search dan Exit

Coding Search / Cari

Fungsi dari coding Search / Cari adalah untuk mempermudah proses pencarian data yang kita inputkan kedalam form sehingga dengan coding berikut ini data yang kita masukan maka akan otomatis dicarikan oleh sistem yang tersimpan kedalam database yang kita buat akan muncul secara otomatis

Panduan Membuat Coding Search/Cari
Klik 2x pada Comman Button Cari dan Ketik coding berikut ini
On Error Resume Next
Dim kode As String
kode = InputBox("Ketik NIP :")
Data1.Recordset.Index = "idxdata"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
response = MsgBox("Data tidak ditemukan!", 0, "Pencarian Data ")
End If

Coding Exit/Keluar

Fungsi dari coding Exit / Keluar adalah untuk mempermudah proses keluar dari program yang sedang kita jalankan,sehingga dengan coding berikut ini form akan otomatis tertutup dan kembali ke menu utama