Busca rápida no BD através de um DataGrid

[Macêdo]

Vamos dar continuidade ao tópico onde mostrei como visualizar num DataGrid os campos de uma tabela do BD:

http://scriptbrasil.com.br/forum/index.php?showtopic=115963

Vamos relembrar:

No General Declarations do Form vamos colcocar:

Dim cmd As New ADODB.Command 
Dim rs As New ADODB.Recordset 
Dim vinfo As Integer

Agora nossa sub para preencher o DataGrid com os campos da tabela CLIENTES:

Private Sub preenche_grid()

'o command retornando nossos campos e enchendo o Recordset
With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdText
    .CommandText = "select Cod, nome, nascimento from clientes"
    Set rs = .Execute
End With
'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos
With rs
    Set DataGrid1.DataSource = rs
    DataGrid1.Caption = "CLIENTES CADASTRADOS"
    DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
    DataGrid1.Columns.Item(0).Caption = "Cod"
    DataGrid1.Columns.Item(0).Width = 800
    DataGrid1.Columns.Item(1).Caption = "Nome"
    DataGrid1.Columns.Item(1).Width = 4200
    DataGrid1.Columns.Item(2).Caption = "Nascimento"
    DataGrid1.Columns.Item(2).NumberFormat = "dd/mm/yyyy"
    DataGrid1.Columns.Item(2).Width = 1100
    DataGrid1.Columns.Item(2).Alignment = dbgCenter
End With

End Sub

Para que nossa sub preencha o DataGrid vamos chama-la no form_Load:

Private Sub Form_Load()
preenche_grid
End Sub

Agora vamos ao filtro, para isto teremos nossa Text_nome, onde digitaremos o nome para fazer a busca, vamos colocar o seguinte codigo no evento Change da text:

Private Sub Text_nome_Change()

With rs
    If Text_nome <> "" Then
    .Filter = "nome like '" & Text_nome & "%'"
    .Sort = "nome"
    End If
End With

End Sub

Veja que ao ir digitando o nome na text o filtro vai acontecendo no DataGrid pela ordem dos caracteres digitados