目录 ActiveConnection 范例

将 ActiveConnection 属性设置为有效的、打开的连接即可“打开”目录。通过打开的目录，可以访问包含在该目录中的模式对象。

Sub OpenConnection()

   Dim cnn As New ADODB.Connection

   Dim cat As New ADOX.Catalog

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

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

      "Office\Samples\Northwind.mdb;"

   Set cat.ActiveConnection = cnn

   Debug.Print cat.Tables(0).Type

End Sub

将 ActiveConnection 属性设置为有效连接字符串也可以“打开”目录。

Sub OpenConnectionWithString()

   Dim cat As New ADOX.Catalog

   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

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

      "Office\Samples\Northwind.mdb;"

   Debug.Print cat.Tables(0).Type

End Sub