DataTable数据转换为实体

DataTable数据转换为实体

大家好,又见面了,我是全栈君。

       我们在用三层架构编写软件时,常常会遇到例如以下问题,就是三层之间的參数传递问题:假设我们在D层查询出数据是DataTable类型的,那么我们在B层甚至U层使用这条数据时,就要用DataTable类型来回传递了,不管什么情况,我们都会不可避免的要填写读取的字段。比如我们须要使用第一条记录的的某个字段。代码须要这样写:mrc.count(*)rows(*).这样写的坏处有非常多:

        1、easy写错,而且编译器是检查不出来的;

        2、我们须要具体的了解数据库的结构;

        3、 不符合面向对象编程思想。

       这个问题研究了非常长时间,查找了无数的资料,最终找到解决方法了。将DataTable数据转化成单个的实体类。然后将这些实体类放到泛型集合中。

结果图例如以下:

 DataTable数据转换为实体

       实体类是数据库的映射,每一条记录相应一个实体。实体的属性相应每一条记录的字段,而且是一一相应的。我们这里是把查询到的每一条数据都作为一个实体提取出来,然后将这些实体存放到泛型集合中。这样我们在使用数据的时候仅仅要知道属性就能够,使用代码例如以下:List.(items).property。这样。是不是简化了代码,降低了工作量,也降低了错误率。

       那么。是怎样用代码实现的呢?首先是实体类,这里,我们如果数据库中仅仅有两个字段用户民和password:

Public Class User
	Public UserName As String
	Public PassWord As String
	Public Property _username() As String
	        Get
	            Return UserName
	        End Get
	        Set(value As String)
	            UserName = value
	        End Set
	    End Property
	    Public Property _password() As String
	        Get
	            Return PassWord
	        End Get
	        Set(value As String)
	            PassWord = value
	        End Set
	    End Property
End Class

       
这里。我是用了一个ModelHelper类来实现这个功能。由于这是关于參数的类,将这个类放到了Model层。代码例如以下:

Imports System.Collections.Generic    '命名空间
Imports System.Reflection            '引入反射:便于使用propertyInfo
''' <summary>
''' 实体转换类。此类用于将数据表格转换为实体集合
''' </summary>
''' <remarks></remarks>
Public Class ModeHelper
    Public Function convertToList(Of T As {New})(ByVal dt As DataTable) As IList(Of T)
        '将dataTable转化为泛型集合
        '1convertToList(Of T As {New})这里的new是用来约束參数T的。否则实例化时回出现错误
        '2List后边的參数总是(of +)类型
        Dim myList As New List(Of T)   '定义返回值集合
        Dim myType As Type = GetType(T)   '定义实体类类型名
        Dim dr As DataRow           '定义行集

        Dim tempName As String = String.Empty    '定义一个暂时变量,用来存放
        '数据表总是一个二维表格,须要使用数组:dr和pr,dt表示sqlhelper返回结果
        For Each dr In dt.Rows      '遍历DataTable全部记录
            Dim myT As New T       '定义一个实体对象
            Dim Propertys() As PropertyInfo = myT.GetType().GetProperties()   '定义属性集合,获得公共属性
            Dim pr As PropertyInfo
            For Each pr In Propertys    '遍历DataTable全部字段
                tempName = pr.Name     '将属性名赋值给暂时变量
                '检查Datatable是否包括此列(列名==对象属性名)
                If (dt.Columns.Contains(tempName)) Then   '将此属性与datatable的列名比較,查看datatable是否包括此列
                    If (pr.CanWrite = False) Then          '推断此属性是否有Setter
                        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

        下边是D层的调用代码:

Public Function SelectUsers1(user ) As List(Of Charge.Model.User)
	Dim mrc as dataTable         '如果mrc是从数据库中查询出来的DataTable数据表
	Dim myList As List(Of Charge.Model.User)     '定义一个集合用来返回转化后的实体集合
	Dim mHelper As New Charge.Model.ModeHelper   '实例化一个实体转换类
	myList = mHelper.convertToList(Of Charge.Model.User)(mrc)    '调用实体转换类的方法,转换数据
	Return myList    '返回结果
End Function

                
在这里,我们仅仅讨论将DataTable数据类型转换问题。其它问题不讨论,一切以如果作为前提,參考代码需慎重。

      到眼下为止,这些代码攻克了我遇到的问题。可是细致思考一下。这里一个实体相应数据库的一条记录,也就是说。每个表都会有一个实体类或者泛型集合来相应,可是假设是多个表联合查询。该怎样解决呢?眼下我还没有解决问题,留待以后解决。






版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/116450.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 在pycharm中如何使用anaconda环境进行编辑_pycharm中导入pygame

    在pycharm中如何使用anaconda环境进行编辑_pycharm中导入pygame目录一.简单使用二:如何打包工程中的使用到的其他文件(如,excel,cfg等)三.通过pyinstaller打包后的resources,如何找到呢一.简单使用1.在虚拟环境中,添加pyinstallerlib2.将pyinstallertool加入到pycharm的externtool中-D,–onedirCreateaone-fold…

  • Django菜鸟教程学习记录(一)

    Django菜鸟教程学习记录(一)创建项目django-admin.pystartprojectHelloWorld就会在当前目录下创建一个名为HelloWorld的文件夹。启动项目cdHelloWorldpython3manage.pyrunserver创建视图在helloworld的文件夹下新建一个views.py的文件并添加内容fromdjango.httpimportHttpResponsedefhello(request):returnHttpResponse(“Hello

  • larvel 出现ONLY_FULL_GROUP_BY SQL提示

    larvel 出现ONLY_FULL_GROUP_BY SQL提示

  • Vsftpd服务器企业实战

    Vsftpd服务器企业实战

  • 罗技键盘k380打不了字_罗技k380键盘配对成功后无法使用

    罗技键盘k380打不了字_罗技k380键盘配对成功后无法使用mac连接成功罗技k380键盘,但是发现数字键上面的字符对不上,很多字符以及标点符号都打不出来,是什么原因导致的呢?问题分析首先,分析一下,到底是什么原因导致的?可以连接其他设备试一试,比如我发现k380键盘在我的ipad上是可以正常使用的。那么就排除了键盘本身存在问题,坏了等猜测。如果不是键盘本身出了问题,那么我们就要去分析问题究竟出现在哪里?联系了客服,加上自己对键盘配对过程的回顾,大致判定问题出现在最开始的匹配的时候,选错了【键盘类型】。解决问题-重设【键盘类型】步骤如下:【系统偏好设置

  • Mac 安装配置抓包工具Charles「建议收藏」

    Mac 安装配置抓包工具Charles「建议收藏」     本文主要介绍mac下如何安装网络抓包工具以及如何实现抓包。在windows下有一款不错的抓包工具Fidder,但是由于是C#编写的,无法再mac下运行,因此,需要换一款抓包软件:Charles。  Charles是一款Java语言编写的抓包工具,因此可以跨平台使用,可以在win/linux下使用,java编写的当然需要安装jdk了。同时还有一个问题,就是收费的,50美刀,折合…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号