AJUDA PROCURAR DADOS
Pessoal tenho uma função que procura os dados no banco conforme um parâmetro
o código é o seguinte
Public Function procura() As String
Using DBConn As SqlConnection = conexão()
Try
Dim dbCommand As New SqlCommand
dbCommand.CommandText = [Ô]SELECT * FROM Cadastro_Produtos WHERE codigoproduto=[Ô] & _
txtcodigo.Text
dbCommand.Connection = DBConn
DBConn.Open()
Dim dbDR As SqlDataReader = dbCommand.ExecuteReader
While dbDR.Read
txtdescrição.Text = dbDR([Ô]descrição[Ô].ToString)
txtpeso.Text = IIf(IsDBNull(dbDR([Ô]pesoliquido[Ô])), [Ô]-[Ô], dbDR([Ô]pesoliquido[Ô]))
End While
DBConn.Close()
Catch ex As System.Exception
MessageBox.Show(ex.Message)
End Try
End Using
End Function
funciona direitinho mas gostaria de quando não encontrar dados apareça uma msgbox
alguém pode ajudar?
o código é o seguinte
Public Function procura() As String
Using DBConn As SqlConnection = conexão()
Try
Dim dbCommand As New SqlCommand
dbCommand.CommandText = [Ô]SELECT * FROM Cadastro_Produtos WHERE codigoproduto=[Ô] & _
txtcodigo.Text
dbCommand.Connection = DBConn
DBConn.Open()
Dim dbDR As SqlDataReader = dbCommand.ExecuteReader
While dbDR.Read
txtdescrição.Text = dbDR([Ô]descrição[Ô].ToString)
txtpeso.Text = IIf(IsDBNull(dbDR([Ô]pesoliquido[Ô])), [Ô]-[Ô], dbDR([Ô]pesoliquido[Ô]))
End While
DBConn.Close()
Catch ex As System.Exception
MessageBox.Show(ex.Message)
End Try
End Using
End Function
funciona direitinho mas gostaria de quando não encontrar dados apareça uma msgbox
alguém pode ajudar?
IF SqlDataReader.HASROW=0 THEN
MSGBOX NÃO ENCONTRADO
EXIT SUB
END IF
MSGBOX NÃO ENCONTRADO
EXIT SUB
END IF
Tópico encerrado , respostas não são mais permitidas