Search Tool

[dr223]

Hallo,

This search button works fine, however, in the tooltip it shows "Record Found" as highlighted in the code below. What I want to do is to say how many records have been found. Lets say 2 records found it says "2 Records Found". I understand a count function must be included please could anyone update the code for me to accomodate that functionality.

Thank you very much indeed. Please find the code below;

Private Sub btnPerformSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPerformSearch.Click
        ' Declare local variables...
        Dim intPosition As Integer
        ' Determine the appropriate item selected and set the
        ' Sort property of the DataView object...
        Select Case cboField.SelectedIndex
            Case 0 'PRACTICE
                objDataView.Sort = "PRACTICE"
            Case 1 'HEALTH AUTHORITY
                objDataView.Sort = "HA_NAME"
            Case 2 'REGION
                objDataView.Sort = "REGION"
            Case 3 'TOWN
                objDataView.Sort = "TOWN"
            Case 4 'POSTCODE
                objDataView.Sort = "POSTCODE"
            Case 5 'CLINCOMP
                objDataView.Sort = "CLINCOMP"
            Case 6 'GPRDSTATUS
                objDataView.Sort = "GPRDSTATUS"

        End Select
        ' If the search field is not price then...
        If cboField.SelectedIndex < 7 Then
            ' Find the practice details
            intPosition = objDataView.Find(txtSearchCriteria.Text)

        End If
        If intPosition = -1 Then
            ' Display a message that the record was not found...
            ToolStripStatusLabel1.Text = "Record Not Found"
        Else
            ' Otherwise display a message that the record was
            ' found and reposition the CurrencyManager to that
            ' record...
            ToolStripStatusLabel1.Text = "Record Found"
            objCurrencyManager.Position = intPosition
        End If
        ' Show the current record position...
        ShowPosition()

End Sub

[HanneSThEGreaT]

Would something like this :

ToolStripStatusLabel1.Text = objDataView.Count & " Record(s) Found"

Work ¿

[dr223]

Hallo,

I have th efollowing search code which works fine. However, I have an additional task to do, which is create a count funtion for the Record found or Record not found. Presently what it does is it searchs and if a record is found it displays at the tooltip "Record Found" if not it says "Record Not found". However, sometimes you have 2 or more records. Therefore, the tooltip should say the exact amount of records found.. For example, 3 Records Found or even 5 Records Found.

Also if only one record is found it says "Record Found" but if more it should display " 2 Records Found".

Please could anyone help me with the count syntax to be added to the code.. Thanks

    Private Sub btnPerformSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPerformSearch.Click
        ' Declare local variables...
        Dim intPosition As Integer
        ' Determine the appropriate item selected and set the
        ' Sort property of the DataView object...
        Select Case cboField.SelectedIndex
            Case 0 'PRACTICE
                objDataView.Sort = "PRACTICE"
            Case 1 'HEALTH AUTHORITY
                objDataView.Sort = "HA_NAME"
            Case 2 'REGION
                objDataView.Sort = "REGION"
            Case 3 'TOWN
                objDataView.Sort = "TOWN"
            Case 4 'POSTCODE
                objDataView.Sort = "POSTCODE"
            Case 5 'CLINCOMP
                objDataView.Sort = "CLINCOMP"
            Case 6 'GPRDSTATUS
                objDataView.Sort = "GPRDSTATUS"

        End Select
        ' If the search field is not price then...
        If cboField.SelectedIndex < 7 Then
            ' Find the practice details
            intPosition = objDataView.Find(txtSearchCriteria.Text)

        End If
        If intPosition = -1 Then
            ' Display a message that the record was not found...

            ToolStripStatusLabel1.ForeColor = Color.Red
            ToolStripStatusLabel1.Font = New Font(Font, FontStyle.Bold)
            ToolStripStatusLabel1.Text = "Record Not Found"
        Else
            ' Otherwise display a message that the record was
            ' found and reposition the CurrencyManager to that
            ' record...
            ToolStripStatusLabel1.ForeColor = Color.Red
            ToolStripStatusLabel1.Font = New Font(Font, FontStyle.Bold)
            ToolStripStatusLabel1.Text = "Record Found"
            objCurrencyManager.Position = intPosition
        End If
        ' Show the current record position...
        ShowPosition()

        Me.QryContactsperpracTableAdapter1.FillBy(Me.QryContacts1.QryContactsperprac, TxtPracName.Text, TxtPostcode.Text, TxtSite.Text, TxtAddress1.Text)

End Sub

[HanneSThEGreaT]

What's was wrong with this answer ¿ :

http://www.codeguru.com/forum/showthread.php?t=478239

Couldn't you manage to get it to work ¿

[dr223]

This code did not work...

It displayed the number of all records on the tooltip

as

9134 Record(s) Found

This was shown even if ONLY 2 records were present...

any help!!!

Thanks for the suggestion

[dr223]

This code did not work...

It displayed the number of all records on the tooltip

as

9134 Record(s) Found

This was shown even if ONLY 2 records were present...

any help!!!

Thanks for the suggestion

[HanneSThEGreaT]

Hello again. I need glasses! :blash: I don't know how I could've missed this one

You've already set it up properly actually. You already had a variable ( intPosition ) pointing to the Find results...

Change the appropriate section to look like :

Else
            ' Otherwise display a message that the record was
            ' found and reposition the CurrencyManager to that
            ' record...
            ToolStripStatusLabel1.ForeColor = Color.Red
            ToolStripStatusLabel1.Font = New Font(Font, FontStyle.Bold)
            ToolStripStatusLabel1.Text = intPosition " Record(s) Found"
            objCurrencyManager.Position = intPosition

I apologise for my blindness, it happens sometimes, but I sincerely hope it helps now.

[dr223]

The problem is it doesn't show the number of records obtained..

I want it to tell the user if the number of records are 2, 10, 1000 etc

Therefore it should look like, for example - 2 Record(s) Found or 1000 Record(s) Found

any ideas