關(guān)閉連接范例

關(guān)閉連接范例

把 ActiveConnection 屬性設(shè)置為 Nothing 將“關(guān)閉”目錄。關(guān)聯(lián)的集合將被置空。目錄中任何通過(guò)模式對(duì)象創(chuàng)建的對(duì)象都將被孤立。這些已緩存對(duì)象的任何屬性依然可用，但讀取屬性時(shí)如果該屬性需要調(diào)用提供者，則此操作將會(huì)失敗。

Sub CloseConnectionByNothing()

   Dim cnn As New Connection

   Dim cat As New Catalog

   Dim tbl As Table

   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source= c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   Set cat.ActiveConnection = cnn

   Set tbl = cat.Tables(0)

   Debug.Print tbl.Type    ' 緩存 tbl.Type 信息

   Set cat.ActiveConnection = Nothing

   Debug.Print tbl.Type    ' tbl 被孤立

   ' 如果它被緩存，前面的行將成功

   Debug.Print tbl.Columns(0).DefinedSize

   ' 如果該信息未被緩存，前面的行將失敗

End Sub

關(guān)閉用于“打開(kāi)”目錄的 Connection 對(duì)象，與將 ActiveConnection 屬性設(shè)置為 Nothing 效果相同。

Sub CloseConnection()

   Dim cnn As New Connection

   Dim cat As New Catalog

   Dim tbl As Table

   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source= c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   Set cat.ActiveConnection = cnn

   Set tbl = cat.Tables(0)

   Debug.Print tbl.Type    ' 緩存 tbl.Type 信息

   cnn.Close

   Debug.Print tbl.Type    ' tbl 被孤立

   ' 如果它被緩存，前面的行將成功

   Debug.Print tbl.Columns(0).DefinedSize

   ' 如果該信息未被緩存，前面的行將失敗

End Sub