Oprettelse af arraylist ?

Hejsa,

Jeg sidder og skal oprette en arrayliste udfra nogle data i min database. Jeg har lavet et buisnesslag der indeholder en række properties og functioner til til videre behandling i mit datalag der så levere diverse fra databasen.

Men jeg kan ikke helt finde løsningen til at smide data i en arrayliste uden at jeg obretter et object til mit buisnesslag og det er jo ikke lige det mest smarte.

Noget af koden fra mit buisnesslag ser ud som følger :

        Private _TeamId As Integer
        Private _TeamName As String
        Private _TeamDay As String
        Private _TeamTime As String
        Private _TeamMax As Integer

        Public Property TeamId() As Integer
            Get
                Return _TeamId
            End Get
            Set(ByVal Value As Integer)
                _TeamId = Value
            End Set
        End Property

        Public Property TeamName() As String
            Get
                Return _TeamName
            End Get
            Set(ByVal Value As String)
                _TeamName = Value
            End Set
        End Property

        Public Property TeamDay() As String
            Get
                Return _TeamDay
            End Get
            Set(ByVal Value As String)
                _TeamDay = Value
            End Set
        End Property

        Public Property TeamTime() As String
            Get
                Return _TeamTime
            End Get
            Set(ByVal Value As String)
                _TeamTime = Value
            End Set
        End Property

        Public Property TeamMax() As Integer
            Get
                Return _TeamMax
            End Get
            Set(ByVal Value As Integer)
                _TeamMax = Value
            End Set
        End Property

        Private Sub PopulateTeam()
            _TeamId = 0
            _TeamName = ""
            _TeamDay = ""
            _TeamTime = ""
            _TeamMax = 0
        End Sub

        Public Sub New()
            PopulateTeam()
        End Sub

        Public Sub New(ByVal TeamId As Integer)
            '--- Tjekker om id'et er med
            If TeamId > 0 Then
                Dim listUser As String = CheckGetOneTeam(TeamId)
                Dim arrUser() As String = listUser.Split(";".ToCharArray)
                _TeamId = Convert.ToInt32(arrUser(0))
                _TeamName = arrUser(1)
                _TeamDay = arrUser(2)
                _TeamTime = arrUser(3)
                _TeamMax = arrUser(4)
            Else
                PopulateTeam()
            End If
        End Sub

        Private Function CheckGetOneTeam(ByVal TeamId As Integer)
            Dim arrUser As String
            arrUser = objBookingData.GetOneTeam(TeamId)
            Return arrUser
        End Function

Det jeg så vil er at kunne trække mere end en record fra databasen med følgende function fra mit datalag :

        Public Function GetAllTeam()
            Dim objConn As OleDbConnection = objDb.AccessConnect
            Dim objComm As New OleDbCommand("Select * From tbl_booking", objConn)
            Dim Rs As OleDbDataReader = objComm.ExecuteReader
            Dim objList As New ArrayList
            While Rs.Read()
                Dim objBooking As New BookingBiz
                objBooking.TeamId = Rs.GetInt32(0)
                objBooking.TeamName = Rs.GetString(1)
                objBooking.TeamDay = Rs.GetString(2)
                objBooking.TeamTime = Rs.GetString(3)
                objBooking.TeamMax = Rs.GetInt32(4)
                objList.Add(objBooking)
            End While
            objDb.AccessClose()
            Return objList
        End Function

Men som sagt er det jo ikke den bedste løsning at trække mit buisnesslag ned i mit datalag, så hvis der sidder en der kan hjælpe mig med dette ville det være super :o)

/Websam