从VB Net上的查询中填充类

Imports System.Data.SqlClient

Public Class MyClass
    Public Property ID As Integer
    Public Property Name As String
    ' 其他属性...

    Public Sub New()
    End Sub

    Public Sub New(id As Integer, name As String)
        Me.ID = id
        Me.Name = name
    End Sub
End Class

Public Class DatabaseAccess
    Private connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"

    Public Function GetData() As List(Of MyClass)
        Dim data As New List(Of MyClass)()

        Using connection As New SqlConnection(connectionString)
            Dim query As String = "SELECT ID, Name FROM YourTable"
            Dim command As New SqlCommand(query, connection)

            connection.Open()
            Dim reader As SqlDataReader = command.ExecuteReader()

            While reader.Read()
                Dim id As Integer = Convert.ToInt32(reader("ID"))
                Dim name As String = reader("Name").ToString()

                Dim item As New MyClass(id, name)
                data.Add(item)
            End While

            reader.Close()
        End Using

        Return data
    End Function
End Class