如何用VB.NET将Access数据库列读取到数组并填充ComboBox？

一、基于DataReader+数组的完善实现 #

你现有的代码仅完成了查询命令的执行，以下是完整的读取数据到数组并填充ComboBox的代码：

' 确保数据库连接已开启
cn.Open()
Dim sql = "SELECT Firstname FROM Candidates WHERE Position='President'"
Dim cmd = New OleDbCommand(sql, cn)
Dim dr = cmd.ExecuteReader()

' 用List暂存数据（比固定数组更灵活，无需提前计算结果行数）
Dim nameList As New List(Of String)()
While dr.Read()
    ' 处理数据库中可能存在的空值，避免报错
    If Not dr.IsDBNull(dr.GetOrdinal("Firstname")) Then
        nameList.Add(dr.GetString(dr.GetOrdinal("Firstname")))
    End If
End While

' 转换为数组（若业务确实需要数组格式）
Dim nameArray As String() = nameList.ToArray()
' 填充ComboBox
ComboBox1.Items.AddRange(nameArray)

' 手动释放资源
dr.Close()
cn.Close()
cmd.Dispose()

二、更优的直接绑定方案（无需手动处理数组） #

利用.NET的数据绑定特性，直接将查询结果绑定到ComboBox，代码更简洁且自动处理资源：

Using cn As New OleDbConnection("你的数据库连接字符串")
    Dim sql = "SELECT Firstname FROM Candidates WHERE Position='President'"
    Dim da As New OleDbDataAdapter(sql, cn)
    Dim dt As New DataTable()
    da.Fill(dt)

    ' 绑定数据源并设置显示字段
    ComboBox1.DataSource = dt
    ComboBox1.DisplayMember = "Firstname"
    ' 若需要获取选中项的关联值（如候选人ID），可设置ValueMember
    ' ComboBox1.ValueMember = "CandidateID"
End Using

Using语句会自动释放数据库连接等资源，避免内存泄漏；直接绑定的方式无需手动循环读取数据，代码更易维护，数据量较大时效率也更高，更贴合.NET的设计思路。

内容的提问来源于stack exchange，提问作者Gabriel