ＤＡＯの質問です。

Question

syo777

17

17もっと見る

100pt

コンピュータインターネット

ＤＡＯの質問です。

access2000を使用しています。
以下の通りプログラムがあります。

Sub makuro()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset("テーブルA")
Set rs2 = db.OpenRecordset("テーブルB")

Do Until rs1.EOF
　　　　処理
rs1.MoveNext
Loop

Set db = Nothing
Set rs1 = Nothing
Set rs2 = Nothing
End Sub

今これを、テーブルA（テーブル）ではなくクエリを入れることは可能でしょうか？
もし可能ならどのように、Set rs1 = db.OpenRecordset("テーブルA")を
どのように書けばよろしいのでしょうか？
よろしくお願いします。

回答の条件

1人3回まで

登録：2012/02/23 11:48:26
終了：2012/02/29 20:18:09

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

cx20 · Accepted Answer · 2012-02-23T20:22:20+09:00

■ OpenRecordsetメソッド： DAOリファレンス - DAO入門講座
http://www.accessclub.jp/dao/OpenRecordset.html

Set recordset = object.OpenRecordset {(source), type, options, lockedits}

OpenRecordset メソッドの第１引数（source）には、

テーブル名
クエリ名
SQL文

のいずれかを指定することができます。

今これを、テーブルA（テーブル）ではなくクエリを入れることは可能でしょうか？

「クエリ」が「SQL文」のことを意味しているのでしたら、

Set rs1 = db.OpenRecordset("SELECT * FROM テーブルA")

のように記述するだけです。

Sub makuro()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
    
    Set db = CurrentDb
    Set rs1 = db.OpenRecordset("SELECT * FROM テーブルA")
    Set rs2 = db.OpenRecordset("テーブルB")
    
    Do Until rs1.EOF
        Debug.Print rs1(0) ' テーブルAの１つめの項目の値を表示
        rs1.MoveNext
    Loop
    
    Set db = Nothing
    Set rs1 = Nothing
    Set rs2 = Nothing
End Sub

ＤＡＯの質問です。

ベストアンサー

cx206071082012/02/23 20:22:20

コメント（0件)

この質問への反応（ブックマークコメント）