arrays - Access テーブルから VBA の配列にデータをコピーするにはどうすればよいですか?

Question

私は、テーブル内の 1 つのフィールドからデータを取得し、その列全体を配列に入れるか、テーブル自体から読み取ることさえできるプログラムに取り組んでいます。コードは、配列を使用したいフォームまたは何かを使用しているようです。

Answer 1

これはうまくいきます：

Dim rstData    As DAO.Recordset
Dim v          As Variant

Set rstData = CurrentDb.OpenRecordset("select FirstName from FaxBook3")
v = rstData.GetRows(rstData.RecordCount)

"v" はすべての名の配列になります。クエリに複数の列がある場合、配列は多次元になる可能性があります。

Answer 2

上記のアルバートのソリューションは機能しますが、レコードセットを最後に移動してから、配列を完全に埋めるためにもう一度戻す必要があります。そうしないと、最初の行しか取得できません。MoveLastこれにはとを使用MoveFirstします。

Dim rstData    As DAO.Recordset
Dim v          As Variant

Set rstData = CurrentDb.OpenRecordset("select FirstName from FaxBook3")
rstData.MoveLast
rstData.MoveFirst  
v = rstData.GetRows(rstData.RecordCount)