COMO BUSCAR ITENS EM DATAGRIDVIEW?

HAWER99 08/12/2013 00:41:49
#431902
Olá, tudo bem com vocês? Então, preciso buscar itens de DataGridView por um TextBox, quando encontrar, selecionar ou listar o item. Podem me ajudar? Agradeço!
OMAR2011 08/12/2013 09:02:51
#431904
Procure aqui no site ou Google.
Já pesquisou?
HAWER99 08/12/2013 10:02:11
#431905
Citação:

:
Procure aqui no site ou Google.
Já pesquisou?

Já procurei, porém só achei com VB2005, eu uso VB8 ou VB2010
HAWER99 08/12/2013 10:53:16
#431908
Citação:

:
Se o que você precisa é passar os dados de uma célula selecionada para textbox o código pode ser esse:

Private Sub DataGridView1_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Try
txtida.Text = DataGridView1.CurrentRow.Cells(0).Value [ô] repasse de dados
txtdescricao.Text = DataGridView1.CurrentRow.Cells(1).Value
txtlink.Text = DataGridView1.CurrentRow.Cells(2).Value
txtdefinepic.Text = DataGridView1.CurrentRow.Cells(3).Value

end sub


Sevocê quer digitar algo no textbox e ir filtrando o datagrid você pode fazer isso:


Private Sub txtdescricao_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtdescricao.TextChanged

Dim Busca
Busca= txtdescricao.Text

Dim da As OleDbDataAdapter = New OleDbDataAdapter([Ô]select * from tblatalhos where descricao like [ô]%[Ô] & Busca & [Ô]%[ô][Ô], myConnection)


Dim ds As DataSet = New DataSet

da.Fill(ds, [Ô]table[Ô])
[ô] atribuir o dataste ao datagridview
DataGridView1.DataSource = ds.Tables(0)

End Sub



Deu erro na seguinte parte:



Obrigado.
HAWER99 08/12/2013 14:20:36
#431912
Citação:

:
Se você não usar uma classe de conexão
Faça assim

Dim connString As String = [Ô]String de conexão[ô][Ô]
Dim myConnection As OleDbConnection = New OleDbConnection (Neste caso a conexão é com acess)

myConnection.ConnectionString = connString
myConnection.Open()



Olá! Deu o seguinte erro: [Ô]O formato da cadeia de inicialização não está de acordo com a especificação iniciada no índice 0.[Ô] em [Ô]myConnection.ConnectionString = connString[Ô]. Veja se está certo:

Citação:

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbType

Public Class Form1
Dim connString As String = [Ô]String de conexão[ô][Ô]
Dim myConnection As OleDbConnection = New OleDbConnection
Private dv As DataView
Private cm As CurrencyManager
[ô]Dim ConnString As String = My.Settings.connString

Private Sub txtBuscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscar.TextChanged

Dim connString As String = [Ô]String de conexão[ô][Ô]
Dim myConnection As OleDbConnection = New OleDbConnection [ô](Neste caso a conexão é com acess)

myConnection.ConnectionString = connString
myConnection.Open()

Dim Busca
Busca = txtBuscar.Text

Dim da As OleDbDataAdapter = New OleDbDataAdapter([Ô]select * from tblatalhos where descricao like [ô]%[Ô] & Busca & [Ô]%[ô][Ô], myConnection)


Dim ds As DataSet = New DataSet

da.Fill(ds, [Ô]table[Ô])
[ô] atribuir o dataste ao datagridview
dgvConsultarclientes.DataSource = ds.Tables(0)

End Sub

Private Sub Tabela1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabela1BindingNavigatorSaveItem.Click
Me.Validate()
Me.Tabela1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Clientes1DataSet)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]Clientes1DataSet.Tabela1[ô] table. You can move, or remove it, as needed.
Me.Tabela1TableAdapter.Fill(Me.Clientes1DataSet.Tabela1)

End Sub
End Class



Obrigado!
GUIMORAES 09/12/2013 10:18:25
#431918
Como você está carregando os registros no datagrid?
Posta seu código aqui.
HAWER99 09/12/2013 10:34:34
#431919
Citação:

:
Como você está carregando os registros no datagrid?
Posta seu código aqui.



Não usei código, arrastei os itens do Database para o Form.
EDENILSONBILA 09/12/2013 15:17:02
#431927
Eu estou pesquisando assim... é funcional..

Dim Command As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet
Dim pesquisa As String

pesquisa = tbpesquisarapida.Text
Call testarconexao() [ô]Testa sua conexão com o Banco de dados, Não é exatamente necessario...
nomedodatagrid.DataSource = Nothing
da = New OleDbDataAdapter
dt = New DataTable
ds = New DataSet
Try
da = New OleDbDataAdapter([Ô]SELECT * FROM nometabela where item= [ô][Ô] & pesquisa & [Ô][ô][Ô], conecta)
da.Fill(ds, [Ô]tab_terceiros[Ô])
dt = ds.Tables(0)
nomedodatagrid.Columns.Clear()
nomedodatagrid.Rows.Clear()
nomedodatagrid.DataSource = dt
Catch ex As Exception
MsgBox([Ô]ERROR: [Ô] & ex.Message, MsgBoxStyle.OkOnly, [Ô]WARNING![Ô])
End Try
Faça seu login para responder