VBA openメソッド

Question

Microsoft access 365 ADOで
データベース構築をしています。

レコードセットに
変数SQL1に入ったSQL文で指示するレコードを
テーブル"list"に開きたいです。
以下のコード一文ずつであれば動くのですが
2つのopenメソッドを書くことは出来ず
両方の文を実現させるには
どういった方法があるかお聞きしたいです。

rs1.Open SQL1, CurrentProject.Connection, , adLockOptimistic

rs1.Open "list", CurrentProject.Connection, , adLockOptimistic

Open メソッド (ADO Recordset)
https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/open-method-ado-recordset
こちらのページを参考にしたのですが
Sourceの項目にはテーブル名、SQLステートメント
どちらかしか指定できず
他にどういった方法があるか分かりません。

openメソッドを使わない方法として
わたしの知識ではaddnewで
すべてのフィールドを記載して
ループで1レコードずつ
移していく書き方しか思い付きませんが
フィールド数も多いので一括して移すような
手法があれば教えて頂きたいです。

Comments

[hatena19]

> レコードセットに
> 変数SQL1に入ったSQL文で指示するレコードを
> テーブル"list"に開きたいです。

どういう意味でしょう。
SQL1で開いたレコードセットのデータをテーブルlistに追加したいということでしょうか。
だとしたら、追加クエリ、SQLならINSERT INTO ステートメントになります。

Answer 1

変数SQL1に入ったSQL文で指示するレコードを
テーブル"list"に開きたいです。

この意味が、よく分からないですが、
SQL1で開いたレコードセットのデータをテーブルlistに追加したいということなら、INSERT INTO ステートメントで追加すればいいでしょう。

INSERT INTO のような実行クエリ(レコードセットを返さない)は、Openメソッドではなく、Executeメソッドで実行します。

Dim cn  As New ADODB.Connection
Set cn = CurrentProject.Connection

SQL1 = "SELECT文"
SQL1 =  " INSERT INTO list "  &  SQL1
cn.Execute SQL1

INSERT INTO ステートメント (Microsoft Access SQL) | Microsoft Docs

Execute メソッド (ADO Connection) | Microsoft Docs

Comments

[ukana]

回答ありがとうございます。
説明不足また勉強不足で申し訳ありません。
openメソッドで実現できるという認識の
違う部分がありました。
リンク先良く読み理解したいと思います。