accessでのunionの書き方について教えてください

Question

質問失礼します。

accessではFULL JOINが対応していないとのことで、
unionを使ってマスタAとマスタBのファイルの中身を全て結合したいと思っています。
（お互いに、商品コードと商品名、単価が記載されており、それを商品コード順にansテーブルへ出力予定）

しかし、下のコードを書くと、JOIN句の構文エラーです。と出てしまいます。
ユニオンクエリでは簡単に出来たのですが、
下のようなコード書くにはどのようにしたらよいでしょうか？

宜しくお願いします。

Sub Key()

Dim cnn As ADODB.Connection 

Dim rs_masterA As ADODB.Recordset 
Dim rs_masterB As ADODB.Recordset
Dim rs_ans As ADODB.Recordset
Dim mySQL As String  

Set cnn = CurrentProject.Connection   
Set rs_masterA = New ADODB.Recordset  
Set rs_masterB = New ADODB.Recordset
Set rs_ans = New ADODB.Recordset
    
    mySQL = "SELECT T_ALL.商品コード, A.商品, A.単価" & _
    " FROM ((SELECT 商品コード FROM マスタA AS A UNION SELECT 商品コード FROM マスタB AS B)" & _
    " LEFT JOIN A ON T_ALL.商品コード = A.商品コード)" & _
    " LEFT JOIN B ON T_ALL.商品コード = B.商品コード"
    
    rs_masterA.Open mySQL, cnn, adOpenKeyset, adLockOptimistic
    rs_masterB.Open mySQL, cnn, adOpenKeyset, adLockOptimistic
    rs_ans.Open "ans", cnn, adOpenKeyset, adLockOptimistic
    
    Do Until rs_masterA.EOF And rs_masterB.EOF
        rs_ans.AddNew 
        
        rs_ans!商品コード = rs_maseterA!商品コード
        rs_ans!商品名 = rs_masterA!商品名
        rs_ans!単価 = rs_masterA!単価
        
        rs_ans.Update      
        rs_ans.MoveNext     
        rs_master.MoveNext  
        rs_masterB.MoveNext
     
    Loop
    
End Sub

Answer 1

T_ALL ってどこにいきましたか。

あと、いま一つやりたいことが分からないんですが UNION でクエリ時点でつなげているならRecordsetをAとBで開く必要はなさそうに思いますし

SELECT A.*, B.*
FROM A LEFT JOIN B ON A.商品コード = B.商品コード

の結果で必要なデータはそろうんじゃないかと思いました。

Comments

[makino]

回答ありがとうございます。
すいません、ユニオンクエリだとすぐにできたので、それは今回使わないでいきたいです。
また、自分の認識が誤っていて、JOINしてもrs_masterA.Openとrs_masterＢ.Openの両方開かないといけないと勘違いしてました。申し訳ございません。

kaz.Suenagaさんが書いていただいたSELECTだと、
要求された名前または序数に対応する項目がコレクションで見つかりません
と出てきてしまいます…
初心者のよくわからない質問で申し訳ないです。

[kaz.Suenaga]

表現が悪かったかもしれません。
`T_ALL` がどこに行った、というのは
```
mySQL = "SELECT T_ALL.商品コード, A.商品, A.単価" & _
" FROM ((SELECT 商品コード FROM マスタA AS A UNION SELECT 商品コード FROM マスタB AS B)" & _
" LEFT JOIN A ON T_ALL.商品コード = A.商品コード)" & _
" LEFT JOIN B ON T_ALL.商品コード = B.商品コード"
```

この部分に、定義されていないテーブル名 T_ALL がでてくるので言ったことです。

また、私の書いた方のSQLの場合、レコードセット内にAの商品コードとBの商品コードが存在しますので、列名「商品コード」では対応する名前がないとエラーになると思います。

[makino]

T_ALL見逃してました…確かにどこにも書いてないですね。

無事FULLJOINのような動作になりました。
ありがとうございました！

[kaz.Suenaga]

蛇足ですが、おそらくはこれがやりたいことなんじゃないかというコード書きました。

---

Sub example1()
Dim cnn As ADODB.Connection

Dim rs_master As ADODB.Recordset
Dim rs_ans As ADODB.Recordset

Dim mySQL As String

Set cnn = CurrentProject.Connection
Set rs_master = New ADODB.Recordset
Set rs_ans = New ADODB.Recordset

mySQL = "SELECT * FROM A UNION ALL (SELECT * FROM B)"

rs_master.Open mySQL, cnn, adOpenKeyset, adLockOptimistic
rs_ans.Open "ans", cnn, adOpenKeyset, adLockOptimistic

Do Until rs_master.EOF
rs_ans.AddNew
rs_ans!商品コード = rs_master!商品コード
rs_ans!商品名 = rs_master!商品名
rs_ans!単価 = rs_master!単価
rs_ans.Update

rs_master.MoveNext
Loop

rs_ans.Close
Set rs_ans = Nothing

rs_master.Close
Set rs_master = Nothing

cnn.Close
Set cnn = Nothing
End Sub
---

ご参考まで。