COMO BUSCAR ITENS EM DATAGRIDVIEW?
Já pesquisou?
Citação:Já procurei, porém só achei com VB2005, eu uso VB8 ou VB2010:
Procure aqui no site ou Google.
Já pesquisou?
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.
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!
Posta seu código aqui.
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.
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