Database ms access：如何在字符串数组中存储表的内容？

我正在处理MS access数据库

在某个时候，我需要创建一个包含动态字符串数组的模块，该数组中要存储的数据应该来自一个表，我在该表上使用count（*）函数来定义动态数组的大小

我需要知道的是如何用该表的列（称为名称）的内容填充数组

更清楚地说： 假设我这样声明数组

dim myArray() as string
redim myArray(myTable.count(*))

其中我的表包含两个字段：ID、Name

我希望myArray（0）在第一条记录中保存Name的内容 myArray（1）将名称的内容保存在第二条记录中

等等

---

如何做到这一点？

我不确定您为什么要使用阵列，但这里有一种改编自：

---

我很好奇为什么你想这样做而不使用记录集。我同意这是解决方案，但是，Ala ABUDEEB，为什么你想这样做？@Remou：因为我希望我的数据库对用户来说是动态的。这是一个简单的会计数据库，我想让用户添加任意多的会计部分，而不必总是要求开发人员这样做，例如，添加一个用于导出会计的部分，以及一个杂项部分。因此，新的记帐节名称应添加到表中，然后数组接受这些内容并根据需要修改数据库。我仍然不明白为什么需要数组，您不能简单地更新表吗？我经常允许用户添加带有组合框和NotInList事件的“节”。不要忘记，可以使用通过VBA:db运行的查询来更新表。执行“插入表（节）值（“”&UsersVal&“）”），DBFailOneRor假设需要使用数组，我对此表示怀疑，我会使用用户定义的数据类型，而不是数组。尽管您可能必须通过循环记录集来填充它。

Dim objConnection as ADODB.Connection
Dim objRecordSet as ADODB.Recordset
Dim arrTest as variant

Set objConnection = CurrentProject.Connection
Set objRecordSet = New ADODB.Recordset

objRecordSet.Open "SELECT * FROM YourTable" , objConnection, _
    adOpenStatic, adLockOptimistic

arrTest = objRecordSet.GetRows

objRecordSet.Close

objConnection.Close