Question

我正在研究MS访问数据库..

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

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

使其更清晰：假设我像这样宣布数组

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

我的表包含两个字段：ID，Name

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

等等

怎么做？

Answer 1

我不确定你为什么要使用数组，但这是一种改编自Microsoft article的方式：

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

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

1 个答案: