アクセスデータベースのテーブルのフィールドを配列に格納するには？ (ID:124005)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 'カレントレコードを先頭に移動 prRsKaisya.MoveFirst '先頭レコードから最終レコードまで実行 For i = 0 To .RecordCount - 1 '件数をカウント prlngDatNo = prlngDatNo + 1 '配列の再定義 ReDim Preserve prStrKaisyaCd(prlngDatNo) As String ReDim Preserve prStrKaisyaNm(prlngDatNo) As String '会社CD・会社名称フィールドを配列に格納 prStrKaisyaNm(prlngDatNo) = .Fields("V_KAISYA_NM").Value prStrKaisyaCd(prlngDatNo) = .Fields("N_KAISYA_CD").Value .MoveNext Next 上記でできました。 ありがとうございました。