在数据为空的情况下生成消息答案

【问题标题】：Generate the message in case of empty data在数据为空的情况下生成消息
【发布时间】：2018-06-13 12:25:26
【问题描述】：

我有一个关于 vb.net 代码的查询。我正在将 ADO.NET 实体框架数据模型与桌面应用程序一起使用。

我的功能现在。当我从数据库中找到数据时，它会生成一条消息，如您在代码中所见。

我的问题是 DB中没有匹配数据时如何生成消息？

 Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Using db As SMSTEntities = New SMSTEntities()
            Try
                Dim Query = From PhoneNumber In db.PhoneNumberOfCustomers
                            Where PhoneNumber.PhoneNumber.Equals(txtNumber.Text) Select PhoneNumber


                For Each phoneNumber In Query
                    MessageBox.Show("Your Searched Data " + txtNumber.Text + " Is Present in Database, Please Insert the Releated Information")
                Next
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Using

    End Sub

在这种情况下如何使用 if else 语句。欢迎任何帮助。提前致谢。

【问题讨论】：

If Query.Any() Then MessageBox.Show("Your Message") End If

标签： vb.net desktop-application ado.net-entity-data-model

【解决方案1】：

感谢@N0Alias 我只是将 For Each 循环与带有 Query.Any() 方法的 if 语句。

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Using db As SMSTEntities = New SMSTEntities()
            Try
                Dim Query = From PhoneNumber In db.PhoneNumberOfCustomers
                            Where PhoneNumber.PhoneNumber.Equals(txtNumber.Text) Select PhoneNumber


                If Query.Any() Then


                    MessageBox.Show("Your Searched Data " + txtNumber.Text + " Is Present in Database, Please Insert the Releated Information")
                Else
                    MessageBox.Show("Your Searched Data " + txtNumber.Text + " Is Not Present in Database")
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Using

    End Sub

【讨论】：