Results 1 to 5 of 5

Thread: Filtering information from a DataGrid [RESOLVED]

Threaded View

  1. #1

    Thread Starter
    New Member
    Join Date
    Feb 2003
    Posts
    12

    Filtering information from a DataGrid [RESOLVED]

    I am new to vb.net programming and need some assistance ...
    this has been a struggle for a couple of weeks, I have tried, dataviews, etc. with no luck.

    I have a Windows Form that has a datagrid that is filled on load with a dataset

    The users would like to be able to sort and filter this information

    I have incorporated textboxes for the filtering, I would like to be able to have them type in a "Name" or "ID", etc. and have the dataset sort and return only those records back into the datagrid

    Any help in the right direction would be most appreciated.

    SQL 2000 database (backend)
    vb.net (frontend)

    Here is the code that I am using for filtering:

    #Region "Requery Data"

    Private Sub requeryData()
    Dim Filter$, SQL$
    Dim mygr As DataGrid
    Dim myrs As dsStudentInfo

    Filter$ = " WHERE 1 "
    If IsDBNull((Me.txtFilterID)) Then
    Filter$ = Filter$ & " AND ([studentID] =' & Me.txtFilterID & ')"
    End If

    If IsDBNull((Me.txtFilterLast)) Then
    Filter$ = Filter$ & " AND ([studentLast] Like ' & Me.txtFilterLast & *')"
    End If
    Filter$ = Filter$ & " AND ([studentFirst] Like ' & Me.txtFilterFirst & *')"

    If IsDBNull((Me.txtFilterFirst)) Then
    Filter$ = Filter$ & " AND ([studentFirst] Like ' & Me.txtFilterFirst & *')"
    End If

    If IsDBNull((Me.txtFilterMiddle)) Then
    Filter$ = Filter$ & " AND ([studentMI] Like ' & Me.txtFilterMiddle & *')"
    End If

    If IsDBNull((Me.txtFilterSSN)) Then
    Filter$ = Filter$ & " AND ([studentSSN] Like ' & Me.txtFilterSSN & *')"
    End If

    If IsDBNull((Me.txtFilterGrade)) Then
    Filter$ = Filter$ & " AND ([gradeCode] = ' & Me.txtFilterGrade & ')"
    End If
    If IsDBNull((Me.txtFilterBirthdate)) Then
    Select Case Me.FormBorderStyle
    Case 1 'Less Than
    Filter$ = Filter$ & " AND ([studentBirthDate] < #' & Me.txtFilterBirthdate & '#)"
    Case 3 'Greater Than
    Filter$ = Filter$ & " AND ([studentBirthDate] > #' & Me.txtFilterBirthdate & '#)"
    Case Else 'Equals
    Filter$ = Filter$ & " AND ([studentBirthDate] = #' & Me.txtFilterBirthdate & '#)"
    End Select
    End If

    SQL$ = "SELECT * FROM dvfilterStudentID " & Filter$ & ";"
    mygr = Me.DataGrid1
    myrs = dsStudentInfo2
    End Sub
    #End Region

    From the textbox_Enter
    requeryData()

    Thank you from a very new and frustruated vb.net programmer
    learning and doing at the same time...

    ettropics
    Last edited by ettropics; Feb 17th, 2003 at 05:09 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width