Message box for empty DataGridView 2005

My DataGridView is populated when a search for customer records is done. If I can't find any customer records with a last name starting with "gra" then the DataGridView doesn't get populated with records. What I want to do is create a message if the DataGridView is Empty. What would the code be if the DataGridView is Empty?

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click
        Dim MySQLConnection As String = My.Settings.dbConnection
        Dim dbConnection As New SqlConnection
        dbConnection.ConnectionString = MySQLConnection
        Dim bsPatients As BindingSource
        bsPatients = New BindingSource
        Dim noRecord As Integer
        noRecord = 0
        Dim strSQL As String = "SELECT FirstName, LastName, DOB, CustomerID FROM Customer WHERE LastName LIKE '" & LastName.Text & "%' ORDER BY FirstName"
        Dim myDA As SqlDataAdapter = New SqlDataAdapter(strSQL, dbConnection)
        Dim myPatient As DataTable = New DataTable
        bsPatients.DataSource = myPatient
        DataGridView1.DataSource = bsPatients
        dbConnection = Nothing
    End Sub

Open in new window

Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Put this code after the myDA.Fill code...

        If myPatient.Rows.Count = 0 Then
            MsgBox("No serach found")
        End If

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Add a bit of logic when biding the data to datagrid

 if mypatient.rows.count > 0 then
        bsPatients.DataSource = myPatient
        DataGridView1.DataSource = bsPatients
If txtCardNumber.Text & "" Then
    Dim strScript As String = "<script language=javascript>"
    strScript += "alert('please enter Credit Card Number');"
    strScript += "</script>"
    If (Not ClientScript.IsStartupScriptRegistered("clientScript")) Then
        ClientScript.RegisterStartupScript(Me.[GetType](), "clientScript", strScript, False)
    End If
End If

Open in new window


Please ignore

 If txtCardNumber.Text & "" Then in the above code.Just use the javascript code to give a alert message.

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.