はに値のコレクションを配置するための...各ループ

Question

次のように私は、プロパティを持つオブジェクトのコレクションを返すために書かれたこのコードを持っている：

Public Shared Function Create() As Collection(Of Element) 
    Return New Collection(Of Element)() From { _ 
    New Element() With { _ 
     .Group = 1, _ 
     .Period = 1, _ 
     .Name = "Hydrogen" _ 
    }, _ 
    New Element() With { _ 
     .Group = 18, _ 
     .Period = 1, _ 
     .Name = "Helium" _ 
    }, _ 
    New Element() With { _ 
     .Group = 1, _ 
     .Period = 2, _ 
     .Name = "Lithium" _ 
    } 
    } 
End Function 

私は今からこれらの値を取得したいと思いコードを再フォーマットする方法を理解することはできません。私の返す手順は次のようなものです：

Public Shared Function CreateDB() As Collection(Of Element) 

     Using db As New DataClassesDataContext(ACCCon) 

      Dim rows = (From row In db.PeriodicTableQs 
         Order By row.ID 
         Select row).ToList() 
      For Each s In rows 
       <<collect the elements here as result>> 
       <<eg, New Element() With {.Group = s.Group}>> 
      Next 

     End Using 

     Return Result 

    End Function 

ありがとう！

Answer 1

これを試してみてください：

Public Shared Function CreateDB() As Collection(Of Element) 
    Dim ACCCon As String = "ConnectionString" 

    Using db As New DataClassesDataContext(ACCCon) 
    Dim List = db.PeriodicTableQs. 
     OrderBy(Function(Q) Q.ID).ToList. 
     Select(Function(row)       
       Return New Element With {       
       .Group = row.Group,       
       .Name = row.Name,       
       .Period = row.Period       
       }       
      End Function) 
    End Using 

    Return New Collection(Of Element)(List) 
End Function