ADOX -未列出SQL Server架构中的表

Question

我正在使用ADOX检索表名，但不会列出除DBO以外的模式中的任何表。

Sub ListTablesADOX()
  Dim Conn As New ADODB.Connection

  'Open connection you want To get database objects
  Conn.Provider = "MSDASQL"
  Conn.Open "DSN=...;Database=...;", "UID", "PWD"

  'Create catalog object
  Dim Catalog As New ADOX.Catalog
  Set Catalog.ActiveConnection = Conn

  'List tables And columns
  Dim Table As ADOX.Table
  For Each Table In Catalog.Tables
      Debug.Print Table.Name
  Next
End Sub 

Answer 1

我放弃了使用ADO，而是使用ADO OpenSchema方法重新编写了所有获取目录信息的过程，我无法获得dbo模式之外的任何东西。