Pegue um TextBox e na propriedade "Name" renomeie para txtPesquisar depois dê dois cliques no TextBox e cole o código abaixo mudando as partes em vermelho NomeTabela pelo nome de sua tabela no banco de dados e o nome você deixa como está caso este campo exista na sua tabela, pois a pesquisa será por este campo, caso o campo seja diferente ex: produto você coloca produto no lugar de nome e ele irá pesquisar pelo produto cadastrado e assim por diante.
If txtPesquisar.Text = "" Then
MsgBox("Digite um nome!")
txtPesquisar.Focus()
Else
Me.NomeTabelaBindingSource.Filter = "nome LIKE '%" & txtPesquisar.Text & "%'"
End If
Nenhum comentário:
Postar um comentário