PESQUISAR DATAGRIDVIEW [Ô]VB 2008[Ô]
Bom dia pessoal.
Nem preciso falar que sou novo na programação. Pois é, gostaria de saber como faço para criar uma pesquisa.
Tipo: Tenho formulário pronto funcionando com os campos NOME_PRODUTO, VALOR_UNT_ e QTD_STQ. Está tudo ok o insert, delete e update funfando.
Coloquei um textbox abaixo para fazer a pesquisa dentro do DataGridView e gostaria que ao digitar o nome do produto fosse preenchendo os textbox acima e filtrando o DataGridView ao mesmo tempo com os respectivos dados.
Tipo digitei M aparece todos com que começam com a letra m e assim por diante.
Agradeço imensamente a ajuda.
Que Deus os abençoe.
Nem preciso falar que sou novo na programação. Pois é, gostaria de saber como faço para criar uma pesquisa.
Tipo: Tenho formulário pronto funcionando com os campos NOME_PRODUTO, VALOR_UNT_ e QTD_STQ. Está tudo ok o insert, delete e update funfando.
Coloquei um textbox abaixo para fazer a pesquisa dentro do DataGridView e gostaria que ao digitar o nome do produto fosse preenchendo os textbox acima e filtrando o DataGridView ao mesmo tempo com os respectivos dados.
Tipo digitei M aparece todos com que começam com a letra m e assim por diante.
Agradeço imensamente a ajuda.
Que Deus os abençoe.
Bom, você foi vago em alguns aspectos, como, por exemplo, indicar qual é a origem dos dados, mas basicamente, o código abaixo te dá uma idéia de como fazer isso [Ô]manualmente[Ô].
Public Class Form1
Inherits Form
[ô][ô] Origem dos dados
Private tb As DataTable = Nothing
[ô][ô] Ao carregar o formulário, carregar os dados
Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
CarregaDados()
End Sub
[ô][ô] Ao alterar o conteúdo do TextBox, filtrar.
Private Sub Text1_TextChanged(sender As Object, e As EventArgs) Handles Text1.TextChanged
FiltraDados(Me.Text1.Text)
End Sub
[ô][ô] Carga dos dados á partir da base.
Private Sub FiltraDados(Optional txt As String = [Ô][Ô])
Me.DataGridView1.DataSource = Nothing
If (txt.Trim.Lenght > 0) Then
Me.DataGridView1.DataSource = tb
Else
Me.DataGridView1.DataSource = (From dr As DataRow In tb.Rows Where CType(dr([Ô]NOME_PRODUTO[Ô]), String).StartsWith(txt) Select dr).ToList
End If
End If
[ô][ô] Filtragem dos dados.
Private Sub CarregaDados
Using da As New SqlDataAdapter([Ô]SELECT NOME_PRODUTO, VALOR_UNT_, QTD_STQ FROM [tabela][Ô],[Ô]sua string de conexão[Ô])
da.Fill(tb)
End Using
FiltraDados(Me.Text1.Text)
End Sub
End Class
dá um duplo click no textbox e coloque o codigo abaixo
Dim strSql as String
strSql = ([Ô]SELECT * FROM cliente WHERE nome Like [ô]%[Ô] & textbox1.text & [Ô]%[ô][Ô])
Dim DA As SqlDataAdapter = New SqlDataAdapter(strSql, cnnSql)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
Datagridview1.DataSource = DT.DefaultView
Dim strSql as String
strSql = ([Ô]SELECT * FROM cliente WHERE nome Like [ô]%[Ô] & textbox1.text & [Ô]%[ô][Ô])
Dim DA As SqlDataAdapter = New SqlDataAdapter(strSql, cnnSql)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
Datagridview1.DataSource = DT.DefaultView
Muito obrigado mesmo me ajudaram muito espero um dia poder retribuir.
Que Deus os abençoe.
Felipe Assis Grato.
Que Deus os abençoe.
Felipe Assis Grato.
Tópico encerrado , respostas não são mais permitidas