Hi,
Is it possible to add the result of a Query to a collection
Like
SELECT LastName,FirstName,MiddleName,Country FROM Contact ORDER BY LastName
Dim Contact As New List(Of String)
My purpose it to Search my Collection So that I Don't Need to Query Again and Again
Hope You can help me with This :)
OK I can't do it right,
I Created a Class "CollectContact" which Have Public Property for LastName, FirstName, and FamilyName. And a Class "ListContact" which contains
Public Class CollectContact
Private _FirstName As String = String.Empty
Friend Property FirstName() As String
Get
Return _FirstName
End Get
Set(ByVal value As String)
_FirstName= value
End Set
End Property
Private _LastName As String = String.Empty
Friend Property LastName () As String
Get
Return _LastName
End Get
Set(ByVal value As String)
_LastName = value
End Set
End Property
End Class
Public Class ListContact
Public Sub New()
_List = New List(Of CollectContact)
End Sub
Private _List As List(Of CollectContact)
Public Property ListOfFriend() As List(Of CollectContact)
Get
Return _Profile
End Get
Set(ByVal value As List(Of CollectContact))
_Profile = value
End Set
End Property
End Class
Dim Contact As New CollectContact
Dim ContactList As New ListContact
Now on my DataReader.Read
Contact.FirstName = DataReader("First Name").ToString
Contact.LastName = DataReader("Last Name").ToString
ContactList.ListOfFriend.Add(Contact)
Lets say I have a Data:
FirstName LastName
Ron McMiller
James Baker
Sarah Jasmine
Now When I Debug the Return Value of ListOfFriend
I get 3 Rows that have same FirstName & LastName
Number of Rows are correct but the FirstName & LastName are all the same