EXCEL VBA でのレコードセットのCloseの挙動について

Question

EXCELVBAで後述のコードを実行したところ、

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

というエラーになりました。
closeはレコードセットを閉じるだけで、レコードセットの中身は残り、
openでまた開けると思ったのですが、その理解は間違いでしょうか。

レコードセットは使うときだけ開いて使ったら閉じるのが
基本だと思っていたので、この挙動は不便です。
closeしてもまたopenできるようにはならないものでしょうか。

==試したコード==
Sub test1()

Dim a

Set a = New ADODB.Recordset

a.Fields.Append "F1", adSingle

a.Open
a.AddNew
a!F1 = 1.1
a.Update
a.Close

a.Open　←ここでエラー

End Sub

Comments

[seastar3]

改めて、
Set a = New ADODB.Recordset
a.Open 接続パラメータ
とADOオブジェクトをインスタンス化してためしてみてはどうでしょうか。

[occhy]

改めてSet a = New ADODB.Recordsetするのは、a!F1 = 1.1でセットした値が消えるので、ダメでした。
aの中身を温存したままcloseという方向性がまずいのかと悩んでいます。

Answer 1

メモリ上でレコードセットを生成して操作したいという案件でしょうか。

ADODB.RECORDSETを使った非接続型、オンメモリの仮想テーブルの作成方法 · GitHub

closeはレコードセットを閉じるだけで、レコードセットの中身は残り、

openでまた開けると思ったのですが、その理解は間違いでしょうか。

メモリ上からレコードセット自体が破棄されます。当然中身も消えます。

レコードセットは使うときだけ開いて使ったら閉じるのが

基本だと思っていたので、この挙動は不便です。

オンメモリではなく実際のテーブルと接続しているレコードセットなら、長時間開いたままにしておくと、共有している場合、他のユーザーが使えないので、それは基本です。
その場合は、その都度SQLなどを指定して開きなおします。（テーブルデータを再度読み込む）

オンメモリ、または共有していないスタンドアローンの場合は、いちいち閉じる必要はないです。
特にオンメモリの場合はCloseしたらデータも破棄されます。

Comments

[occhy]

GitHubの記事を拝見しました。
rs.Filterというメソッドは初めて知りました。これをつかえば直近の課題が解決できます。
オンメモリという言葉を知らなかったのでもやもやしていましたが、オンメモリという言葉を知ったことでだいぶ霧が晴れてきました。
ありがとうございました。助かります。

Answer 2

a.flash
a.close

Set a = New ADODB.Recordset
a.Open 接続パラメータ

aを再インスタンス化すると進むのであれば、flashメソッドを経れば、反映されると思います。