Mencari Data Menggunakan TextBox

Kali ini penulis akan share tentang bagaimana caranya kita mencari data dalam table menggunakan Sebuah TextBox dalam Form. Mungkin anda pernah mengalami dalam suatu aplikasi anda ingin mencari satu data tetapi anda lupa namanya, yang anda ingat hanya sebagian katanya saja, lalu anda mengetikkan kata yang anda ingat kedalam sebuah TextBox, lalu menekan tombol pencarian, dan aplikasi tersebut menampilkan seluruh data yang mengandung kata yang anda ketikkan sebelumnya. Misalnya anda ingin mencari data karyawan dengan nama (yang anda ingat hanya) Nugie, lalu anda ketikkan kata Nugie kedalam TextBox tersebut, dan aplikasi akan menampilkan semua nama karyawan yang ada kata Nugie-nya misalnya hasil yang didapatkan adalah :
Abadi Nugie, Anugielah, Denugie, Nugierah, Nugie Abadi dan lain sebagainya.

Agar anda bisa memberikan fitur tersebut dalam aplikasi yang sedang anda buat, silahkan anda ikuti artikel berikut ini.
Untuk mencari data menggunakan TextBox, kita bisa menggunakan karakter WildCard (*) dalam bahasa SQL menggunakan event procedure. Namun perlu diperhatikan (diartikel ini) adalah hasil outputnya akan ditampilkan dalam bentuk subform atau listbox/combobox.

Jika outputnya menggunakan subform, berikut adalah contohnya :

Private Sub cmdSearch_Click()
On Error Resume Next
Dim strPencarian As String
strPencarian = "SELECT * FROM Input_Data WHERE Input_Data.NamaPelanggan LIKE '*" & Me.txtPencarian & "*' ORDER BY Input_Data.NamaPelanggan;"
Me.Nama SubForm.Form.RecordSource = strPencarian
Me.Nama SubForm.Requery
End Sub

Jika outputnya menggunakan ListBox/ComboBox, kita harus mengetahui RowSource dari ListBox/ComboBox yang telah kita buat. berikut adalah contohnya :

Misalnya RowSource ListBox/ComboBox adalah :

SELECT Input_Data.NamaPelanggan, Input_Data.TanggalDaftar, Input_Data.HariDaftar, Input_Data.JumlahBarang, Input_Data.Keterangan FROM Input_Data ORDER BY [NamaPelanggan];

Maka codenya adalah :

Private Sub cmdSearch_Click()
On Error Resume Next
Dim strPencarian As String
strPencarian = "SELECT Input_Data.NamaPelanggan, Input_Data.TanggalDaftar, Input_Data.HariDaftar, Input_Data.JumlahBarang, Input_Data.Keterangan FROM Input_Data WHERE Input_Data.NamaPelanggan LIKE '*" & Me.txtPencarian & "*' ORDER BY Input_Data.NamaPelanggan;"
Me.Nama ListBox/ComboBox.RowSource = strPencarian
Me.Nama ListBox/ComboBox.Requery
End Sub

Code diatas menggunakan karakter wildcard (*), dimana penjelasan mengenai karakter wildcard ini adalah sebagai berikut (dalam contoh), misalnya kriteria diatas menjadi *AB*, maka hasil yang akan ditampilkan adalah semua kata yang mengandung kata AB seperti Aku Abdi, Bab Satu, Babeh Dia tetapi tidak akan menampilkan kata jika kata AB berada pada awal kata.

Semoga Bermanfaat...

Posted in: belajar access 2003