目錄 ActiveConnection 范例

目錄 ActiveConnection 范例

將 ActiveConnection 屬性設(shè)置為有效的、打開的連接即可“打開”目錄。通過打開的目錄，可以訪問包含在該目錄中的模式對象。

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 屬性設(shè)置為有效連接字符串也可以“打開”目錄。

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