[Resolvido] Filtro

[johnhey 0]

Boa tarde pessoa, cá estou outra vez para vos lhe pedir uma ajuda.

 

tenho um formulário de pesquisa com um datagrid a funcionar perfeitamente.

No mesmo formulário tenho um textbox.

gostaria que ao digitar um nome no textbox fosse filtrando no meu datagrid.

 

Tenho o seguinte código:

 

Private Sub txtpesquisa_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtpesquisa.TextChanged
       ' Texto de ligação à base de dados
       Dim linha As String = Application.StartupPath & "\SIAF.mdf"
       Dim myConnectionString As String = _
      "Data source=.\SQLEXPRESS;AttachDbFilename=" & linha & ";Integrated Security=True;User Instance=True"

       Dim Con As SqlConnection = New SqlConnection(myConnectionString)
       'Abre a conexão
       Con.Open()

       Dim reader As New DataSet

       'Seleciona a pesquisa
       Dim cmd As New SqlCommand("SELECT * FROM" & tabela & "WHERE Pais  LIKE '" & txtpesquisa.Text & "%' ", Con)


       DGPesquisa.DataSource = reader
       'Fecha as conexões
       Con.Close()
       cmd.Dispose()
   End Sub

 

O problema é que não acontece nada, nem da erro

[johnhey 0]

Consegui resolver da seguinte forma:

 

Private Sub txtpesquisa_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtpesquisa.TextChanged
       ' Texto de ligação à base de dados
       Dim linha As String = Application.StartupPath & "\SIAF.mdf"
       Dim myConnectionString As String = _
      "Data source=.\SQLEXPRESS;AttachDbFilename=" & linha & ";Integrated Security=True;User Instance=True"
       Dim connection As New SqlConnection(myConnectionString)
       'Faz a pesquisa
       Dim query As String = "SELECT * FROM " & tabela & " WHERE Pais  LIKE '" & txtpesquisa.Text & "%' "
       'Executa a pesquisa
       Dim command As New SqlCommand(query, connection)

       Dim DataAdapter As New SqlDataAdapter(command)
       Dim MyData As New DataSet
       DataAdapter.Fill(MyData, tabela)

       Me.DGPesquisa.DataSource = MyData.Tables(tabela) 
   End Sub