DataTable填充实体类返回泛型集合

     昨天找坤哥看到我的一段代码。例如以下：

    

     略微解释下，这段代码时D层查询结束后，将datatable查询到的结果赋值给实体对象的属性，然后返回实体的过程。坤哥看了之后问我。假设实体有500多个属性。难道也要这样一条一条的写吗？假设返回多个实体时怎么办？这时。我才意识到自己的代码时非常有问题的，原来设计的是每一个方法最多返回一个实体，可是当遇到查询到多条记录的时候。就又冒着破坏三层结构的事返回Datatable去了。真的是非常有问题啊。

     怎么改，我脑海中一下子就浮现了老办法：数组+循环，用循环读条读取列值，保存到对象数组。

之后查了查，发现我太OUT了。明明就有又新又好的技术可我用过了也想不起来。

    百度上是用的是这种：在实体层加入一个工具类，类似D层的工具类，仅仅只是这个工具类是完毕将datatable转换为一个包括实体的泛型集合的，然后每次返回的时候，将集合作为结果返回。

     这种方法最好的地方还是在对每一个实体属性的赋值上面，通过内部的属性集合循环赋值，再也不用一条条写了。这样，不仅封装性好了，并且使代码更不easy出错。

    

      可是，唯一遗憾的就是，使用这个工具类对于实体和datatable有一个条件限制，就是实体的属性名必须和datatable的列名相应。

      在百度上找了非常多这种类，可是仅仅找到了C#版的。然后自己改写了个VB.NET版的。以下写出自己的DEMO:

      首先，是实体类：

      这个实体类是对教师信息表的映射。

     

Public Class EntityUser


    Private FilUserName As String  'username
    Private FilPwd As String   'password
    Private FilTeaName As String   '教师姓名
    Private FilTeaLevel As String  '教师级别
    Private FilRegDate As String '注冊日期
    Private FilRegTime As String   '注冊时间
    Private FilDelDate As String   '注销日期
    Private FilDelTime As String   '注销时间
    Private FilOnLineStatue As String  '在线状态


    ''' <summary>
    ''' username
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property UserName() As String
        Get
            Return FilUserName
        End Get
        Set(ByVal value As String)
            FilUserName = value
        End Set
    End Property

    ''' <summary>
    ''' password
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Pwd() As String
        Get
            Return FilPwd
        End Get
        Set(ByVal value As String)
            FilPwd = value
        End Set
    End Property

    ''' <summary>
    ''' 教师姓名
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property TeaName() As String
        Get
            Return FilTeaName
        End Get
        Set(ByVal value As String)
            FilTeaName = value
        End Set
    End Property

    ''' <summary>
    ''' 教师级别
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property TeaLevel() As String
        Get
            Return FilTeaLevel
        End Get
        Set(ByVal value As String)
            FilTeaLevel = value
        End Set
    End Property

    ''' <summary>
    ''' 注冊日期
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property RegDate() As String
        Get
            Return FilRegDate
        End Get
        Set(ByVal value As String)
            FilRegDate = value
        End Set
    End Property
    ''' <summary>
    ''' 注冊时间
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property RegTime() As String
        Get
            Return FilDelDate
        End Get
        Set(ByVal value As String)
            FilDelTime = value
        End Set
    End Property
    ''' <summary>
    ''' 注销日期
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property DelDate() As String
        Get
            Return FilDelDate
        End Get
        Set(ByVal value As String)
            FilDelDate = value
        End Set
    End Property

    ''' <summary>
    ''' 注销时间
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property DelTime() As String
        Get
            Return FilDelTime
        End Get
        Set(ByVal value As String)
            FilDelTime = value
        End Set
    End Property

    ''' <summary>
    ''' 在线状态
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property OnLineStatue() As String
        Get
            Return FilOnLineStatue
        End Get
        Set(ByVal value As String)
            FilOnLineStatue = value
        End Set
    End Property

End Class

   

  我 的教师信息表例如以下：里面有3条记录。这个结果等一会咱们执行的时候会用到。

    

     

    然后。写了个SqlHelper,这个代码不再写。由于这里是做个DEMO，所以没有採用3层架构，大家做的时候要注意不要破坏总体的结构。

 
        然后以下就是本文主要要讨论的EntityHelper,不知道这样取名准不准确，可是假设要把这个类增加三层里面。我会把向SQLHelper那样对待。将它作为实体层的一个工具类加进去。

    

Imports System.Collections.Generic  '添加泛型的命名空间
Imports System.Reflection '引入反射：为了使用PropertyInfo

Public Class EntityHelper

    Public Shared Function convertToList(Of T As {New})(ByVal dt As DataTable) As IList(Of T)  '将datatable转化为泛型集合
        '注意：1。convertToList(Of T As {New}) 这里的new是用来约束T的。必须有，不然new T的时候会出现错误
        '2，new约束在C#和VB.NET里面的写法是不一样的。C#里面用的是where来为T加上约束的

        Dim myList As New List(Of T)   '定义终于返回的集合

        Dim myTpye As Type = GetType(T) '得到实体类的类型名
        Dim dr As DataRow   '定义行集

        Dim tempName As String = String.Empty   '定义一个暂时变量

        '遍历DataTable的全部数据行
        For Each dr In dt.Rows

            Dim myT As New T    '定义一个实体类的对象
            Dim propertys() As PropertyInfo = myT.GetType().GetProperties()  '定义属性集合
            Dim Pr As PropertyInfo

            '遍历该对象的全部属性
            For Each Pr In propertys
                tempName = Pr.Name '将属性名称赋值给暂时变量

                '检查DataTable是否包括此列（列名==对象的属性名） 
                If (dt.Columns.Contains(tempName)) Then     '将此属性与datatable里的列明比較。查看datatable是否包括此属性

                    '推断此属性是否有Setter
                    If (Pr.CanWrite = False) Then   '推断此属性是否可写。假设不可写。跳出本次循环
                        Continue For
                    End If

                    Dim value As Object = dr(tempName)  '定义一个对象型的变量来保存列的值

                    If (value.ToString <> DBNull.Value.ToString()) Then '假设非空，则赋给对象的属性
                        Pr.SetValue(myT, value, Nothing)    '在执行期间，通过反射，动态的訪问一个对象的属性
                    End If
                End If
            Next

            myList.Add(myT)   '加入到集合
        Next

        Return myList   '返回实体集合
    End Function



End Class

   至此，基本的类都写完了，以下来看下client该怎样调用：

    

  <span style="font-size:18px;">      Dim strSQL As String = "select * from T_TeaInfo where TeaLevel ='管理员'"  '注意，这样的破坏架构的写法不提倡

        Dim mysqlhelper As New SQLHelper '定义查询助手类
        Dim dt As New DataTable '定义查询到的表集

        Dim myList As List(Of EntityUser)  '保存转换后的泛型集合

        dt = mysqlhelper.ExecSelect(strSQL, CommandType.Text)   '运行查询

        '将dt转换为泛型集合
        myList = EntityHelper.convertToList(Of EntityUser)(dt)

        TextBox1.Text = myList.Count    '在文本框里面显示出查询到的教师数目
</span>

执行后，能够看到，结果例如以下：

      

  

   小结下：

         对于三层中，可能刚開始做的时候，我们从D层向上层传数据的时候用的是Datatable,仅仅能说，这是一种很破坏结构的方法，自己真的体会到了实体的优点。才会用它。