Archief - [PROG][.NET] Object vullen met Reflection

        Protected Sub FillDTO(ByRef dto As Object, ByVal dataReader As System.Data.Common.DbDataReader)
            If dto IsNot Nothing Then
                Dim propertyInfo As System.Reflection.PropertyInfo = Nothing
                Dim propertyValue As Object = Nothing

                For Each propertyInfo In dto.GetType().GetProperties()
                    If propertyInfo.CanWrite = True Then
                        propertyValue = dataReader(propertyInfo.Name)

                        If propertyValue IsNot System.DBNull.Value Then
                            propertyInfo.SetValue(dto, propertyValue, Nothing)
                        End If
                    End If
                Next
            End If
        End Sub

Public Function GetAllUsers() As List(Of clsUser)
        Dim cmd As DbCommand = Database.CreateSPCommand("user_GetAll")
        Dim reader As DbDataReader = Database.ExecuteReader(cmd)
        Return ReadMultiple(reader)
    End Function

Public Function GetUserByUsername(ByVal naam As String) As clsUser
        Dim par As DbParameter = Database.CreateParameter("@naam", naam)
        Dim cmd As DbCommand = Database.CreateSPCommand("User_GetByName", par)
        Dim reader As DbDataReader = Database.ExecuteReader(cmd)        
        Return ReadSingle(reader)
    End Function

Private Function FillObjectData(ByVal reader As DbDataReader) As clsUser
        Dim oUser As clsUser = New clsUser
        oUser.ID = CType(reader("usr_id"), Integer)
        oUser.Naam = CType(reader("usr_NAAM"), String)
        oUser.Login = CType(reader("usr_LOGIN"), String)
        oUser.Paswoord = CType(reader("usr_PASWOORD"), String)
        oUser.Email = CType(reader("usr_EMAIL"), String)
        Return oUser
    End Function

    Private Function ReadSingle(ByVal reader As DbDataReader) As clsUser
        Try
            If reader.Read() Then
                Return FillObjectData(reader)
            End If
            Return Nothing
        Finally
            reader.Close()
        End Try
    End Function

    Private Function ReadMultiple(ByVal reader As DbDataReader) As List(Of clsUser)
        Try
            Dim list As List(Of clsUser) = New List(Of clsUser)()
            While (reader.Read)
                list.Add(FillObjectData(reader))
            End While
            Return list
        Finally
            reader.Close()
        End Try
    End Function