タスクマネージャーのプロセスから消えなくなる

質問

こんばんは。

フォームにボタンを設置して、そのボタンをクリックすると
既存のアクセスファイルを開くようにしているのですが
そのアクセスファイルを終了させてもタスクマネージャーのプロセスタブの
MSACCESS.EXE*32
がいつまでも残ってしまいます。

VBのフォームを閉じると、MSACCESS.EXE*32は消えます。

VBのコードは、
Private Sub cmb_Access_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Access.SelectedIndexChanged
Call AccessOpen()
End Sub
------------------------------
標準モジュール
Sub Access_Open()
Dim AccApp As Access.Application
Dim MyPath As String

MyPath = "C:\test.accdb"

AccApp = CreateObject("Access.Application")
AccApp.OpenCurrentDatabase(MyPath)
AccApp.Visible = True
AccApp.UserControl = True

AccApp = Nothing
End Sub

です。

ＶＢのフォームから
test.accdbを開く→閉じるを繰り返してると、
プロセスが溜まってしまって、アクセスでエラーが起こります。

なので、ＶＢからアクセスを開いて閉じてたら、
プロセスも終了させるようにしたいのですが、
どうすればいいでしょうか？

ご回答よろしくお願いします。

回答No.1

Yune-Kichi · ベストアンサー

VB 7.0 (=VB.NET 2002)以降のVisual Basicでは，それ以前のVisual Basicに比べ，COMの取り扱いが煩雑になっています。

・Nothingの代入はCOMの解放を意味しません。フィールド変数への代入などを除くと，通常無意味です
・COMのオブジェクトは，全て，確実に System.Runtime.InteropServices.Marshal.ReleaseComObject を呼び出して解放する必要があります

今回の場合，
> AccApp = Nothing
のかわりに，
System.Runtime.InteropServices.Marshal.ReleaseComObject(AccApp)
としてください。
これにより，IUnknown.Releaseが呼び出されて参照カウントが減少し，Accessへの参照がなくなります。

お礼

AccApp = Nothingは無意味なのですか。

System.Runtime.InteropServices.Marshal.ReleaseComObject(AccApp)
に変更して確認したら、ちゃんとタスクマネージャーから消えました！
ありがとうございました。大変参考になりました。