Diminuir numero de linhas datagridview

[Whiteangel]

Boas pessoal,

Como posso ao pesquisar um nome na textbox, e ir diminuindo o numero de linhas "resultados" na datagridview??

[bioshock]

Se tiveres um dataset e se a memória não me falha, deve ser dentro disto:

Dataset1.Tables(0).DefaultView.RowFilter = " nome LIKE '" & textbox1.Text & "'";

[gastao]

mete assim que está a funcionar

Private Sub TextBox1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
	If consql.State = ConnectionState.Open Then consql.Close()
	Dim ds As New DataSet
	Dim dt As New DataTable
	Dim clientes As New SqlDataAdapter("Select * from tabelaA where nome like'%" + TextBox1.Text + "%' ", consql)
	clientes.Fill(ds, "tb_clientes")
	dt = ds.Tables(0)
	DataGridView1.DataSource = ds.Tables("tb_clientes")

End Sub

Edited March 3, 2014 at 07:18 PM by gastao

[Whiteangel]

mete assim que está a funcionar

Private Sub TextBox1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
	If consql.State = ConnectionState.Open Then consql.Close()
	Dim ds As New DataSet
	Dim dt As New DataTable
	Dim clientes As New SqlDataAdapter("Select * from tabelaA where nome like'%" + TextBox1.Text + "%' ", consql)
	clientes.Fill(ds, "tb_clientes")
	dt = ds.Tables(0)
	DataGridView1.DataSource = ds.Tables("tb_clientes")

End Sub

Como declaro o "consql"

[gastao]

o consql é a tua conexao a base de dados.

   dim consql As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Server=instanciasql;Database=nomedabasedados;User ID=usersql;Password=passwordsql;Trusted_Connection=False")

[Whiteangel]

o consql é a tua conexao a base de dados.

dim consql As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Server=instanciasql;Database=nomedabasedados;User ID=usersql;Password=passwordsql;Trusted_Connection=False")

Mas está me a duplicar o nome dos campos da tabela na datagridview

Dim contr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

       ' Cria uma nova ligação à base de dados 
       Dim db As New SqlConnection(contr)

       If db.State = ConnectionState.Open Then db.Close()
       Dim ds As New DataSet
       Dim dt As New DataTable
       Dim clientes As New SqlDataAdapter("Select * from Categoria where Nome like'%" + Txtnome.Text + "%' ", db)
       clientes.Fill(ds, "Categoria")
       dt = ds.Tables(0)
       DataGridView1.DataSource = ds.Tables("Categoria")