目录 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