PROGRAM PENCARIAN DATA PADA VISUAL BASIC 6.0

Pada kali ini saya akan menjelaskan tentang cara membuat pencarian data di visual basic 6.0.Selamat membaca !

Jika kita memiliki data yang terlalu banyak,maka kita pasti kesulitan untuk mencari data yang kita inginkan.Jadi kali ini saya akan membantu untuk membuat program pencarian sederhana untuk data yang banyak.

Langkah-langkahnya :

• Untuk pembuatan database bisa dilihat di postingan sebelumnya,klik di sini
• Buat database (saya memakai Microsoft Access) dengan field : idbarang,namabarang,dan hargabarang
• Tipe data masing-masing field diatur sesuai dengan fungsinya.Untuk awalnya saya tidak memakai auto number di idbarangnya.
• Kemudian simpan tabel dengan nama : tbdatabarang
• Buka visual basic 6.0 anda
• Tarik 3 label,4 textbox, dan 5 command button.
• Tarik 1 buah Adodc dan 1 datagrid
• Ubah masing-masing caption menjadi seperti gambar di bawah

                             

• Untuk name pada textbox ubah masing-masing menjadi idbarang,namabarang,hargabarang, dan cari
• Untuk name pada Command Button ubah masing-masing menjadi simpan,edit,hapus,keluar dan btncari
• Kemudian koneksikan Vb dengan Microsoft Access Database.Caranya ada di postingan saya sebelumnya.Jika belum mengerti,maka bisa ditanyakan di kolom komentar ^ ^

Setelah itu tuliskan script berikut !

Private Sub TampilkanKeTextBox()

   Adodc1.RecordSource = "select * from tbdatabarang where idbarang ='" & namabarang & "'"

   idbarang.Text = Adodc1.Recordset.Fields(0)

   namabarang.Text = Adodc1.Recordset.Fields(1)

   hargabarang.Text = Adodc1.Recordset.Fields(2)

   

End Sub

Penjelasan : untuk script di atas,kita membuat satu function sendiri dengan nama TampilkanKeTextBox untuk membuat agar,ketika salah satu data di datagrid diklik untuk diedit atau dihapus,maka data yang diklik itu muncul di textbox masing-masing.Function ini nantinya akan kita panggil di proses datagrid_click.

Private Sub simpan_Click()

If idbarang.Text = "" Or namabarang.Text = "" Or hargabarang.Text = "" Then

        MsgBox " Data Belum Lengkap ", vbInformation, "INFO"

    Else

    

        Adodc1.Recordset.AddNew

        Adodc1.Recordset!idbarang = idbarang.Text

        Adodc1.Recordset!namabarang = namabarang.Text

        Adodc1.Recordset!hargabarang = hargabarang.Text

        Adodc1.Recordset.Update

        

        MsgBox "Data Berhasil Disimpan", vbInformation, "INFO"

        Adodc1.Refresh

      

    End If

    

    idbarang.Text = ""

    namabarang.Text = ""

    hargabarang.Text = ""

    

End Sub

Penjelasan : script di atas maksudnya untuk menyimpan data dalam datagrid.Adapun tambahan seperti jika ada 1 saja data yang tidak kita isi,maka akan muncul pesan dialog berbunyi "Data Belum Lengkap".Dan setelah lengkap dan disimpan maka muncul kotak dialog "Data Berhasil Disimpan".Dan lihatlah ke datagrid ,apakah data sudah tersimpan.Dan setelah disimpan maka seluruh textbox akan dikosongkan secara otomatis.

Private Sub edit_Click()

      

      If idbarang.Text = "" Or namabarang.Text = "" Or hargabarang.Text = "" Then

        MsgBox " Data Harus Dipilih Terlebih Dahulu ", vbInformation, "INFO"

    Else

    

       With Adodc1.Recordset

            !idbarang = idbarang.Text

            !namabarang = namabarang.Text

            !hargabarang = hargabarang.Text

            .Update

       MsgBox " Data Sudh Diedit", vbInformation, "INFO"

       End With

    End If

End Sub

Penjelasan : script di atas berfungsi untuk mengedit data barang-barang.Jika kita ingin mengedit ,maka kita harus mengklik/memilih salah satu data di datagrid untuk diedit.Apabila sudah dipilih,maka secara otomatis masing-masing textbox akan terisi sesuai dengan data yang kita pilih.Setelah itu kita bisa mengedit data kita. 

Private Sub hapus_Click()

    Adodc1.Recordset.Delete

    MsgBox "DATA TELAH DIHAPUS", vbInformation, "INFO"

End Sub

Penjelasan : script di atas berfungsi untuk menghapus data di datagrid kita,tergantung data yang mana yang kita pilih.

Private Sub keluar_Click()

    End

End Sub

Penjelasan : untuk script di atas berfungsi untuk keluar dari program.

Private Sub btncari_Click()

    

    Dim item As String

    item = cari.Text

    If item = "" Then

        MsgBox "ID Barang harus diisi !", vbOKOnly, "INFO"

        Cancel = 1

    Else

        Adodc1.Recordset.Find "idbarang=" & item

            idbarang.Text = Adodc1.Recordset("idbarang")

            namabarang.Text = Adodc1.Recordset("namabarang")

            hargabarang.Text = Adodc1.Recordset("hargabarang")

    End If

End Sub

Penjelasan : untuk script di atas,berfungsi untuk mencari data yang kita tuliskan di textbox cari.Di sini saya menggunakan item sebagai textbox idbarang.Jadi jika kita menuliskan kode barang nomor 1 ,dan kita tekan tombol cari,maka kita dapat melihat data yang kita cari di textbox dan ,kursor panah di datagrid akan menunjukkan data yang kita pilih itu.

Private Sub DataGrid1_Click()

    TampilkanKeTextBox

    simpan.Enabled = False

End Sub

Penjelasan : kita memanggil function yang kita buat tadi (TampilkanKeTextBox).Dan kemudian jika kita mengklik salah satu data di datagrid ,maka tombol simpan akan menjadi disable(tidak bisa diklik).Maksudnya karena jika kita mengklik data di datagrid ,sudah pasti kita ingin mengedit atau menghapus data bukan ?

Hasil akhirnya akan menjadi seperti ini :

Voalla!Selamat kita berhasil membuat satu program pencarian data(tidak lupa termasuk juga,program simpan edit dan hapus data)  ^ ^.Sekian pembahasan mengenai program pencarian ini.Semoga ilmu yang dibagikan dapat bermanfaat bagi yang membutuhkan.Jika ada pertanyaan,silahkan isi di kolom komentar.Dan seperti biasa,Terima Kasih ! :)