1

先ほど質問した次の質問をご覧ください。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
4

1 に答える 1

2

a を返すことDataTableは完全にひどいわけではありません - 確かにそれを行うより悪い方法があります - それは部分的にひどいだけです. しかし、他に選択肢がない限り、部分的にひどい食べ物を食べたい人はいますか?

したがって、 a を使用する必要がある何らかの理由がない限りDataTable、カスタム DTO クラスに固執し、DAL がそれらのオブジェクトのリストを返すようにすることをお勧めします。例えば:

Public Function GetNames() As List(Of NameDto)
    '...
End Function
于 2013-01-22T20:23:02.163 に答える