Vb6 Ms Access: Filter Data Dengan Keyword

Pada postingan sebelumnya kita telah mengetahui bagaimana memperlihatkan data dari database access ke datagrid, sekarang kita akan menjajal menciptakan fitur filter dengan keyword.

UI dan data masih lanjut dari postingan sebelumnya.

Code pun masih memakai 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