ERRO AO PESQUISAR NO DATAGRID
Boa noite gente.
Eu de novo
Bom mais uma vez venho contar com a ajuda de vcs para solucionar um problema aqui. Apos dias tentando não consegui.
Tenho uma textbox que faz pesquisa no datagridview até ai legal. Só que se eu por espaço ou uma letra que não existe da erro alguém pode me ajudar no tratamento desse erro?
Segue abaixo o Código da text_Buscar onde faz a pesquisa do data gridview
Private Sub txt_buscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_BUSCAR.TextChanged
Dim cnnsql = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\VENDA.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
Dim strSql As String
strSql = ([Ô]SELECT * FROM CAD_PRO WHERE NOME_PRO Like [ô]%[Ô] & TXT_BUSCAR.Text & [Ô]%[ô][Ô])
Dim DT As DataTable = New DataTable
Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(strSql, cnnsql)
DA.Fill(DT)
CAD_PRODataGridView.DataSource = DT.DefaultView
TXT_ID.Text = CAD_PRODataGridView.CurrentRow.Cells(0).Value [ô]ID_PRO
TXT_PRONOME.Text = CAD_PRODataGridView.CurrentRow.Cells(1).Value [ô]NOME
txt_proStq.Text = CAD_PRODataGridView.CurrentRow.Cells(3).Value [ô]ESTOQUE
txt_proVunt.Text = CAD_PRODataGridView.CurrentRow.Cells(2).Value [ô]VALOR_UNT
TXT_DEF.Text = CAD_PRODataGridView.CurrentRow.Cells(4).Value
End Sub
Eu de novo
Bom mais uma vez venho contar com a ajuda de vcs para solucionar um problema aqui. Apos dias tentando não consegui.
Tenho uma textbox que faz pesquisa no datagridview até ai legal. Só que se eu por espaço ou uma letra que não existe da erro alguém pode me ajudar no tratamento desse erro?
Segue abaixo o Código da text_Buscar onde faz a pesquisa do data gridview
Private Sub txt_buscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_BUSCAR.TextChanged
Dim cnnsql = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\VENDA.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
Dim strSql As String
strSql = ([Ô]SELECT * FROM CAD_PRO WHERE NOME_PRO Like [ô]%[Ô] & TXT_BUSCAR.Text & [Ô]%[ô][Ô])
Dim DT As DataTable = New DataTable
Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(strSql, cnnsql)
DA.Fill(DT)
CAD_PRODataGridView.DataSource = DT.DefaultView
TXT_ID.Text = CAD_PRODataGridView.CurrentRow.Cells(0).Value [ô]ID_PRO
TXT_PRONOME.Text = CAD_PRODataGridView.CurrentRow.Cells(1).Value [ô]NOME
txt_proStq.Text = CAD_PRODataGridView.CurrentRow.Cells(3).Value [ô]ESTOQUE
txt_proVunt.Text = CAD_PRODataGridView.CurrentRow.Cells(2).Value [ô]VALOR_UNT
TXT_DEF.Text = CAD_PRODataGridView.CurrentRow.Cells(4).Value
End Sub
TXT_ID.Text = CAD_PRODataGridView.CurrentRow.Cells(0).Value [ô]ID_PRO
TXT_PRONOME.Text = CAD_PRODataGridView.CurrentRow.Cells(1).Value [ô]NOME
txt_proStq.Text = CAD_PRODataGridView.CurrentRow.Cells(3).Value [ô]ESTOQUE
txt_proVunt.Text = CAD_PRODataGridView.CurrentRow.Cells(2).Value [ô]VALOR_UNT
TXT_DEF.Text = CAD_PRODataGridView.CurrentRow.Cells(4).Value
essa parte do codigo vc vai colocar no evento CellDoubleClick do datagridview ai funciona.
TXT_PRONOME.Text = CAD_PRODataGridView.CurrentRow.Cells(1).Value [ô]NOME
txt_proStq.Text = CAD_PRODataGridView.CurrentRow.Cells(3).Value [ô]ESTOQUE
txt_proVunt.Text = CAD_PRODataGridView.CurrentRow.Cells(2).Value [ô]VALOR_UNT
TXT_DEF.Text = CAD_PRODataGridView.CurrentRow.Cells(4).Value
essa parte do codigo vc vai colocar no evento CellDoubleClick do datagridview ai funciona.
Legal Felipe coloquei dentro de um botão que ficou assim após digitar a pesquisa pressiona o botão e os dados são preenchido nos textbox.
Novamente agradeço a força vei e que Deus o abençoe.
Novamente agradeço a força vei e que Deus o abençoe.
Tópico encerrado , respostas não são mais permitidas