VBの配列について

質問

VB6.0について質問です。
データベースにある１レコードの情報を一括して取得し
変数に配列化して格納したいのですが可能ですか？

データベースはAccessです。
DAOで接続を考えております。
以下のソースを試したのですが駄目でした＞＜；

dim ITEM_A()
For tmp1 = 0 To ds.Fields.Count - 1 Step 1
ITEM_A = Replace(ds.Fields(tmp1).Value, vbCrLf, "")
Next

ITEM_A(0)=data1
ITEM_A(1)=data2
ITEM_A(3)=data3
ITEM_A(4)=data4
以上のように格納したいのでお願いします＞＜

回答No.1

X-trail_00 · ベストアンサー

dim ITEM_A(0)
For tmp1 = 0 To ds.Fields.Count - 1 Step 1
Redim Preserve ITEM_A(tmp1)
ITEM_A(tmp1) = Replace(ds.Fields(tmp1).Value, vbCrLf, "")
Next

こうすれば動かないですか？

回答No.3

ctrlzr

DAOであれば、Recordset.GetRows メソッドで、配列が取得できます。ただし、1レコードでも2次元配列になってしまうので、1次元にする作業が必要です。
'こんな感じになるかと思いますが、試してはいません。
dim ITEM_A
dim v
v　= ds.GetRows(1)
redim ITEM_A(ubound(v,2))
For tmp1 = lbound(v,2) To ubound(v,2)
ITEM_A(tmp1) = v(lbound(v,1),tmp1)
Next

回答No.2

imogasi

アクセスVBAで今テストやってみた例を上げます。
よくWEBや解説書の例題で載っているものです。
Msgboxのところを、配列名（ｊ）＝で受けて、J=J+1で繰り回せばフィールドの値が、配列にセットされます。配列にわざわざ、格納しなくても良いケースが多いと思うが。
ITEM_A = Replace(ds.Fields(tmp1).Value, vbCrLf, "")
は、他例では見たことのない処理で、何をやっいるのか判りません。
なぜvbCrLfを削除する必要があるのやら（私が知らないだけかも？）。

Sub test02()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("生徒")

Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1

MsgBox Nz(rs.Fields(i))
Next i
rs.MoveNext
Loop
MsgBox "終わり"

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

End Sub