|
リストボックスに列が3で、行は増やしていく(データを増やすと増えるので)というqryを
表示させています。
このリストボックスに表示されているデータを一つづつ、格納して、
値を取って置きたいのですが、その仕方がわかりません。
qryTabemono
番号 種類 名称
1 果物 バナナ
2 果物 ぶどう
3 野菜 白菜
4 野菜 キャベツ
・
・
以下10個位までデータがあれば、データを保存しておきたいのですが、
どのようにすればよろしいですか?
こうすれば最後の行だけは、とれるのですが。。。
あたりまえですが・・・
Dim Bangou as Integer
Dim Syurui as String
Dim Meisyou as String
Dim db As DAO.Database
Dim qry As DAO.Recordset
'DBセット
Set db = CurrentDb
Set qry = db.OpenRecordset("qryTabemono", dbOpenDynaset)
If qry.EOF = True Then
MsgBox ("データがありません")
Exit Sub
End If
Do While qry.EOF = False
Bangou = qry.Fields(0) '番号
Syurui = qry.Fields(1) '種類
Meisyou = qry.Fields(2) '名称
qry.MoveNext
Loop
全データを格納しておきたいのですが、
どのようにすればよろしいですか?
初歩的ですが、よろしくおねがいします。
|
|