VBAでrecordset(ADO)の結合方法

Question

前提・実現したいこと

Access等からリンクさせないで、VBA内で自作した複数のrecordsetを
特定のキー(NO)において結合したrecordsetを新たに作成したい
期待する出力；
1 999 99
2 555 55
3 333 33

発生している問題・エラーメッセージ

実行時エラー'3709':
この操作を実行するために接続を使用できません。このコンテキストで閉じているかあるいは無効です。

該当のソースコード

Dim test1 As New ADODB.Recordset
test1.Fields.Append "NO", adDouble
test1.Fields.Append "ItemA", adDouble
test1.Open
test1.AddNew
test1!NO = 1: test1!ItemA = 999
test1!NO = 2: test1!ItemA = 555
test1!NO = 3: test1!ItemA = 333
Dim test2 As New ADODB.Recordset
test2.Fields.Append "NO", adDouble
test2.Fields.Append "ItemB", adDouble
test2.Open
test2.AddNew
test2!NO = 1: test2!ItemB = 99
test2!NO = 2: test2!ItemB = 55
test2!NO = 3: test2!ItemB = 33
Dim testjoin As New ADODB.Recordset
testjoin.Open "SELECT test1.NO, test1.ItemA,test2.ItemB FROM test1 INNER JOIN test2 ON test1.NO = test2.NO;"
testjoin.MoveFirst
Debug.Print testjoin!NO, testjoin!ItemA, testjoin!ItemB: testjoin.MoveNext
Debug.Print testjoin!NO, testjoin!ItemA, testjoin!ItemB: testjoin.MoveNext
Debug.Print testjoin!NO, testjoin!ItemA, testjoin!ItemB: testjoin.MoveNext

試したこと

testjoin.Open行のSQL文をいろいろ試したが改善せず

補足情報（FW/ツールのバージョンなど）

Excelバージョン2008

Answer 1

そもそもRecordsetの操作はSQLではできません。
Recordset オブジェクトのプロパティ、メソッド、およびイベント
SQLのselectと似たような事なら、精々FilterやFindメソッドあたりだと思います。

Excelシートをテーブルとして扱うのならSQLでSELECT出来ますが。
以下参考
Power Query（パワークエリ）とはどんな機能か？活用の流れや手順、使い方まとめ
Excelの集計をSQLでおこなう方法。VLOOKUP()やSUBTOTAL()の限界を超えろ！！
EXCEL VBAでSQL文を使って集計する

Comments

[cookie618]

実際には１：Nで結合した表を扱いたいので、FilterやFindでの対応に限界を感じていたので質問させていただきました。ありがとうございます。

[sazi]

リンクを追記しました。joinもできますよ。

[sousuke]

一応MSDataShapeでadChapter型の子レコードセットを列値として持つことは可能です。
スタンドアロンレコードセットを直接連結はたぶん不可能ですが。

これ使ってる人見たことないです…と思ったらやっぱり削除予定になってて悲しい。
https://docs.microsoft.com/ja-jp/sql/ado/guide/appendixes/microsoft-data-shaping-service-for-ole-db-ado-service-provider?view=sql-server-ver15

https://foolexp.wordpress.com/2011/12/18/msdatashape-%e3%81%9d%e3%81%ae2/

[sazi]

リンクを追記しました。標準でSQLが扱えそうです。
@sousukeさん
データタブでデータソースを指定して利用できるようになったからでしょうね。