[已解决]请问如何把已有数据库赋给cat ?

mansohu

用如下方法可以创建一个数据库：

Set cat = CreateObject("ADOX.Catalog")

    cat.Create _

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

        "Data Source=" & DB_Path  & ";"

请问如何把已有数据库赋给cat ?

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-5 19:06

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

跳转到最佳答案楼层

mansohu

顶啊，需要啊，帮忙啊

hwc2ycy

以通过添加或删除对象、或修改现有的对象来修改 Catalog 对象。有些提供者可能不支持所有 Catalog 对象，或可能只支持查看模式信息。

hwc2ycy

ActiveConnection 属性
      

指示目录所属的 ADO Connection 对象。

设置和返回值

设置包含连接定义的 Connection 对象或字符串。返回活动 Connection 对象。

hwc2ycy

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