QA0815 Access DAO Recordsetでデータを1つ1つEOFまで取り出す

詳細解説は
三流君VBA:Access お互いのテーブルの差を求める DAO使用
http://www.ken3.org/vba/backno/vba184.html
を見て、笑ってください。。。

まずは、BBBのテーブルでループさせたいので、
Dim TB_BBB As DAO.Recordset 'レコードセットの変数
を作り、
Set TB_BBB = DB.OpenRecordset("Select * from BBB;") 'テーブルBBB全て
で、テーブル全てを引っぱります。
あとは、いつもの？.EOFと.MoveNextを使い、頭からループさせます。
カテゴリ: 科学と技術

タグ: QA0815 Access DAO Recordset EOF MoveNext 三流君 試行錯誤