请看下面我前段时间问过的问题: 将 BLL(业务逻辑层)分解为 BLL 和 DAL(数据访问层)
如果我从数据访问层返回一条记录,即 getNameByID 返回一条记录,这种方法(数据传输对象)似乎效果很好。
如果您有一个名为 getName() 的数据访问层函数,该函数返回许多记录(例如数千或数百万条要在业务逻辑层中处理)会发生什么情况?(这是一个计划任务)。当需要这样做时,我当前返回一个 DataTable(因为数据读取器在 2008 VB.NET 不能超过连接寿命)。 但是,这个问题和答案似乎否定了这种方法:从 DAL 返回 DataTable 或 DataSet 是错误的方法。 这是一种糟糕的方法吗?
我意识到有像NHibernate这样的ORM工具,我计划在未来的项目中更多地使用它。 但是,我当前项目中的数据访问代码已经由其他人编写,但我想在进行过程中重构它。
更新 以下是一些代码(如Stephen Doggart所建议的那样):
Imports Microsoft.VisualBasic
Public Class PersonBLL
Private Name As String
Private Age As Integer
Dim objPersonDAL As New PersonDAL
Dim personList As List(Of Person)
'Option 2
Public Function getPersonByID() As List(Of Person)
personList = objPersonDAL.getPersonByID()
Return personList
End Function
Public Function ShowMessageBox(ByVal listPersonBLL As List(Of Person))
For Each p As Person In listPersonBLL
Me.Age = p.Age
Me.Name = p.Name
MsgBox(Me.Age)
MsgBox(Me.Name)
Next
End Function
End Class
Public Class PersonDAL
Private Name As String
Private Age As Integer
Public Function getPersonByID() As List(Of Person)
'Connect to database and get Person. Return a person object
Dim personList As List(Of Person) = New List(Of Person)
Dim p1 As New Person
p1.Name = "Ian"
p1.Age = 30
personList.Add(p1)
Dim p2 As New Person
p2.Name = "Steven"
p2.Age = 28
personList.Add(p2)
Dim p3 As New Person
p3.Name = "Sharon"
p3.Age = 29
personList.Add(p3)
Return (personList)
End Function
End Class
Public Class Person
Private _Name As String
Private _Age As Integer
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal value As String)
_Name = value
End Set
End Property
Public Property Age() As Integer
Get
Return _Age
End Get
Set(ByVal value As Integer)
_Age = value
End Set
End Property
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'If Environment.GetCommandLineArgs(0) = "Test" Then
'MsgBox("Test")
'End If
Dim p1 As PersonBLL = New PersonBLL
Dim p2 As List(Of Person) = p1.getPersonByID()
Dim p3 As PersonBLL = New PersonBLL
p3.ShowMessageBox(p2)
End Sub
End Class
返回DataTable
并不完全可怕 - 当然有更糟糕的方法 - 它只是部分可怕。 但是,除非他们别无选择,否则谁愿意吃部分可怕的食物?
因此,除非有某种原因需要使用DataTable
,否则我建议您坚持使用自定义DTO类,并让您的DAL返回这些对象的列表。 例如:
Public Function GetNames() As List(Of NameDto)
'...
End Function