|
-
Feb 8th, 2003, 07:10 PM
#1
Thread Starter
New Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|