Send message to user if Where clause is not found in DataReader (solved)

[BukHix]

How do I catch and send a message to the user if the text entered in the Where clause is not found among the records in the data reader?

Try
    cnn.ConnectionString = (.........)
    cnn.Open()
    cmd = cnn.CreateCommand
    cmd.CommandText = "SELECT Phase FROM JCPM WHERE VbPhase=" _
            & "'" & txtPC.Text & "'"
    dr = cmd.ExecuteReader
        While dr.Read()
            txtPhaseCode.Text = dr("Phase")
        End While
        dr.Close()
        cnn.Close()
Catch ex As Exception
    MsgBox("Error: " & ex.Source & ": " & ex.Message, _
            MsgBoxStyle.OKOnly, "Job Name Error")
End Try

[techmanbd]

one way is that if a record is not found from the where clause then there won't be any so you can put the if dr.hasrows like i did below

Try
	cnn.ConnectionString = (.........)
	cnn.Open()
	cmd = cnn.CreateCommand
	cmd.CommandText = "SELECT Phase FROM JCPM WHERE VbPhase=" _
        	& "'" & txtPC.Text & "'"
	dr = cmd.ExecuteReader
if dr.hasrows then
       	While dr.Read()
        	txtPhaseCode.Text = dr("Phase")
      	End While
else
  'code if doesn't find anything
end if
      	dr.Close()
      	cnn.Close()
Catch ex As Exception
	MsgBox("Error: " & ex.Source & ": " & ex.Message, _
        	MsgBoxStyle.OKOnly, "Job Name Error")
End Try

[Edneeis]

If you are only returning one result from one field like that then it is more efficent to use ExecuteScalar instead of ExecuteReader:

Try
    cnn.ConnectionString = (.........)
    cmd = cnn.CreateCommand
    cmd.CommandText = "SELECT Phase FROM JCPM WHERE VbPhase=" _
            & "'" & txtPC.Text & "'"
    cnn.Open()
    Dim results As Object = cmd.ExecuteScalar
    cnn.Close()
        If result Is Nothing Then
                        MsgBox("No records matched your query!")
                Else
                        txtPhaseCode.Text = result
                End If
Catch ex As Exception
    MsgBox("Error: " & ex.Source & ": " & ex.Message, _
            MsgBoxStyle.OKOnly, "Job Name Error")
End Try

[BukHix]

Got it now. Once again I thank you for the help/