DataEnviromentでMDBの接続先を動的に変更するには？

解決

Cappuccino 2004-09-08 20:26:01 No: 116236

以前書き込んだのですが、なぜか消えてしまっているのでもう一度質問させていただきます。
最初にあるMDBファイルに接続させていて、画面上のリストビューに表示されたMDBファイル
をクリックしたときに、クリックされたMDBファイルへの接続し直すような場合なのですが、
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    With DE.Connection1
        If .State = adStateOpen Then
            .Close
            .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=" & Dir1.Path & "\" & _
                                Item & ";"
            .Open
            Call sDispData '接続変更後のMDBファイルの内容表示
        End If
    End With
End Sub
というようにすると、関数sDispData内の
Private Sub sDispData()
    Dim intRCount As Integer

    With DE.rssql_PInfoSrc
        .Source = "SELECT * FROM 製品情報 ORDER BY I002"
        .Open
        '表示処理
        .Close
    End With
End Sub
の".Open"のところで、
"この操作を実行するために接続を使用できません。このコンテキストで閉じているかあるいは無効です。"
とでてしまうのですが、リストビューでクリックされたMDBに応じて接続し直す方法はありま
すでしょうか？どなたかご教授をよろしくお願いいたします。

Cappuccino 2004-09-14 18:38:30 No: 116237

自己解決しました。ありがとうございました。