如何将MS-Access数据存入VB数组？现有代码报错求助

嘿，我帮你定位到问题所在了！你的代码执行时报错，核心原因是初始化的空数组没有足够的存储空间，咱们拆解来看：

你定义了 Dim farmers() As String = {}，这是一个长度为0的空数组。当循环里执行 farmers(i) = CStr(reader.Item(1)) 时，i从0开始，此时数组根本不存在索引为0的元素，直接触发「索引超出数组界限」的错误。

另外还有个小细节：用 reader.Item(1) 按索引取列值不够健壮——如果后续调整表的列顺序，代码就会取错值，建议改用列名（比如 reader("Number")）来获取对应字段，更稳妥。

优先推荐第二种，代码更简洁高效：

方案1：动态扩容数组 #

每次循环前重新调整数组长度，确保能容纳新元素：

Dim i As Integer = 0
Dim farmers() As String ' 先不初始化空数组
sql = "SELECT * FROM users"
cmd = New OleDbCommand(sql, connection)
reader = cmd.ExecuteReader()

If reader.HasRows Then
    Do While reader.Read
        ' 扩容数组，保留原有元素
        ReDim Preserve farmers(i)
        farmers(i) = CStr(reader("Number")) ' 改用列名更安全
        i += 1
    Loop
End If

For Each element As String In farmers
    MsgBox(element)
Next

⚠️ 注意：ReDim Preserve 会保留数组原有数据，但频繁扩容会影响性能，数据量大的时候不建议用这种方式。

方案2：用List(Of String)（推荐） #

VB的泛型List会自动处理扩容，代码更简洁，最后按需转成数组即可：

Dim farmersList As New List(Of String)()
sql = "SELECT * FROM users"
cmd = New OleDbCommand(sql, connection)
reader = cmd.ExecuteReader()

If reader.HasRows Then
    Do While reader.Read
        farmersList.Add(CStr(reader("Number")))
    Loop
End If

' 如果需要数组格式，直接转换
Dim farmers() As String = farmersList.ToArray()

For Each element As String In farmers
    MsgBox(element)
Next

• 数据库操作记得及时释放资源：用Using语句可以自动关闭连接、命令和阅读器，避免资源泄漏，示例如下：

Using connection As New OleDbConnection(你的连接字符串)
    connection.Open()
    Using cmd As New OleDbCommand("SELECT Number FROM users", connection) ' 明确指定需要的列，不用SELECT *
        Using reader As OleDbDataReader = cmd.ExecuteReader()
            Dim farmersList As New List(Of String)()
            If reader.HasRows Then
                Do While reader.Read
                    farmersList.Add(CStr(reader("Number")))
                Loop
            End If
            ' 后续处理逻辑
        End Using
    End Using
End Using

• 尽量避免用SELECT *，明确写出需要的列（比如SELECT Number FROM users），减少不必要的数据传输，也更清晰。

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