關閉連接范例

關閉連接范例

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

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

關閉用于“打開”目錄的 Connection 對象，與將 ActiveConnection 屬性設置為 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