ERRO AO PESQUISAR NO DATAGRID
Boa noite.
Tenho um textbox que faz pesquisa ao num datagrid e joga ao mesmo tempo os resultados obtidos para os campos [Ô]Nome do produto[Ô], Estoque, Valor e Estoque Mìnimo[Ô].
Problema:
Se eu digitar um nome que não existe no campo de busca da erro.
Como faço para tratar esse erro?
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
Tenho um textbox que faz pesquisa ao num datagrid e joga ao mesmo tempo os resultados obtidos para os campos [Ô]Nome do produto[Ô], Estoque, Valor e Estoque Mìnimo[Ô].
Problema:
Se eu digitar um nome que não existe no campo de busca da erro.
Como faço para tratar esse erro?
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
Tente assim.
If DT.Rows.Count > 0 Then
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
Else
[ô]Aqui coloca o que achar melhor
End If
If DT.Rows.Count > 0 Then
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
Else
[ô]Aqui coloca o que achar melhor
End If
Na boa nem sei como gradecer, ficou perfeito...
Estou o dia todo batalhando nisso e agradeço a Deus por existir pessoas igual a vc que repassa o conhecimento.
Que Deus o abençoe Omar
Estou o dia todo batalhando nisso e agradeço a Deus por existir pessoas igual a vc que repassa o conhecimento.
Que Deus o abençoe Omar
Tópico encerrado , respostas não são mais permitidas