Pencarian Data Pada MsFlexGrid Di VB Bag 2

Pada postingan sebelumnya saya pernah membahas pencarian pada MsFlexGrid dengan menggunakan option button sebagai opsi pencariannya.

Pada postinga ini saya tidak akan memakai option button untuk opsi pencariannya tapi nanti hasilnya sama dengan memakai option. Kita akan rubah koding pencariaannya sehingga menghasilkan pencarian yang sama seperti pada tutorial pertama dengan hanya memasukan kata kunci pada text box pencariaannya tanpa perlu susah-susah memilih dulu opsi pencariaannya.

Silahkan buat form seperti pada tampilan berikut ini saya menggunakan database yang sama seperti pada bag 1
 

Tampilkan Gambar

Kodingnya sama seperti pada tutorial bag 1 hanya yang membedakan pada bagian Text1_Change. Berikut kodingnya

Private Sub Text1_Change()
MSFlexGrid.Clear
Call AktifGrid

MSFlexGrid.Rows = 2
Baris = 0
'memmanggil koneksi database
Call KonekDB
Set RsMhs = New ADODB.Recordset
'Pencarian berdasarkan nim,nama,alamat dan jurusan
RsMhs.Open "SELECT * FROM Tbl_Mhs " _
         & "WHERE nim LIKE '%" & Text1.Text & "%' " _
         & "OR nama LIKE '%" & Text1.Text & "%' " _
         & "OR alamat LIKE '%" & Text1.Text & "%' " _
         & "OR jurusan LIKE '%" & Text1.Text & "%'", _
Conn, adOpenDynamic, adLockOptimistic
'---------------------
If RsMhs.BOF Then
    Exit Sub
Else
    With RsMhs
        .MoveFirst
        Do While Not .EOF
            Baris = Baris + 1           'no urut
            MSFlexGrid.Rows = Baris + 1
            MSFlexGrid.TextMatrix(Baris, 0) = Baris
            MSFlexGrid.TextMatrix(Baris, 1) = !nim
            MSFlexGrid.TextMatrix(Baris, 2) = !nama
            MSFlexGrid.TextMatrix(Baris, 3) = !alamat
            MSFlexGrid.TextMatrix(Baris, 4) = !jurusan
            .MoveNext
        Loop
    End With
End If
RsMhs.Close
End Sub

Untuk koding menampilkan data dan lainnya silahkan download source codenya, karena pada postingan ini tidak asaya jelaskan karena sudah saya jelaskan pada bagian 1 yang membedakan hanya pada bagian pencariannya saya yaitu Text1_Change.

Jika berhasil maka akan tampak seperti gambar animasi berikut ini

Kalau anda menginginkan source codenya silahkan download source codenya di link berikut ini.

DOWNLOAD

Tags:

 Pencarian Data Pada MsFlexGrid,Pencarian Data, Trik Pencarian Data, Filter data pada vb,Penyaringan Data pada VB,Pencarian Data Pada MsFlexGrid Di VB,Pencarian Data Pada Grid,Pencarian Data Di Grid