Cara Membuat Program Pencarian Data Dengan Visual Basic 6.0

Cara Membuat Program Pencarian Data Dengan Visual Basic 6.0 | Visual Basic Magazine  - Apa kabar sobat...?, udah lumayan lama juga saya gak posting tutorial Visual Basic 6.0. Pada tutorial kali ini kita akan coba bikin program pencarian data. Disini kita akan melanjutkan project yang pernah saya bahas sebelumnya pada posting yang berjudul Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0. 

Disini kita cukup menambahkan sebuah form pada project tersebut. Buat sobat yang belum punya project-nya, sobat bisa download Disini. Jika sudah, buka project tersebut dan tambahkan satu buah form baru, kemudian buat disain seperti gambar dibawah ini :

Disini kita akan membuat program pencarian data siswa berdasarkan 2 kriteria pencarian yaitu NIS dan Nama Siswa.

Partama, kita akan membuat script program untuk memanggil data siswa yang berada di tabel (database)  untuk ditampilkan di Datagrid1 dengan cara masukkan script berikut ini pada bagian coding form tersebut.

Sub panggiltabel() Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "SELECT * FROM tbbelajar order by nis asc", conn, , , adCmdText Set DataGrid1.DataSource = rssiswa End Sub

Selanjutnya, buka kembali disain form kemudian double klik form tersebut dan masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub.

koneksi panggiltabel Combo1.AddItem "NIS" Combo1.AddItem "Nama Siswa"

Langkah selanjutnya kita akan membuat tombol Cari. Caranya double klik pada tombol Cari dan masukkan script berikut ini tepat diantara Private Sub Command1_Click() dengan End Sub.

On Error GoTo pesan: Dim kriteria As String kriteria = "" Select Case Combo1.Text Case "NIS": kriteria = "nis" Case "Nama Siswa": kriteria = "nama" End Select Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "SELECT * FROM tbbelajar WHERE " & kriteria & " like '" & Text1.Text & "%'", conn, , , adCmdText If Not rssiswa.EOF Then Set DataGrid1.DataSource = rssiswa Else MsgBox "Data Dengan " & Combo1.Text & " " & Text1.Text & " Tidak Ditemukan...!", vbInformation, App.Title End If pesan: If (Err.Number = -2147217900) Then MsgBox "Kriteria Pencarian Belum Dipilih", vbInformation, App.Title Text1.Text = "" Exit Sub End If

Terakhir, kita akan membuat tombol Refresh yang fungsinya untuk mengembalikan kondisi form ke kondisi normal. Caranya double klik pada tombol Refresh dan masukkan script berikut ini tepat diantara Private Sub Command2_Click() dengan End Sub.

Combo1.Text = "" Text1.Text = "" Call panggiltabel

Gimana, mudah bukan...?

Untuk lebih jelasnya sobat bisa download program pencarian data ini disini :

Sekian dulu tutorial saya yang berjudul Cara Membuat Program Pencarian Data Dengan Visual Basic 6.0.  Selamat mencoba dan semoga bermanfaat aja.