先ほど質問した次の質問をご覧ください。BLL(ビジネスロジック層)をBLLとDAL(データアクセス層)に分割する
このアプローチ(データ転送オブジェクト)は、データアクセス層から1つのレコードを返す場合、つまりgetNameByIDが1つのレコードを返す場合にうまく機能するようです。
getName()と呼ばれるデータアクセス層関数がある場合はどうなりますか。この関数は、ビジネスロジック層で処理される数千または数百万などの多くのレコードを返します。(これはスケジュールされたタスクです)。これが必要な場合、現在DataTableを返しています(データリーダーはVB.NET 2008の接続よりも長持ちしないため)。ただし、この質問と回答はこのアプローチを否定しているようです。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