Vb6 Ms Access: Filter Data Dengan Keyword

Pada artikel sebelumnya kita telah mengetahui bagaimana memperlihatkan data dari database access ke datagrid , sekarang kita akan menjajal membuat fitur filter dengan keyword. UI dan data masih lanjut dari postingan sebelumnya . Code pun masih menggunakan code sebelumnya dengan menyertakan beberapa baris code yang ditandai dengan highlight kuning. Option Explicit Dim oConn As New ADODB.Connection   Dim rsData As New ADODB.Recordset   Dim strConn As String   Dim SQL As String Sub Open_Connection() Set oConn = New ADODB.Connection oConn.ConnectionString = strConn oConn.Open End Sub Sub Load_Data( Optional strFilter As String ) On Error GoTo errHandler Open_Connection Set rsData = New ADODB.Recordset SQL = "SELECT * FROM Category " & strFilter With rsData     .CursorLocation = adUseClient     .Open SQL, oConn, adOpenDynamic, adLockOptimistic     .ActiveConnection = Nothing End With Set grdData.DataSource = rsData oConn.Close Exit Sub errHandler: MsgBox Err.Number & ":" & Err.Description End Sub Private Sub Form_Load() strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _           "Data Source=" & App.Path & "\latihan.mdb;" & _           "Persist Security Info=False" Load_Data End Sub Private Sub cmdFilter_Click() Load_Data "WHERE CategoryCode LIKE '%" & txtFilter.Text & "%' " & _           "OR CategoryName LIKE '%" & txtFilter.Text & "%' " End Sub !!! Jangan lupa untuk menambahkan spasi pada SQL setelah Category. Runtime: Kemudian bagaimana dengan proses input, edit dan delete? Mari kita mulai pembahasan dengan proses inpu data baru . Click here if you like this article.
Sumber http://rani-irsan.blogspot.com